第8章模块与vb程序设计.ppt

表8-25 VBA常用验证函数 函数名称 返回值 说明 IsNumeric Boolean值 指出表达式的运算结果是否为数值。返回 True，为数值 IsDate Boolean值 指出一个表达式是否可以转换成日期。返回 True，可转换 IsNull Boolean值 指出表达式是否为无效数据（Null）。返回 True，为无效数据 IsEmpty Boolean值 指出变量是否已经初始化。返回 True，未初始化 IsArray Boolean值 指出变量是否为一个数组。返回 True，为数组 IsError Boolean值 指出表达式是否为一个错误值。返回True，有错误 IsObject Boolean值 指出标识符是否表示对象变量。返回True，为对象 8.6.4　计时器触发事件Timer VB中提供Timer时间控件可以实现“计时”功能。但VBA并没有直接提供Timer时间控件，而是通过设置窗体的“计时器间隔（TimerInterval）”属性与添加“计时器触发（Timer）”事件来完成类似“计时”功能。 其处理过程是：Timer 事件每隔 TimerInterval 时间间隔就会被激发一次，并运行 Timer 事件过程来响应。这样重复不断，即实现“计时“处理功能。 注意：“计时器间隔”属性值是以毫秒（ms）为计量单位。1秒等于 1000毫秒。 例8-29 （计时器触发事件Timer例子） 例8-29 使用窗体的计时器触发事件Timer，在窗体的某标签上实现自动计秒功能（从0开始）。在窗体打开时开始计秒，单击其上按钮，则停止计秒，再单击按钮，继续计秒。 按钮事件过程 Private Sub cmd1_Click() If Me.TimerInterval = 0 Then Me.TimerInterval = 1000 继续触发计秒 Else Me.TimerInterval = 0 设置“计时器间隔”属性值为0时，停止触发计秒 End If End Sub 窗体打开（Open）事件过程 Private Sub Form_Open(Cancel As Integer) Me!Lab0.Caption = 0 Me.TimerInterval = 1000 设置“计时器间隔”属性值为1000毫秒 End Sub 窗体计时器触发（Timer）事件过程 Private Sub Form_Timer() 进行屏幕数据更新显示 Me!Lab0.Caption = CLng(Me!Lab0.Caption) + 1 End Sub 此外，“计时器间隔”属性值（如Me.TimerInterval=1000）也可以安排在代码中进行动态设置。而且可以通过设置“计时器间隔”属性值为零（Me.TimerInterval=0）来终止 Timer 事件继续发生。 8.6.5 几个特殊函数的使用1．Nz函数 Nz函数可以将Null值转换为0、空字符串（””）或者其他的指定值。在数据库字段数据处理过程中，如果遇到Null值的情况，就可以使用该函数将Null值转换为规定值以防止它通过表达式去扩散。 调用格式：Nz（表达式或字段属性值[，规定值]） 当“规定值”参数省略时，如果“表达式或字段属性值”为数值型且值为Null，Nz函数返回0；如果“表达式或字段属性值”为字符型且值为Null，Nz函数返回空字符串（””）。当“规定值”参数存在时，如果“表达式或字段属性值”为Null，Nz函数返回“规定值”。 在例9-11 的VBA代码中，有Nz函数的调用语句，可查看。 2．DCount函数 （例8-30 ） 使用 DCount 函数可以确定特定记录集（一个域）中的记录数。 调用格式：DCount(表达式，记录集[, 条件表达式]) 例8-30 在一个文本框控件中显示“学生”表中女学生的人数。 设置文本框控件的“控件来源 “属性为以下表达式： =DCount(学号 ， 学生 ， 性别= 女 ) 3． DAvg函数 （例8-31 ） 使用 DAvg 函数可以计算特定记录集（一个域）内一组值的平均值。 调用格式： DAvg (表达式，记录集[, 条件表达式]) 例8-31 在一个