访问错误:语法错误-在IF语句中放置DCount时
访问错误:语法错误-在IF语句中放置DCount时
提问于 2014-12-02 12:18:31
我正在尝试创建的这个特性具有多个功能。我希望它确保文本框不是空的，然后我希望它检查应用程序是否存在，以及它是否加载了应用程序。
只有在删除文本框上的初始检查为空白时，才能使其工作。我让它开始工作，但是当我重新启动数据库时，它就停止工作了。我一直收到以下错误消息：
运行时错误“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任何人给我的任何帮助都会得到极大的认可。
桑普森最良好的祝愿
回答 2
Stack Overflow用户
回答已采纳
发布于 2014-12-04 10:59:58
谢谢大家为回答这个问题做出了贡献。我现在已经修复了这个问题和另一个错误，这是因为我在代码开始时使用了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这是一场漫长的斗争，但我们到了那里！再次感谢:)
Stack Overflow用户
发布于 2014-12-02 14:39:43
在DCount函数中，如果从表单中追加txtAppID控件的内容，我认为应该用Me.txtAppID替换我
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/27249291
复制相关文章
相似问题
腾讯云开发者
