ACCESS_VBA编程.doc
上传人:qw****27 上传时间:2024-09-12 格式:DOC 页数:131 大小:1.8MB 金币:15 举报 版权申诉
预览加载中,请您耐心等待几秒...

ACCESS_VBA编程.doc

ACCESS_VBA编程.doc

预览

免费试读已结束,剩余 121 页请下载文档后查看

15 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

/NUMPAGES131ACCESS-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![订单]![订单子窗体]![数量]判断窗体或报表中控件的数目,然后将该数目赋给一个变量。DimintFormControlsAsIntegerDimintReportControlsAsIntegerintFormControls=Forms!Employees.CountintReportControls=Reports!FreightCharges.Count设置控件可见性Dimi,iiAsIntegerForii=3To10Me.Controls.Item(ii).Visible=TrueNextFori=11To22Me.Controls.Item(i).Visible=FalseNext按特殊名在VBA中设置控件的可见性:Fori=27To47IfMe.Controls.Item(i).NameLike"A*"ThenMe.Controls.Item(i).Visible=FalseEndIfNext指定一个控件能否接受焦点Enabled属性:me.控件.Enabled=true'能=false'不能指定一个控件能否被编辑:locked如:me.控件.Locked=trueme.控件.Locked=false设置控件标题显示的文字Me.控件.Caption="显示窗体"巧用标签做透明按钮做一透明标签,在其鼠标按下与释放两个事件中设置SpecialEffect属性值:1—凸起;2—凹陷设置标签颜色:Me.LabelColor=200获得焦点及失去焦点时字段变更颜色。如果你的控件是文本框,名称为“txt字段”,写如下代码:PrivateSubtxt字段_GotFocus()Me.txt字段.BackColor=12632256EndSub当中“12632256”是灰色,你可以自己选择希望的颜色,如果想在失去焦点时改为原来的颜色,写如下代码:PrivateSubtxt字段_LostFocus()Me.txt字段.BackColor=16777215EndSub使标签闪烁以引人注意设置窗体的TimerInterval值为1000(1秒).formsOnTimer加入代码:SubForm_Timer()YourTextLabel.Visible=NotYourTextLabel.VisibleEnd_Sub设置标签字体颜色:Me.Label1.ForeColor=设置文本框颜色:Me.TextColor=300设置文本框字体颜色:Me.TextFontColor=500定位控件Me.控件.Top=8290Me.控件.Left=100使控件获得焦点Me.jxlb.SetFocus显示获得焦点的控件的Name:ctlAsControlSetctl=Screen.ActiveControlMsgBoxctl.Name设置控件宽度/高度Me.考生答案.Width=10000Me.考生答案.Height=1000标签等字体粗细:Me.Label2.FontWeight=20000控件边框颜色:Me.Label2.BorderColor=0控件边框线条BorderStyle属性使用以下设置:透明0(仅对于标签、图表和子报表而言是默认值)透明的实线1(默认值)实线虚线2虚线短虚线3短虚线点线4点线稀疏点线5点距较宽的点线点划线6虚