ACCESS-VBA编程.doc

《ACCESS-VBA编程.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、文本框acToggleButton切换按钮在VB中对窗体控件的引用键入包含控件的窗体或报表的标识符，后面紧接!运算符和控件的名称。例如，下列标识符将引用“订单”窗体上“订单ID”控件值：Forms![订单]![订单ID]引用子窗体或子报表上的控件，不必使用“窗体”或“报表”属性为窗体或报表指定完整的标识符。例如，可以使用下列标识符来引用“订单”子窗体上的“数量”控件：Forms![订单]![订单子窗体]![数量]判断窗体或报表中控件的数目，然后将该数目赋给一个变量。DimintFormControlsAsIntegerDimintReportControlsAsIntegerint

3、FormControls=Forms!Employees.CountintReportControls=Reports!FreightCharges.Count设置控件可见性Dimi,iiAsIntegerForii=3To10Me.Controls.Item(ii).Visible=TrueNextFori=11To22Me.Controls.Item(i).Visible=FalseNext按特殊名在VBA中设置控件的可见性：Fori=27To87-87ACSSESS-VBA47IfMe.Controls.Item(i).NameLike"A*"ThenMe.Controls.

4、Item(i).Visible=FalseEndIfNext指定一个控件能否接受焦点Enabled属性：me.控件.Enabled=true'能=false'不能指定一个控件能否被编辑：locked如：me.控件.Locked=trueme.控件.Locked=false设置控件标题显示的文字Me.控件.Caption="显示窗体"设置标签颜色：Me.LabelColor=200获得焦点及失去焦点时字段变更颜色。如果你的控件是文本框，名称为“txt字段”，写如下代码：PrivateSubtxt字段_GotFocus()Me.txt字段.BackColor=12632256EndSu

5、b当中“12632256”是灰色，你可以自己选择希望的颜色，如果想在失去焦点时改为原来的颜色，写如下代码：PrivateSubtxt字段_LostFocus()Me.txt字段.BackColor=16777215EndSub使标签闪烁以引人注意设置窗体的TimerInterval值为1000(1秒).formsOnTimer加入代码:SubForm_Timer()YourTextLabel.Visible=NotYourTextLabel.VisibleEnd_Sub设置标签字体颜色：Me.Label1.ForeColor=设置文本框颜色：Me.TextColor=300设置文本

6、框字体颜色：Me.TextFontColor=500标签等左边距离：Me.Label2.Left=2200定位控件Me.控件.Top=8290VBA编程Me.控件.Left=87-87ACSSESS-VBA100标签等字体粗细：Me.Label2.FontWeight=20000控件边框颜色：Me.Label2.BorderColor=0控件边框线条BorderStyle属性使用以下设置：透明0（仅对于标签、图表和子报表而言是默认值）透明的实线1（默认值）实线虚线2虚线短虚线3短虚线点线4点线稀疏点线5点距较宽的点线点划线6虚线与点线组合的点划线点点划线7虚线-点线-点线组合的点点

7、划线双实线8双实线指定控件的边框宽度使用BorderWidth属性可以指定控件的边框宽度取值：0或1－6指定控件是否透明使BackStyle属性可以指定控件是否透明。True、False解除子窗体锁定Me.进_子窗体.Locked=False'解除子窗体锁定将窗体上所有控件的输入法关掉!来源:不祥PrivateSubForm_Open(CancelAsInteger)DimctlAsAccess.ControlForEachctlInMe.ControlsDebug.