在Access中没有IsNothing函数，只有Is Nothing这样的判断。有时需要判断一下文本框的内容是否没有内容（或有错误）呢。可使用下面的函数
'===============================================================================-----Office中国--->>>>>>>>'-函数名称: gt_IsNothing'-功能描述: 判断是否为空'-输入参数: 参数1:rstr Variant 传递的内容'-返回参数: 无'-使用示例: gt_IsNothing txtName.value'-相关调用: 无'-使用注意: 不适用除零或字段来源错误等情况'-兼 容 性: 97,2000,XP,2003 compatible'-参考资料:'-作 者: 王宇虹 修改：王宇虹'-创建日期; 2002-08-26 更新日期: 2002-08-28 ,2003-11-15'-图 解:'===============================================================================--<>>>>>Public Function gt_IsNothing(rstr As Variant) As Boolean
Select Case VarType(rstr) '如果为空白 Case vbEmpty gt_IsNothing = True '如果为空 Case vbNull gt_IsNothing = True '如果是字符串但长度为0 Case vbString If Len(rstr) = 0 Then gt_IsNothing = True '如果出错 Case vbError gt_IsNothing = True '其它 Case Else gt_IsNothing = True
End Select
End Function