设置变量为Null值报错：Access表单自动填充ExpiryDate模块问题

嘿，我一眼就看出问题出在哪了——你把DysVld声明成了Integer类型，但Integer是值类型，根本存不了Null值！当DLookup返回Null（也就是tblInduction里对应的DaysValid为空）的时候，赋值操作直接就会触发错误。

核心问题分析 #

• Integer属于值类型，只能存储具体的整数，无法表示“无值”（Null）状态
• DLookup在找不到匹配记录或者目标字段为Null时，会返回Null，这时候给Integer变量赋值就会报错

修正后的代码 #

Private Sub IssueDate_AfterUpdate()
    If Not IsNull(Me.IssueDate) Then
        ' 改用Variant类型，它可以接收Null值
        Dim DysVld As Variant
        DysVld = DLookup("[DaysValid]", "tblInduction", "[ID] = " & Me.Induction)
        
        ' 正常判断是否为Null，执行对应逻辑
        If IsNull(DysVld) Then
            ' 永不过期，将ExpiryDate设为空
            Me.ExpiryDate = Null
        Else
            ' 计算并设置过期日期：IssueDate加上DaysValid天
            Me.ExpiryDate = DateAdd("d", DysVld, Me.IssueDate)
        End If
    Else
        ' 如果IssueDate被清空，同步清空ExpiryDate
        Me.ExpiryDate = Null
    End If
End Sub

额外说明 #

• Variant类型的作用：它是VBA的通用数据类型，既能存储数值、文本，也能存储Null，完美适配DLookup可能返回Null的场景
• 逻辑补全：加了Else分支处理IssueDate为空的情况，避免用户清空IssueDate后ExpiryDate还保留旧值
• 条件格式注意：如果你的Induction控件绑定的是文本类型的ID，需要给DLookup的条件加单引号："[ID] = '" & Me.Induction & "'"（不过通常ID都是数值类型，当前写法没问题）

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