VBA中Null使用无效问题求助：Access组合框空值判断报错

你的问题核心是String类型变量无法存储Null值：当Me.CARS.Column(1)返回Null时，直接赋值给String类型的var会触发「Invalid use of null」错误，这也是你尝试多种判断方式都报错的原因。

给你两种可行的解决方法：

方法一：改用Variant类型变量+IsNull判断 #

Variant类型可以容纳Null值，先完成赋值再做判断：

Dim var As Variant
var = Me.CARS.Column(1)
' 同时判断Null和空字符串，覆盖两种空值场景
If IsNull(var) Or var = vbNullString Then
    MsgBox "Yes"
End If

方法二：用Nz函数转换Null为空字符串 #

Nz函数能直接将Null替换为你指定的默认值（这里设为空字符串），这样就可以安全赋值给String变量：

Dim var As String
' 把Null转换成空字符串后再赋值
var = Nz(Me.CARS.Column(1), vbNullString)
If var = vbNullString Then
    MsgBox "Yes"
End If

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