Microsoft access VBA MsgBox 没有响应，我做错了什么？

Question

所以我整理了资产检查 sheet。有一个 Check out 按钮，如果用户 ID 字段留空，我想要一条消息提示“需要用户 ID”。但是，我当前的代码并非如此，无论如何它都只接受按钮点击。我在这里错过了什么吗？（下面的代码）

Private Sub CHECK_OUT_BUTTON_Click()
    If (IsNull(Me.USER_ID)) Then
        MsgBox "User ID is required."
    Else
        If Me.Status.Value = "Checked Out" Then
           MsgBox "This device is currently in use."
        Else
            If (Me.Status.Value = "Available") And (Not IsNull(Me.USER_ID)) Then
                Me.Status.Value = "Checked Out"
                RunCommand acCmdSaveRecord
                Me.Requery
            End If
        End If
    End If
End Sub

Answer 1

看起来用户 ID 字段没有注册为 NULL，而是一个空字符串。

换行：

If(IsNull(Me.USER_ID)) Then

收件人：

If(Nz(Me!USER_ID.Value) = "") Then

应该捕获空的用户 ID

Microsoft access VBA MsgBox 没有响应，我做错了什么？

Microsoft access VBA MsgBox not responding, what am I doing wrong?

forms

ms-access

vba

checkout

msgbox