Question

我正在尝试在文本框中输入时验证产品代码。我似乎无法找到一种方法来抛出一个消息框，说没有输入任何内容。

Me.txt_Product = UCase(Me.txt_Product)

If Not IsNull(upProd) Then
    If DCount("Validation_Test", "Validation_Testing_Table", "[Validation_Test] = '" & UCase(Me.txt_Product) & "'") >= 1 Then
        MsgBox "User Name Found!"
    ElseIf Me.txt_Product.Value = "" Then
        MsgBox "You Did Not Enter a Product Code!"
    Else
        MsgBox "User Name Not Found!"
    End If
End If

有关DCount或其他方法的帮助的建议吗？

Answer 1

我怀疑textbox是Null并且测试空字符串失败。处理Null或空字符串的可能性：

ElseIf Me.txt_Product.Value & "" = "" Then

将Null与＆＃34;＆＃34;连接起来（空字符串）返回空字符串。

Answer 2

您可以创建更好的逻辑流程：

Me!txt_Product.Value = UCase(Me!txt_Product.Value)

If Not IsNull(upProd) Then
    If Nz(Me!txt_Product.Value) = "" Then
        MsgBox "You Did Not Enter a Product Code!"
    Else
        If IsNull(DLookup("Validation_Test", "Validation_Testing_Table", "[Validation_Test] = '" & Me!txt_Product.Value & "'")) Then
           MsgBox "User Name Not Found!"
        Else
           MsgBox "User Name Found!"
        End If
    End If
End If

小心那些惊叹号。用户将在不被大喊的情况下理解该消息。

MS Access DCount验证

2 个答案: