ACCESS VBA编程(使用技巧大全)[].doc

ACCESS VBA编程(使用技巧大全)[1]

ACCESS-VBA编程 ACCESS－VBA编程. 控件： 常量控件 acBoundObjectFrame绑定对象框 acCheckBox复选框 acComboBox组合框 acCommandButton命令按钮 acCustomControlActiveX(自定义)控件 acImage图像 acLabel标签 acLine线条 acListBox列表框 acObjectFrame未绑定对象框或图表 acOptionButton选项按钮 acOptionGroup选项组 acPage页 acPageBreak分页符 acRectangle矩形 acSubform子窗体/子报表 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 Me.Controls.Item(i).Visible=False Next 按特殊名在VBA中设置控件的可见性： Fori=27To47 IfMe.Controls.Item(i).NameLike"A*"Then Me.Controls.Item(i).Visible=False EndIf 1 ACCESS-VBA编程 Next 指定一个控件能否接受焦点 Enabled属性： me.控件.Enabled=true'能 =false'不能 指定一个控件能否被编辑： locked 如： me.控件.Locked=true me.控件.Locked=false 设置控件标题显示的文字 Me.控件.Caption="显示窗体" 设置标签颜色： Me.LabelColor=200 获得焦点及失去焦点时字段变更颜色。 如果你的控件是文本框，名称为“txt字段”，写如下代码： PrivateSubtxt字段_GotFocus() Me.txt字段.BackColor EndSub 当中是灰色，你可以自己选择希望的颜色，如果想在失去焦点时改为原来的颜色，写如下代码：PrivateSubtxt字段_LostFocus() Me.txt字段.BackColor EndSub 使标签闪烁以引人注意 设置窗体的TimerInterval值为1000(1秒). formsOnTimer加入代码: SubForm_Timer() YourTextLabel.Visible=NotYourTextLabel.Visible End_Sub 设置标签字体颜色： Me.Label1.ForeColor= 设置文本框颜色： Me.TextColor=300 设置文本框字体颜色： Me.TextFontColor=500 标签等左边距离： Me.Label2.Left=2200 定位控件 Me.控件.Top=8290