MS Access文本框产品代码验证：空输入提示实现问题

嘿，我仔细瞅了下你的MS Access代码，发现两个关键问题导致空输入时弹不出提示：

1. 外层条件锁死了逻辑执行：你用If Not IsNull(upProd)把所有内部判断都包起来了——要是upProd是空值，整个代码块直接跳过，空输入的提示逻辑自然根本没机会跑。
2. 判断顺序搞反了：就算进入了内部逻辑，你先查的是DCount的结果，才检查文本框是否为空。当文本框为空时，DCount(...)会找等于空字符串的记录，大概率返回0，然后直接跳到最后一个Else分支，弹出"User Name Not Found!"，完全不是你想要的空输入提示。

修正后的代码 #

' 先统一转大写（空值转大写还是空，不影响判断）
Me.txt_Product = UCase(Me.txt_Product)

' 第一步：优先检查文本框是否为空（同时覆盖Null和空字符串两种情况）
If IsNull(Me.txt_Product.Value) Or Me.txt_Product.Value = "" Then
    MsgBox "You Did Not Enter a Product Code!"
Else
    ' 第二步：处理upProd相关逻辑（如果upProd不是必须校验项，可根据需求调整）
    If Not IsNull(upProd) Then
        ' 第三步：检查产品代码是否存在
        If DCount("Validation_Test", "Validation_Testing_Table", "[Validation_Test] = '" & Me.txt_Product & "'") >= 1 Then
            MsgBox "Product Code Found!" ' 这里建议把提示里的User Name改成Product Code，避免混淆
        Else
            MsgBox "Product Code Not Found!"
        End If
    Else
        ' 要是upProd为空时需要提示，在这里加逻辑，比如：
        MsgBox "upProd value is missing!"
    End If
End If

额外优化小建议 #

• 提示文本里的"User Name"和你实际验证的产品代码不匹配，改成"Product Code"更准确，避免用户困惑。
• 为了避免SQL拼接的潜在风险（哪怕Access风险低，好习惯得养成），可以用参数查询替代直接拼字符串：

  Dim db As DAO.Database
  Dim qdf As DAO.QueryDef
  Dim matchCount As Long
  
  Set db = CurrentDb
  Set qdf = db.CreateQueryDef("", "SELECT Count(*) FROM Validation_Testing_Table WHERE [Validation_Test] = [@ProdCode]")
  qdf.Parameters("[@ProdCode]") = Me.txt_Product
  matchCount = qdf.OpenRecordset()(0)
  
  If matchCount >= 1 Then
      MsgBox "Product Code Found!"
  Else
      MsgBox "Product Code Not Found!"
  End If
  

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