第十章 VBA数据库编程.pptVIP

第10章 VBA数据库编程 通过本章的学习，读者应该掌握以下内容： 1.VBA常见操作； 2.VBA的数据库编程； 10.1 VBA常见操作 1.打开和关闭操作 (1)打开窗体操作 一个程序中往往包含多个窗体，可以用代码的形式关联这些窗体，从而形成完整的程序结构。 命令格式为： DoCmd.OpenForm formname[,view] [,filtername] [,wherecondition] [,datamode] [,windowmode] 【例10.1】以对话框形式打开名为“学生信息登录”窗体。 DoCmd.OpenForm 学生信息登录,,,,acDialog 注意：参数可以省略，取缺省值，但分隔符“,”不能省略。 (2)打开报表操作 命令格式： DoCmd．OpenReport reportname[,view][,filtername][,wherecondition] (3)关闭操作 命令格式为： DoCmd.Close [,objecttype][,objectname][,save] 【例10.2】关闭名为“学生信息登录”窗体。 DoCmd.Close acForm,学生信息登录 如果“学生信息登录”窗体就是当前窗体，则可以使用语句：DoCmd.Close。 2.输入框(InputBox) 输入框用于在一个对话框中显示提示，等待用户输入正文并按下按钮、返回包含文本框内容的字符串数据信息。它的功能在VBA中是以函数的形式调用使用，其使用格式如下： InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) 3.信息框(MsgBox) 消息框用于在对话框中显示消息，等待用户单击按钮，并返回一个整型值告诉用户单击哪一个按钮。其使用格式如下： MsBox(prompt[,buttons][,title][,helpfile][,context]) 4.VBA编程验证数据 使用窗体和数据访问页，每当保存记录数据时，所做的更改便会保存到数据源表当中。在控件中的数据被改变之前或记录数据被更新之前会发生BeforeUpdate事件。通过创建窗体或控件的BeforeUpdate事件过程，可以实现对输入到窗体控件中的数据进行各种验证。例如，数据类型验证、数据范围验证等。 【例10.3】对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求：该文本框中只接受15~30之间的数值数据，提示取消不合法数据。 添加该文本控件的BeforeUpdate事件过程代码如下： Private Sub txtAge_BeforeUpdate (Cancel As Integer) If Me!txtAge = Or IsNull (Me!txtAge)Then 数据为空时的验证 MsgBox 年龄不能为空!,VbCritical,警告 Cancel = True 取消BeforeUpdate事件 ElseIf IsNumeric (Me!txtAge) = False Then 非数值数据输入的验证 MsgBox 年龄必须输入数值数据!,VbCritical,警告 Cancel = True 取消BeforeUpdate事件 Elseif Me! txtAge 15 or Me! txtAge 30 Then 非法范围数据输入的验证 MsgBox 年龄为15~30范围数据!,VbCritical,警告 Cancel = True 取消BeforeUpdate事件 Else 数据验证通过 MsgBox 数据验证OK!,VbInformation,通告 End If End Sub 5.计时事件(Timer) VB中提供Timer时间控件可以实现“定时”功能。但VBA并没有直接提供Timer时间控件，而是通过设置窗体的“计时器间隔(TimerInterval)”属性与添加“计时器触发(Timer)”事件来完成类似“定时”功能。 其处理过程是：Timer事件每隔TimerInterval时间间隔就会被激发一次，并运行Timer事件过程来响应。这样重复不断，即实现“定时”处理功能。 【例10.4】使用计时事件Timer在窗体的一个标签上实现自动计数操作