访问VBA DoCmd.OpenQuery问题

时间:2017-02-09 12:22:51

标签: vba ms-access access-vba ms-access-2013

我有一个非常讨厌的问题,我在其他Access dbs中的历史记录非常好。

作为测试,我有一个带按钮的表格。 单击事件按钮用于运行简单查询,这是VBA:

Private Sub Command0_Click()

DoCmd.SetWarnings False

DoCmd.OpenQuery "mktbl_qry_Useable_Leads", acViewNormal, acEdit

DoCmd.SetWarnings True

End Sub

非常简单直接,然而,我不断获得Mac弹出列表,要求我选择一个子例程。

这有什么理由吗? 我尝试过具有相同结果的其他查询以及具有相同问题的另一个空白表单。它让我疯了。

非常感谢帮助。

1 个答案:

答案 0 :(得分:0)

您可以使用Database对象来运行查询。对于简单的查询,您不需要在数据库窗口中创建查询

CurrentDB.Execute" qdRunUpdateQuery",dbFailOnError + dbSeeChanges

CurrentDB.Execute"更新文章集价格= 10,其中id = 23",dbFailOnError + dbSeeChanges