access_vba编程大全

《access_vba编程大全》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、ACCESS－VBA编程.控件：常量控件acBoundObjectFrame绑定对象框acCheckBox复选框acComboBox组合框acCommandButton命令按钮acCustomControlActiveX（自定义）控件acImage图像acLabel标签acLine线条acListBox列表框acObjectFrame未绑定对象框或图表acOptionButton选项按钮acOptionGroup选项组acPage页acPageBreak分页符acRectangle矩形acSubform子窗体/子报表acTa

2、bCtl选项卡acTextBox文本框acToggleButton切换按钮在VB中对窗体控件的引用键入包含控件的窗体或报表的标识符，后面紧接!运算符和控件的名称。例如，下列标识符将引用“订单”窗体上“订单ID”控件值：Forms![订单]![订单ID]文档来源：www.mysoeasy.comACCESS－VBA编程.控件：常量控件acBoundObjectFrame绑定对象框acCheckBox复选框acComboBox组合框acCommandButton命令按钮acCustomControlActiveX（自定义）控件a

3、cImage图像acLabel标签acLine线条acListBox列表框acObjectFrame未绑定对象框或图表acOptionButton选项按钮acOptionGroup选项组acPage页acPageBreak分页符acRectangle矩形acSubform子窗体/子报表acTabCtl选项卡acTextBox文本框acToggleButton切换按钮在VB中对窗体控件的引用键入包含控件的窗体或报表的标识符，后面紧接!运算符和控件的名称。例如，下列标识符将引用“订单”窗体上“订单ID”控件值：Forms![订单

4、]![订单ID]文档来源：www.mysoeasy.comACCESS－VBA编程.控件：常量控件acBoundObjectFrame绑定对象框acCheckBox复选框acComboBox组合框acCommandButton命令按钮acCustomControlActiveX（自定义）控件acImage图像acLabel标签acLine线条acListBox列表框acObjectFrame未绑定对象框或图表acOptionButton选项按钮acOptionGroup选项组acPage页acPageBreak分页符acRe

5、ctangle矩形acSubform子窗体/子报表acTabCtl选项卡acTextBox文本框acToggleButton切换按钮在VB中对窗体控件的引用键入包含控件的窗体或报表的标识符，后面紧接!运算符和控件的名称。例如，下列标识符将引用“订单”窗体上“订单ID”控件值：Forms![订单]![订单ID]文档来源：www.mysoeasy.com引用子窗体或子报表上的控件，不必使用“窗体”或“报表”属性为窗体或报表指定完整的标识符。例如，可以使用下列标识符来引用“订单”子窗体上的“数量”控件：Forms![订单]![订单

6、子窗体]![数量]判断窗体或报表中控件的数目，然后将该数目赋给一个变量。DimintFormControlsAsIntegerDimintReportControlsAsIntegerintFormControls=Forms!Employees.CountintReportControls=Reports!FreightCharges.Count设置控件可见性Dimi,iiAsIntegerForii=3To10Me.Controls.Item(ii).Visible=TrueNextFori=11To22Me.Contr

7、ols.Item(i).Visible=FalseNext按特殊名在VBA中设置控件的可见性：Fori=27To47IfMe.Controls.Item(i).NameLike"A*"ThenMe.Controls.Item(i).Visible=FalseEndIfNext文档来源：www.mysoeasy.com指定一个控件能否接受焦点Enabled属性：me.控件.Enabled=true'能=false'不能指定一个控件能否被编辑：locked如：me.控件.Locked=trueme.控件.Locked=false

8、设置控件标题显示的文字Me.控件.Caption="显示窗体"设置标签颜色：Me.LabelColor=200获得焦点及失去焦点时字段变更颜色。如果你的控件是文本框，名称为“txt字段”，写如下代码：PrivateSubtxt字段_GotFocus()Me.txt字段.BackColor=