accessvba编程使用技巧大全.docxVIP

accessvba编程使用技巧大全 accessvba编程使用技巧大全 accessvba编程使用技巧大全 ACCESS VBA编程 (使用技巧大全 )[1] ACCESS-VBA编程 ACCESS－VBA编程 . 控件： 常量控件 acBoundObjectFrame绑定对象框 acCheckBox复选框 acComboBox组合框 acCommandButton 命令按钮 acCustomControlActiveX（自定义）控件 acImage 图像 acLabel标签 acLine 线条 acListBox列表框 acObjectFrame未绑定对象框或图表 acOptionButton 选项按钮 acOptionGroup 选项组 acPage页 acPageBreak分页符 acRectangle矩形 acSubformxx 窗体 /xx 报表 1/14 acTabCtl选项卡 acTextBox文本框 acToggleButton 切换按钮 在 VB中对窗体控件的引用 键入包含控件的窗体或报表的表记符，后边紧接 !运算符和控件的名称。比如，以下表记符将引用 “订单 ”窗体上 “订单 ID”控件值： Forms![订单 ]![ 订单 ID] 引用子窗体或子报表上的控件，不用使用 “窗体 ”或“报表 ”属性为窗体或报表指定完好的表记符。比如，能够使用以下表记符来引用 “订单 ”子窗体上的 “数目 ” 控件： Forms![订单 ]![ 订票据窗体 ]![ 数目 ] 判断窗体或报表中控件的数目，而后将该数目赋给一个变量。 DimintFormControlsAsInteger DimintReportControlsAsInteger intFormControls=Forms!Employees.Count intReportControls=Reports!FreightCharges.Count 设置控件可见性 Dimi,iiAsInteger Forii=3To10 Me.Controls.Item(ii).Visible=True Next Fori=11To22 2/14 Me.Controls.Item(i).Visible=False Next 按特别名在 VBAxx设置控件的可见性： Fori=27To47 IfMe.Controls.Item(i).NameLikeA*Then Me.Controls.Item(i).Visible=False EndIf 1 ACCESS-VBA编程 Next 指定一个控件可否接受焦点 Enabled 属性： me.控件 .Enabled=true#39;能 =false#39;不可以 指定一个控件可否被编写： locked 如： me.控件 .Locked=true me.控件 .Locked=false 设置控件标题显示的文字 Me.控件 .Caption=显示窗体 3/14 设置标签颜色： Me.LabelColor=200 获取焦点及失掉焦点时字段更改颜色。 假如你的控件是文本框，名称为 “txt字段 ”，写以下代码： PrivateSubtxt 字段 _GotFocus() Me.txt 字段 .BackColorEndSub 中间 ”灰色，你能够自己选择希望的颜色，假如想在失掉焦点时改为本来的颜色，写以下代码： PrivateSubtxt 字段 _LostFocus()Me.txt字 段.BackColorEndSub 使标签闪耀以引人注意 设置窗体的 TimerInterval 值为 1000(1 秒). formsOnTimer 加入代码 : SubForm_Timer() YourTextLabel.Visible=NotYourTextLabel.Visible End_Sub 设置标署名体颜色： Me.Label1.ForeColor= 设置文本框颜色： Me.TextColor=300 设置文本框字体颜色： 4/14 Me.TextFontColor=500 标签等左侧距离： Me.Label2.Left=2200 定位控件 Me.控件 .Top=8290 Me.控件 .Left=100 2 ACCESS-VBA编程 设置控件宽度 / 高度 Me.考生答案 .Width=10000 Me.考生答案 .Height=1000 标签等字体粗细： Me.Label2.FontWeight=20000 控件边框颜色： Me.Label2.BorderColor=0 控件边框线条 BorderStyle 属性使用以下设置： 透明 0（仅关于标签、图表和子报表而言是默认值）透明的 实线