MS-Access复选框IF语句

您可以将AfterUpdate事件用于此类验证。

Nz 函数检查空值并将其分别转换为空字符串和0

对于客户订单号：

Private Sub txtCustomerOrderNo_AfterUpdate()
    If Nz(Me.txtCustomerOrderNo, "") <> "" Then
        Me.chk3 = True
    Else
        Me.chk3 = False
    End If
End Sub

对于项目值小于1万的项目：

Private Sub txtProjEstimate_AfterUpdate(Cancel As Integer)
    If Nz(Me.txtProjEstimate, 0) < 10000 Then
        Me.chk2 = True
    Else
        Me.chk2 = False
    End If
End Sub