模块与VBA编程解读.ppt

8.7.4 VBA编程验证数据 【例8.38】对窗体fScore上文本框控件txtScore中输入学生分数数据进行验证。要求：该文本框中只接受大于等于0且小于等于100的数值数据，若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下。 Private Sub txtScore_BeforeUpdate(Cancel As Integer) If Me!txtScore= Or IsNull(Me!txtScore) Then 数据为空时的验证 MsgBox 成绩不能为空！，vbCritical , 警告 Cancel= True 取消BeforeUpdate事件 ElseIf IsNumeric(Me!txtScore) = False Then 非数值型数据输入的验证 MsgBox 成绩必须输入数值数据！，vbCritical , 警告 Cancel = True 取消BeforeUpdate事件 ElseIf Me!txtScore 0 and Me!txtScore 100 Then 非法范围数据的验证 MsgBox 分数为0～100范围数据！，vbCritical , 警告 Cancel = True 取消BeforeUpdate事件 Else MsgBox 数据验证OK！，vbInformation , 通告 End If End Sub 验证函数 函数名称 返回值 说明 IsNumeric Boolean值 指出表达式的运算结果是否为数值。返回True，为数值 IsDate Boolean值 指出一个表达式是否可以转换成日期。返回True，可转换 IsEmpty Boolean值 指出变量是否已经初始化。返回True，未初始化 IsError Boolean值 指出表达式是否为一个错误值。返回True，有错误 IsArray Boolean值 指出变量是否为一个数组。返回True，为数组 IsNull Boolean值 指出表达式是否为无效数据（Null）返回True，无效数据 IsObject Boolean值 指出标识符是否表示对象变量。返回True，为对象 8.7.5 计时事件Timer VBA通过设置窗体的“计时器间隔（TimerInterval）”属性与添加“计时器触发（Timer）”事件来完成类似“计时”功能。 其处理过程是：Timer事件每隔TimerInterval时间间隔就会被激发一次，并运行Timer事件过程来响应。这样重复不断，即实现“计时”处理功能。 注意：“计时器间隔”属性值是以毫秒（ms）为计量单位，1秒等于1000毫秒。 8.7.5 计时事件Timer 【例8.39】在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。 Private Sub Form_Load( ) Me.TimerInterval = 1000 End Sub Private Sub Form_Timer( ) Me!Text1 = Now( ) End Sub 【操作演示】 8.8 VBA的数据库编程技术 要开发出更具有实际应用价值的Access数据库应用程序，还应当了解和掌握VBA的数据库编程方法。 8.8.1 数据库引擎及其接口 在Microsoft Office VBA中主要提供了3种数据库访问接口： 开放数据库互连应用编程接口(Open DataBase Connectivity API，简称ODBC API) 数据访问对象(Data Access Object，简称DAO) ActiveX数据对象(ActiveX Data Objects，简称ADO)。 8.8.2 VBA访问的数据库类型 VBA通过数据库引擎可以访问的数据库有以下3种类型： 本地数据库：即Access数据库。 外部数据库：指所有的索引顺序访问方法(ISAM)数据库，如dBase、FoxPro。 ODBC数据库：符合开放数据库连接(ODBC)标准的C/S数据库。如Microsoft SQL Server、Oracle等。 8.8.3 数据访问对象(DAO) 利用DAO可以完成对数据库的创建、修改、删除和对记录的定位和查询等。