MS Access表单控件锁定异常：sumBalance为空时误锁问题排查

需求：仅当子窗体总计为0时，锁定主窗体及子窗体的所有控件。
主窗体未绑定控件sumBalance的控件源为=Nz([frm_0_accs_fin_trans_journ_subf]![JournalTotal],"")，用于获取子窗体总计。

已在主窗体Current事件中编写两段VBA代码：

第一段代码 #

If IsNull(Me!sumBalance) Then
        Me!fin_trans_id.Locked = False
        Me!fin_trans_tstamp.Locked = False
        Me!fin_trans_description.Locked = False
        Me!frm_0_accs_fin_trans_journ_subf.Locked = False
    ElseIf Me!sumBalance < 0 Then
        Me!fin_trans_id.Locked = False
        Me!fin_trans_tstamp.Locked = False
        Me!fin_trans_description.Locked = False
        Me!frm_0_accs_fin_trans_journ_subf.Locked = False
    ElseIf Me!sumBalance > 0 Then
        Me!fin_trans_id.Locked = False
        Me!fin_trans_tstamp.Locked = False
        Me!fin_trans_description.Locked = False
        Me!frm_0_accs_fin_trans_journ_subf.Locked = False
    ElseIf Me!sumBalance = 0 Then
        Me!fin_trans_id.Locked = True
        Me!fin_trans_tstamp.Locked = True
        Me!fin_trans_description.Locked = True
        Me!frm_0_accs_fin_trans_journ_subf.Locked = True
End If

第二段代码 #

If Me!sumBalance = 0 Then
        Me!fin_trans_id.Locked = True
        Me!fin_trans_tstamp.Locked = True
        Me!fin_trans_description.Locked = True
        Me!frm_0_accs_fin_trans_journ_subf.Locked = True
    Else
        Me!fin_trans_id.Locked = False
        Me!fin_trans_tstamp.Locked = False
        Me!fin_trans_description.Locked = False
        Me!frm_0_accs_fin_trans_journ_subf.Locked = False
End If

预期效果：仅当sumBalance=0时锁定控件，其他情况均解锁。
实际问题：当sumBalance为空（子窗体无记录）时，控件也被锁定，无法新增记录。

原因分析 #

1. 控件源设置错误：Nz([...],"")会将子窗体无记录时的Null值转换为空字符串（""），而非保留Null。第一段代码中的IsNull(Me!sumBalance)判断不生效，因为空字符串不属于Null类型。
2. VBA类型转换陷阱：第二段代码中，空字符串与数值0比较时，VBA会自动将空字符串转换为0，导致Me!sumBalance = 0返回True，触发锁定逻辑，这就是子窗体无记录时控件被锁定的直接原因。

解决方案 #

方案1：修正控件源+优化代码逻辑 #

第一步：修改sumBalance控件源

将控件源改为：

=[frm_0_accs_fin_trans_journ_subf]![JournalTotal]

或保留Nz但返回数值类型：

=Nz([frm_0_accs_fin_trans_journ_subf]![JournalTotal], Null)

这样子窗体无记录时sumBalance为Null，有记录但总计为0时为数值0，避免字符串与数值的类型混淆。

第二步：替换为严谨的VBA代码

在主窗体Current事件中使用以下代码：

If IsNull(Me!sumBalance) Or Me!sumBalance <> 0 Then
    ' 子窗体无记录或总计不为0时，解锁所有控件
    Me!fin_trans_id.Locked = False
    Me!fin_trans_tstamp.Locked = False
    Me!fin_trans_description.Locked = False
    Me!frm_0_accs_fin_trans_journ_subf.Locked = False
Else
    ' 仅当总计明确为0时，锁定所有控件
    Me!fin_trans_id.Locked = True
    Me!fin_trans_tstamp.Locked = True
    Me!fin_trans_description.Locked = True
    Me!frm_0_accs_fin_trans_journ_subf.Locked = True
End If

方案2：不修改控件源，直接修正代码逻辑 #

如果不想改动控件源，可在代码中先判断空字符串的情况：

If Me!sumBalance = "" Or Me!sumBalance <> 0 Then
    Me!fin_trans_id.Locked = False
    Me!fin_trans_tstamp.Locked = False
    Me!fin_trans_description.Locked = False
    Me!frm_0_accs_fin_trans_journ_subf.Locked = False
Else
    Me!fin_trans_id.Locked = True
    Me!fin_trans_tstamp.Locked = True
    Me!fin_trans_description.Locked = True
    Me!frm_0_accs_fin_trans_journ_subf.Locked = True
End If

推荐方案1，因为将控件值统一为数值/Null类型，能避免后续其他逻辑出现类似的类型转换问题。

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