这种错误通常是因为 DLookup 函数返回了 Null 值,而程序无法处理 Null 值造成的。解决方法是在使用 DLookup 函数之前先判断要查询的字段是否为空,如果为空则可以使用Nz函数将其转换成空字符串或其他默认值。
示例:
Dim strFieldName As String Dim strTableName As String Dim strCriteria As String Dim strValue As String
strFieldName = "FieldName" '要查询的字段名 strTableName = "TableName" '要查询的表名 strCriteria = "ID = 1" '查询条件 strValue = Nz(DLookup(strFieldName, strTableName, strCriteria), "") '使用 Nz 函数将 Null 值转换为空字符串
MsgBox strValue '显示查询结果