Access短文本零长度字符串字段VBA IsNull函数返回Null原因求解

核心原因 #

1. SQL查询和VBA读取的数据源不一致：你直接执行SQL语句是直接读取数据库表的原始数据，字段确实存储的是零长度字符串而非Null，所以WHERE organisation is null没有返回结果，符合预期。
2. Access表单绑定控件的默认转换逻辑：VBA中读取的Me.Organisation是绑定到字段的表单控件值，Access默认会把数据库中的零长度字符串转换为Null赋值给表单控件，所以IsNull()判断会返回True。
3. IsNull()函数本身的判断逻辑：VBA的IsNull()仅能识别Null值，零长度字符串""不属于Null，你现在的判断结果为True，恰好说明控件拿到的值已经被转换为Null了。

解决方案 #

方案1：用Nz()函数统一处理空值 #

Access VBA内置的Nz()函数可以直接把Null转换为你指定的默认值，一次性兼容Null和零长度字符串场景：

Dim orgStr As String
orgStr = Nz(Me.Organisation, "") ' Null自动转成零长度字符串
If orgStr = "" Then
    Label50.Caption = "0"
Else
    Label50.Caption = Len(orgStr)
End If

方案2：显式区分Null和零长度字符串 #

如果你需要严格区分两种空值状态，可以补全判断分支：

If IsNull(Me.Organisation) Then
    Label50.Caption = "null"
ElseIf Me.Organisation = "" Then
    Label50.Caption = "0"
Else
    Label50.Caption = Len(Me.Organisation)
End If

方案3：修改控件默认行为 #

可以在表单加载或者控件更新事件中强制把空值转换为零长度字符串，保证控件值和数据库存储一致：

Private Sub Form_Current()
    ' 每次切换记录时同步控件值和数据库存储
    If IsNull(Me.Organisation) Then
        Me.Organisation = ""
    End If
End Sub

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