访问 DLookup 运行时 94 错误 - 无效使用 Null

问题描述

我想从存储它的表 Threshold 中搜索获取 lower_limit 值，但我总是得到：“错误运行时 94：无效使用空值”。我不希望子程序返回lower_limit，它只对SearchAbnormalities 的进一步步骤有用。 我检查了表 Threshold（PK 由 ID_parInput、rangeagein、gender 组成）并且有与此选择对应的行。

Private Sub SearchAbnormalities(ByVal ID_parInput As Integer,ByVal gender As String,ByVal eta As Integer,Optional ByVal insertedSysValue As Integer,Optional ByVal insertedDiaValue As Integer,Optional ByVal measureValue As String)

Dim rangeagein As String
Dim lower_limit As Integer
Dim upper_limit As Integer
    
rangeagein = giveMeTheRange(eta)
Debug.Print ID_parInput,gender,rangeagein '>>   12,female,middle(31-60)
    
lower_limit = DLookup("lower_limit","Threshold","rangeage ='" & rangeagein & "' And ID_par = " & ID_parInput & " And gender = '" & gender & "'")
    
'...

End Sub

解决方法

这不是处理 DLookup() 的正确方法。

当未找到查找值且常规值类型变量（字符串、整数、日期等）不能接受空值时，DLookup() 函数返回 Null。尝试分配 null 会产生著名的运行时错误 94 - Invalid use of Null。

因此，您需要将返回值分配给接受空值的 Variant。然后你可以检查一个值是否返回并采取相应的行动。

Dim returnValue As Variant,lower_limit As Integer

returnValue = DLookup("lower_limit","Threshold","rangeage ='" & rangeagein & "' And ID_par = " & ID_parInput & " And gender = '" & gender & "'")

'check for null
If IsNull(returnValue) Then
    'action for not found value
    'you may as well exit here
End If

'found,safe to assign
lower_limit = returnValue 

另一种方法是使用 Nz() 内置函数包装 DLookup，这基本上几乎相同。如果未找到该值，则返回第二个参数。

Dim value As String
value = Nz(DLookup("a","b","c=0"),"Not found")

关于返回的空值，DLookup 对我来说看起来不错。事实上，打印 where 条件会生成：

'rangeage ='middle(31-60)' And ID_par = 12 And gender = 'female' 

由于它返回 null，您最好仔细检查您的数据。