2.对象的属性和方法 P248 属性和方法：描述了对象的性质和行为。 引用：对象名.属性或对象名.方法[参数名表] 对象的属性例：label0.caption=“学生成绩表” 对象的方法例：textl.setfocus DoCmd对象： 有许多方法，如 Openform 打开窗体例如：DoCmd.Openform 学生登记” 60 RunMacro 运行宏操作等，例如 Docmd.RunMacro“mac1
属性和方法：描述了对象的性质和行为。 引用：对象名.属性 或 对象名.方法[参数名表] 对象的属性例：label0.caption=“学生成绩表” 对象的方法例： text1.setfocus DoCmd对象： 有许多方法，如 Openform 打开窗体 例如：DoCmd.Openform “学生登记” RunMacro 运行宏操作等，例如 Docmd.RunMacro “mac1” 2. 对象的属性和方法 P248
方法的例子 >打开当前数据库中的“雇员”窗体 省略的参数 DoCmd.OpenForm "Employees 方法 窗体名 Docmd.Runmacro "Macrol" 宏名
➢打开当前数据库中的“雇员”窗体 DoCmd.OpenForm "Employees Docmd.Runmacro “Macro1” 方法的例子 省略的参数 方法 窗体名 宏名
3.事件 P248 事件：对象可辨认的动作，如单击鼠标、按下某个键等 事件响应代码：若为一个事件编写一段VBA代码，则在事 件发生时执行代码，完成指定的动作 心教学管理宏-Form欢迎 代码) 回☒ 铝欢迎：窗体 ▣X Form Load ·11121·3·1·415·1·6·17148·19·1·10 主体 Option Compare Database Private Sub Form_Load( 欢避 未绑定 Me.Caption="欢迎" End Sub 2 显示 洁除 Private Sub命令2_1ick0 3 Me.文本0.SetFocus Me.文本0.Text=“您好I欢迎学习VBA" End Sub Private Sub命令Click() Me.文本.SetFocus Me.文本0.Text=“m End Sub 三厘0
3. 事件 P248 事件：对象可辨认的动作，如单击鼠标、按下某个键等 事件响应代码：若为一个事件编写一段VBA代码，则在事 件发生时执行代码，完成指定的动作
窗体中添加文本框和命令按钮，命令按钮属性中 “单击”事件中添加vba代码，然后窗体视图查看 结果。Private Sub命令2 Click(O 文本0.FontSize=20 End Sub 写form1:窗体 ▣x 1·1·1·2·1·3·1·4·1·5·1·6·1·7·1·8·1·9·1·10·1·11·11 主体 1 文本中： 未绑定 命令2
窗体中添加文本框和命令按钮，命令按钮属性中 “单击”事件中添加vba代码，然后窗体视图查看 结果。Private Sub 命令2_Click() 文本0.FontSize = 20 End Sub
8.3.2VBA编程环境 1.进入VBE编程环境P252 Microsoft Visual Basic Northwind ▣☒ 文件)编辑)视图)插入)调试)运行⑧)工具T)外接程序A) 窗口)帮助0 回说，日多品的 ■兰图愕》回 工程-or thwind for thwind-Porm类别窗体（代码） ▣☒ 打开窗体 Click 工程窗口 Worthwind (Horthwind) 选择 Option Compare Database 日-白Microsoft Access类对象 Private Sub打开窗体Entr0 选择对象 图Form_Switchboard 事件 图Form产品 End Sub Private Sub组合9 AfterUpdate0 图Form供应商 查找与该控件匹配的记录， 图Form订单 Dim rs As Object 图Form雇员 Set rs Me.Recordset.Clone rs.FindFirst类D】E”aStr0Me1[组合9]) 图Form类别因体 Me.Booknark rs.Booknark 图Form启动 End Sub Private Sub命令11 Click0 0 n Error GoTo Err命令1l_C1ick 属性一类别围体 Dim stDocNane As String Dim stLinkCriteria As String stDocName=“产品调整表窗体“ 属性窗口 类别窗体Form类别窗件 DoCmd OpenForm stDocName, stLinkCriteria 代码 按字母序引按分类序] Exit命令11 Click Exit Sub 选择对象 窗口 Recor dLocks Err命令11C1ick RecordSelectors True MsgBox Err.Description 的属性 RecordsetType 0 Resune卫xit_命令11_Click Recor dSource 类划 End Sub RoMeicht
8.3.2 VBA编程环境 工程窗口 －选择对象 属性窗口 －选择对象 的属性 代码 窗口 选择 事件 1. 进入VBE编程环境 P252