Vba 访问错误：语法错误-在IF语句中放置DCount时

我正在尝试创建的此功能具有多个功能。我希望它确保文本框不是空的，然后我希望它检查应用程序是否存在以及是否加载了应用程序

只有在删除文本框中的初始复选框为空时，我才能使其工作。我让它工作，但当我重新启动数据库时，它停止了工作。我一直收到以下错误消息：

运行时错误“3075”

查询表达式“[AppID]”中出现语法错误（缺少运算符）

这是我正在使用的代码：

Private Sub cmd_loadapp_click()
    If Me.txtAppID = "" Then
      MsgBox "Application ID cannot be blank, please try again.", vbOKOnly, "Invalid ID"
    Else
      If DCount("[AppID]", "tblApp", "[AppID] = " & Me![txtAppID] & "  ") > 0 Then
        DoCmd.OpenForm "Form1", acNormal, , "[AppID]=" & Me.txtAppID
        Me.txtAppID = ""
    Else
      MsgBox "Application ID does not exist, please try again.", vbOKOnly, "Invalid ID"
    End If
    End If
End Sub

任何人能给我的任何帮助都将不胜感激

祝福

---

Sampson

在您的DCount函数中，如果您从表单中附加txtAppID控件的内容，我认为您应该替换我！[txtAppID]和我一起。txtAppID

感谢whp为回答这个问题所做的贡献。我现在已经修复了这个问题和另一个由于在代码开头使用txtAppID=“而产生的错误。这是我用来让它工作的

If IsNull(txtAppID) Then
    MsgBox "Application ID cannot be blank, please try again.", vbOKOnly, "Invalid ID "
Else
If DCount("[AppID]", "tblApp", "[AppID] = " & Val(txtAppID)) = 1 Then
    DoCmd.OpenForm "Form1", acNormal, , "[AppID]=" & Me.txtAppID
    Me.txtAppID = ""
    Else
    MsgBox "Application ID does not exist, please try again.", vbOKOnly, "Invalid ID"
    End If
    End If

---

这是一场漫长的斗争，但我们做到了！再次感谢：）

您在哪一行收到错误，if语句还是openform？您好Gareth我在下面一行收到错误：if DCount（“[AppID]”、“tblApp”、“[AppID]=”&Me！[txtAppID]&“）>0然后感谢您的帮助！你好，ChipsLetten，我已经按照你的建议进行了调整，我仍然收到同样的错误。谢谢你迄今为止的帮助。