《accessvba编程(使用技巧大全).docx》由会员分享，可在线阅读，更多相关《accessvba编程(使用技巧大全).docx（14页珍藏版）》请在三一文库上搜索。
1、ACCESS VBA编程（使用技巧大全）ACCESS-VBA 编程ACCESSVBA 编程.控件：常量控件acBoundObjectFrame 绑定对象框acCheckBox 复选框acComboBox 组合框acCommandButton 命令按钮acCustomControlActiveX （自定义）控件aclmage 图像acLabel 标签acLine线条acListBox列表框acObjectFrame未绑定对象框或图表acOptionButton 选项按钮acOptionGroup 选项组acPage 页acPageBreak 分页符acRectangle 矩形acSubformx
2、x 窗体/xx 报表acTabCtl选项卡acTextBox文本框acToggleButton 切换按钮在VB中对窗体控件的引用键入包含控件的窗体或报表的标识符，后面紧接!运算符和控件的名称。例如，下列标识符将引用订单窗体上订单ID控件值：Forms!订单!订单 ID引用子窗体或子报表上的控件，不必使用窗体或报表属性为窗体或报表 指定完整的标识符。例如，可以使用下列标识符来引用订单子窗体上的数量 控件：Forms!订单川订单子窗体川数量判断窗体或报表中控件的数目，然后将该数目赋给一个变量。DimintFormControlsAsIntegerDimintReportControlsAsInte
3、gerintFormControls=Forms I Employees.CountintReportControls=Reports! Freightcharges.Count设置控件可见性Dimi,iiAslntegerForii=3TolOMe.Controls. ltem(ii).Visible=TrueNextFori=llTo2214Me.Controls.ltem(i).Visible=FalseNext按特殊名在VBAxx设置控件的可见性：Fori=27To47If Me.Controls.ltem(i).NameLikeA*ThenMe.Controls. ltem(i).V
4、isible=FalseEndlf1ACCESS-VBA 编程Next指定一个控件能否接受焦点Enabled 属性：me.控件.Enabled = true'能二false'不能指定一个控件能否被编辑：locked如：me ,控件.Locked = trueme.控件.Locked=false设置控件标题显示的文字Me ,控件.Caption二显示窗体”设置标签颜色：Me.LabelColor=200获得焦点及失去焦点时字段变更颜色。如果你的控件是文本框，名称为txt字段，写如下代码：PrivateSubtxt 字段_GotFocus()Me.txt 字段,BackColor=
5、12632256EndSub当中12632256是灰色，你可以自己选择希望的颜色，如果想在失去焦点 时改为原来的颜色,写如卜代码：PrivateSubtxt字段_LostFocus()Me.txt字 g.BackColor=16777215EndSub使标签闪烁以引人注意设置窗体的Timerinterval值为1000(1秒).formsOnTimer 加入代码：SubForm_Timer()YourTextLabel.Visible=NotYourTextLabel.VisibleEnd_Sub设置标签字体颜色：Me.Labell.ForeColor=设置文本框颜色：Me.TextColor
6、=300设置文本框字体颜色:Me.TextFontColor=500标签等左边距离：Me.Label2.Left=2200定位控件Me .控件,Top=8290Me .控件,Left=1002ACCESS-VBA 编程设置控件宽度/高度Me .考生答案.Width = 10000Me .考生答案.Height=1000标签等字体粗细：Me.Label2.FontWeight=20000控件边框颜色：Me.Label2.BorderColor=0控件边框线条Borderstyle属性使用以下设置：透明0 （仅对于标签、图表和子报表而言是默认值）透明的实线1 （默认值）实线虚线2虚线短虚线3短虚线
7、占线4占线稀疏点线5点距较宽的点线点划线6虚线与点线组合的点划线点点划线7虚线点线点线组合的点点划线双实线8双实线指定控件的边框宽度使用BorderWidth属性可以指定控件的边框宽度取值：。或1 6指定控件是否透明使BackStyle属性可以指定控件是否透明。True、False解除子窗体锁定Me .进子窗体.Locked=False'解除子窗体锁定将窗体上所有控件的输入法关掉！来源:不祥PrivateSubForm_Open(CancelAslnteger)DimctlAsAccess.ControlForEachctllnMe.ControlsDebug. Printctl.Na
8、me&ctl.ControlTypelfctl.ControlType=acTextBoxThenctl.lMEMode=2EndlfNextEndSub上述代码控制文本框，你还可以控制其他的，只要copy进窗体就可以了列表框的值的引用如果是单选的列表框，用me.列表框名来引用；如果要引用不是结合型列 的值，可以用me.列表框名.column(n)(第一列n=0,第二列n=l)引用多列 组合框或列表框中特定的列或列与行的组合用0引用第一列，用1引用第二列，依此类推。用0引用第一行，用1引 用第二行，依此类推。例如在含有一列客户ID和一列客户名称的列表框中，可 以使用如下方式引用第二列、
9、第五行的客户名称：Forms iContacts iCustomers.Columnfl,4)可以使用Column属性将组合框或列表框的内容指定给另一控件，如文本 框。例如，若要将文本框的Controlsource属性设为列表框第二列中的值，可以 使用以下表达式：=Forms!Customers!CompanyName.Column(l)3ACCESS-VBA 编程如果引用了组合框或列表框中的列，但用户未做选择，则Column属性设置 将为Null。可以使用IsNull函数来确定是否进行了选择，示例如下： lflsNull(Forms!Customers!Country)ThenMsgBoxN
10、oselection.Endlf显示获得焦点的控件的Name：ctlAsControlSetctl=Screen.ActiveControlMsgBoxctl.Name窗体：如何让窗体的标题条闪烁以引起用户注意？在窗体中放一个Timer控件Timeri,设置其lnteval=200*API函数声明PrivateDeclareFunctionFlashWindowLibuser32(ByValhwndAsLong,By/al AsLong)AsLong注释：在窗体中写下如下代码：PrivateSubTimerl_Timer()Flash WindowMe.hwndJrueEndSub窗体上如何使
11、用windows的媒体播放器插入 Micros。代MediaPlayer 控件插入控件后，在控件中属性中的几个主要选项：FileName:要播放的文件名，包括路径AutoStrat:是否自动播放AutoRevind:播放完后是否自动回到起点指定当窗体上的命令按钮保持按下状态时，是否重复执行事件过程或宏使用AutoRepeat属性可以指定当窗体上的命令按钮保持按下状态时，是否 重复执行事件过程或宏True、False以隐藏方式打开一个窗体me.visible=false'允许添加me.AllowAdditions=True'记录不锁定me.RecordLocks=l是否自动居中A
12、utoCenter=True,False是否自动调整AutoResize=True,False窗体边框样式me.BorderStyle=l 中译:无其它1无2细边框3可调边框4blnvertACCESS-VBA 编程4对话框边框设置窗体、页眉、页脚颜色:9/14Me.Section(0).BackColor=200Me.Section(l).BackColor=200Me.Section(2).BackColor=200窗体标题me.Caption=中国ACCESS软件网“中译:窗体标题为“中国ACCESS软件网”(不 含引号)关闭按钮me.CloseButton=True中译允许关闭按钮其它
13、:true:允许False:不允许控制框me.ControlBox=True 允许其它:true:允许False:不允许默认视图me.DefaultView=O 为单一窗口其它:0:单一窗口 1:连续窗体2:数据表vba如何才夔取/骰：置在数撼表方式下(0列的寞度一、Me.RowHeight=800二、Me.子窗彳本名.Form.Controls(歹U 名).ColumnWidth=400允许分隔线me.DividingLines=True中译允许分隔线其它:true:允许False:不允许允许打印版式英文:me.LayoutForPrint=True中译允许打印版式其它:true:允许Fal
14、se:不允许无最大最小化按钮英文:me.MinMaxButtons=0中译无最大最小化按钮其它:0:无1:最大化2:最小化3:两者都有允许浏览按钮英文:me.NavigationButtons=True中译允许浏览按钮其它:true:允许False:不允许滚动条me.ScrollBars=0 二者均无其它:0:二者均无1:只垂直2:只水平3:二者都有允许/不允许添加me.AllowAdditions=True/False允许/不允许删除me.AllowDeletions=True/False允许/不允许编辑me.AllowEdits=True/False指定是否允许打开绑定窗体进行数据输入使用
15、DataEntry属性可以指定是否允许打开绑定窗体进行数据输入。DataEntry属性不决定是否可以添加记ACCESS-VBA 编程录，只决定是否显示已有的记录。Boolean型，可读/写。True、False允许/不允许筛选me.AllowFilters=True/FalseFilter二”筛选内容”筛选应用与/否筛选FilterOn=True/False将MyForm窗体的BackColor属性，改成ColorCode参数指定的色彩。使用QBColor函数将MyForm窗体的BackColor属性，改成ColorCode参数 指定的色彩。QBColor可接受。到15的整型值。SubChan
16、geBackColor(ColorCodeAslnteger,MyFormAsForm)MyForm. BackColor=QBColor(ColorCode)EndSub窗体真正居中显示如下代码可以做到真正居中显示PrivateSubForm_Load()DoCmd.EchoFalseDimx,yAslntegerDoCmd.Maximizex=Me. WindowWidthy=Me.WindowHeightDoCmd.RestoreDoCmd.EchoTrueMove(x-Me.WindowWidth)/2,(y-Me.WindowHeight)/2EndSub隐藏窗体学生名册数据表视图中
17、的性别字段Table!学生名册!性别.ColumnHidden 二1显示获得焦点窗体的Name属性设置：使用ActiveForm属性(和对象一起)可以标识或引用获得焦点的窗体。DimdqhdctAsFormSetdqhdct=Screen.ActiveFormMsgBoxdqhdct.Name判断窗体是否打开的方法FunctionlsLoaded(strNameAsString,OptionalintObjectTypeAslnteger=acForm)lsLoaded=(SysCmd(acSysCmdGetObjectState,intObjectType,strName)<>0
18、)EndFunction使用IsLoaded属性可以确定当前是否加载了 Accessobject。Boolean型,只 读。以下是一个示例：lfCurrentProject.AIIForms(frmMain).lsLoaded=TrueThenForms ifrmMain.Form.Visible=FalseEndlf窗体中组合框不在列表中示例不在列表中事件代码：PrivateSub 名称_NotlnList(NewDataAsString,ResponseAslnteger)Response=acDataErrContinue6ACCESS-VBA 编程lfMsgBox(“您输入的名称不在列表中，在列表中添加新记录吗？银河酒 业)=6ThenMe!名称二 NullDoCmd.GoToControl,单价”DoCmd.OpenForm酒名歹ij 表”acAdd,acNormalElseMe!名称二 NullMe!名称.DropdownEndlfEndSub获得焦点事件代码：PrivateSub 名称_GotF14 / 14