第9章 VBA数据库编程.ppt

9.1 VBA常见操作 1.打开和关闭操作 (1)打开窗体操作 一个程序中往往包含多个窗体，可以用代码的形式关联这些窗体，从而形成完整的程序结构。 命令格式为： DoCmd.OpenForm formname[,view] [,filtername] [,wherecondition] [,datamode] [,windowmode] 【例9.1】以对话框形式打开名为“学生信息登录”窗体。 DoCmd.OpenForm 学生信息登录,,,,acDialog 注意：参数可以省略，取缺省值，但分隔符“,”不能省略。 (2)打开报表操作 命令格式： DoCmd．OpenReport reportname[,view][,filtername][,wherecondition] (3)关闭操作 命令格式为： DoCmd.Close [,objecttype][,objectname][,save] 【例9.2】关闭名为“学生信息登录”窗体。 DoCmd.Close acForm,学生信息登录 如果“学生信息登录”窗体就是当前窗体，则可以使用语句：DoCmd.Close。 2.输入框(InputBox) 输入框用于在一个对话框中显示提示，等待用户输入正文并按下按钮、返回包含文本框内容的字符串数据信息。 格式如下： InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) 3.信息框(MsgBox) 消息框用于在对话框中显示消息，等待用户单击按钮，并返回一个整型值告诉用户单击哪一个按钮。 格式如下： MsgBox(prompt[,buttons][,title][,helpfile][,context]) 4.VBA编程验证数据 BeforeUpdate: 通过创建窗体或控件的BeforeUpdate事件过程，可以实现对输入到窗体控件中的数据进行各种验证。例如，数据类型验证、数据范围验证等。 【例9.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) (TimerInterval) :计时器间隔 其处理过程是：Timer事件每隔TimerInterval时间间隔就会被激发一次，并运行Timer事件过程来响应。这样重复不断，即实现“定时”处理功能。 【例9.5】设计一个用户登录窗体，输入用户名和密码，如用户名或密码为空，则给出提示，重新输入；如用户名或密码不正确，则给出错误提示，结束程序运行；如正确，则显示“欢迎使用!”信息。要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止这个登录过程。 代码如下： Option Compare Database Dim flag As Boolean 标志标量，用于存储按钮的单击动作 Dim second As Integer 计时器变量 Dim lcou