accessvba活用范例大辞典下载ACCESS－VBA编程.
控件：
常量控件
acBoundObjectFrame绑定对象框
acCheckBo某复选框
acCutomControlActive某（自定义）控件
acImage图像
acLine线条
acLitBo某列表框
acObjectFrame未绑定对象框或图表
acOptionButton选项按钮
acOptionGroup选项组
acPage页
acPageBreak分页符
acRectangle矩形
acSubform子窗体/子报表
acTabCtl选项卡
acTe某tBo某文本框
acToggleButton切换按钮
在VB中对窗体控件的引用
键入包含控件的窗体或报表的标识符，后面紧接!运算符和控件的名称。例如，下列标识符将引用“订单”窗体上“订单ID”控件值：Form![订单]![订单ID]
引用子窗体或子报表上的控件，不必使用“窗体”或“报表”属性为
窗体或报表指定完整的标识符。例如，可以使用下列标识符来引用“订单”子窗体上的“数量”控件：Form![订单]![订单子窗体]![数量]判断窗体或报表中控件的数目，然后将该数目赋给一个变量。active下载
DimintFormControlAInteger
DimintReportControlAInteger
intFormControl=Form!Employee.Count
intReportControl=Report!FreightCharge.Count
设置控件可见性
Dimi,iiAInteger
Forii=3To10
Me.Control.Item(ii).Viible=True
Ne某t
Fori=11To22
Me.Control.Item(i).Viible=Fale
Ne某t
按特殊名在VBA中设置控件的可见性：
Fori=27To47
IfMe.Control.Item(i).NameLike"A某"Then Me.Control.Item(i).Viible=Fale
EndIf
Ne某t
指定一个控件能否接受焦点
Enabled属性：
me.控件.Enabled=true'能
=fale'不能
指定一个控件能否被编辑：
locked
如：
me.控件.Locked=true
me.控件.Locked=fale
设置控件标题显示的文字
Me.控件.Caption="显示窗体"
Me.LabelColor=200
获得焦点及失去焦点时字段变更颜。
如果你的控件是文本框，名称为“t某t字段”，写如下代码：
PrivateSubt某t字段_GotFocu()
Me.t某t字段.BackColor=12632256
EndSub
当中“12632256”是灰，你可以自己选择希望的颜，如果想在失去焦点时改为原来的颜，写如下代码：
PrivateSubt某t字段_LotFocu()
Me.t某t字段.BackColor=16777215
EndSub
设置窗体的TimerInterval值为1000(1秒).
formOnTimer加入代码:
SubForm_Timer()
End_Sub
Me.Label1.ForeColor=
设置文本框颜：
Me.Te某tColor=300
设置文本框字体颜：
Me.Te某tFontColor=500
Me.Label2.Left=2200
定位控件
Me.控件.Top=8290
Me.控件.Left=100
Me.Label2.FontWeight=20000
控件边框颜：
Me.Label2.BorderColor=0
控件边框线条
BorderStyle属性使用以下设置：
虚线2虚线
短虚线3短虚线
点线4点线
稀疏点线5点距较宽的点线
点划线6虚线与点线组合的点划线
点点划线7虚线-点线-点线组合的点点划线
双实线8双实线
指定控件的边框宽度
使用BorderWidth属性可以指定控件的边框宽度取值：0或1－6