Access第八章VBA数据库编程.pptx

第8章 VBA数据库编程;本章主要内容;8.1 VBA常见操作;8.1 VBA常见操作;;;;;;;三、VBA编程验证数据;例8.4 对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。 要求：该文本框中只接受15~30之间的数值数据，提示取消不合法数据。 添加该文本控件的BeforeUpdate事件过程代码如下：（可进行事先验证）;四、计时事件(Timer);;操作步骤如下： (1)创建窗体timer，并在其上添加一个标签LNum和一个按钮bOK。 (2)打开窗体属性窗口，设置“计时器间隔”属性值为1000并选择“计时器触发”属性为“[事件过程]”项，如前图所示。点击其后的【…】，进入Timer事件过程编写事件代码。 注意，“计时器间隔”属性值以毫秒为计量单位，故输入1000表示间隔为1秒。 (3)设计窗体“计时器触发”事件、窗体“打开”事件和bOK按钮“单击”事件代码及有关变量的类模块定义如下：;Option Compare Datebase Dim i As Boolean 标记标量，用于存储按钮的单击动作 Private Sub bOK_Click ( ) 按钮单击事件 i = Not i End Sub Private Sub Form_Open (Cancel As Integer) 窗体打开事件 i = True 设置窗体打开时标记变量的初始状态为True End Sub Private Sub Form_timer ( ) 计时器触发事件 If i = True Then 根据标记变量决定是否进行屏幕更新 Me!lNum.Caption=CLng(Me!lNum.Caption)+1 标签更新 End If End Sub 在利用窗体的Timer事件进行动画效果设计时，只需将相关代码添加进Form_Timer( )事件模板中即可。 此外，“计时器间隔”属性值也可以安排在代码中进行动态设置(Me.TimerInterval=1000)。而且可以通过设置“计时器间隔”属性值为零(Me.TimerInterval=0)来终止Timer事件继续发生。 ;;当用户名和密码输入有问题时，会显示如图中的①、②、③或④； 当用户名和密码输入均正确时，会显示如图中的⑤所示。;表 登录窗体及控件属性;代码如下： Option Compare Database Dim i As Boolean 标志标量，用于存储按钮的单击动作 Dim second As Integer 计时器变量 Dim lcount As Integer 计次变量 Private Sub Form_Open(Cancel As Integer) 窗体打开事件 second = 0 事件计数器清 0 lcount = 0 登录计次变量清 0 End Sub Private Sub Form_Timer( ) 计时器触发事件 If second 30 Then MsgBox 请在30秒中登录, vbCritical, 警告 DoCmd.Close Else Me!lNum.Caption = 30 - second 倒计时显示 End If second = second + 1 计时器+1 End Sub;Private Sub OK_Click( ) 按钮单击事件 lcount = lcount + 1 计次+1 If Len(Nz(Me!username)) = 0 And Len(Nz(Me!userpassword)) = 0 And lcount = 3 Then 用户名和密码均为空时的处理 MsgBox 用户名和密码不能为空!请输入 + Chr(13) + Chr(13) + 您还有 3 - lcount 次机会,