ACCESS_VBA编程.doc

/NUMPAGES131

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

Next

指定一个控件能否接受焦点
Enabled属性：
me.控件.Enabled=true'能
=false'不能

指定一个控件能否被编辑：
locked
如：
me.控件.Locked=true
me.控件.Locked=false
设置控件标题显示的文字
Me.控件.Caption="显示窗体"

巧用标签做透明按钮
做一透明标签，在其鼠标按下与释放两个事件中设置SpecialEffect属性值：
1—凸起；2—凹陷

设置标签颜色：
Me.LabelColor=200
获得焦点及失去焦点时字段变更颜色。
如果你的控件是文本框，名称为“txt字段”，写如下代码：

PrivateSubtxt字段_GotFocus()
Me.txt字段.BackColor=12632256
EndSub

当中“12632256”是灰色，你可以自己选择希望的颜色，如果想在失去焦点时改为原来的颜色，写如下代码：

PrivateSubtxt字段_LostFocus()
Me.txt字段.BackColor=16777215
EndSub
使标签闪烁以引人注意
设置窗体的TimerInterval值为1000(1秒).

formsOnTimer加入代码:

SubForm_Timer()
YourTextLabel.Visible=NotYourTextLabel.Visible
End_Sub
设置标签字体颜色：
Me.Label1.ForeColor=
设置文本框颜色：
Me.TextColor=300
设置文本框字体颜色：
Me.TextFontColor=500
定位控件
Me.控件.Top=8290
Me.控件.Left=100
使控件获得焦点
Me.jxlb.SetFocus
显示获得焦点的控件的Name：
ctlAsControl
Setctl=Screen.ActiveControl
MsgBoxctl.Name

设置控件宽度/高度
Me.考生答案.Width=10000
Me.考生答案.Height=1000
标签等字体粗细：
Me.Label2.FontWeight=20000
控件边框颜色：
Me.Label2.BorderColor=0
控件边框线条
BorderStyle属性使用以下设置：
透明0（仅对于标签、图表和子报表而言是默认值）透明的
实线1（默认值）实线
虚线2虚线
短虚线3短虚线
点线4点线
稀疏点线5点距较宽的点线
点划线6虚