MS Access无效使用Null错误(Error94)：添加末尾代码即报错求助

这个问题的核心是Null值的处理和VBA变量类型的特性，咱们一步步拆解：

为什么添加最后一行会触发Error 94（无效使用Null）？ #

当你的DLookup("[personelID]", "[tbl_ics238Table]", eventStrCriteria)没有找到符合条件的记录时，它会返回Null值。这时候后续的操作会引发两个关键问题：

1. 变量类型不兼容：你把eventID声明为Integer（值类型），而VBA的数值类型变量无法存储Null。当你尝试将Null赋值给eventID时，其实已经埋下了错误隐患——移除最后一行时，程序没有用到这个有问题的变量，所以错误没有暴露；但添加最后一行后，你在DLookup的查询条件中使用了eventID，这个Null值被直接带入查询，触发了“无效使用Null”的错误。
2. 查询条件拼接错误：即使eventID能存储Null，拼接后的条件会变成"[eventID] =Null"，而Access中判断字段是否为Null需要用Is Null，不是=Null，这种错误的条件写法也会直接引发Error 94。

修复方案 #

1. 修正变量类型

把eventID改为Variant类型，这样它可以存储Null值：

' 把Integer改为Variant，支持存储Null值
Dim eventID As Variant

2. 增加Null值检查逻辑

在使用eventID之前，先判断它是否为Null，避免后续操作出错：

memberID = CLng(Me.Text18)
eventStrCriteria = "isNull([check-OutDate]) And (employeeID = " & memberID & ")"
eventID = DLookup("[personelID]", "[tbl_ics238Table]", eventStrCriteria)

' 先检查是否找到有效记录
If Not IsNull(eventID) Then
    MsgBox DLookup("[eventName]", "[tbl_EventInformation]", "[eventID] =" & eventID)
Else
    MsgBox "未找到匹配的人员记录！"
End If

3. 额外检查：字段名拼写

注意代码里的[personelID]是不是拼写错误？通常正确拼写是personnelID（双n），如果字段名写错，DLookup会直接返回Null，这也是导致问题的常见原因之一，建议核对数据表的字段名称。

内容的提问来源于stack exchange，提问作者Jake