使用DoCmd.RunSQL进行INSERT和DELETE时删除确认

Question

我正在使用DoCmd.RunSQL方法根据用户在表单中执行的操作来INSERT和DELETE记录。它工作正常，但在删除或附加记录之前要求确认。如何删除确认。

顺便说一下，BeforeDelConfirm事件似乎不能与DoCmd.RunSQL一起运行。

Answer 1

而不是使用DoCmd.RunSql来运行您的SQL并担心警报，您可以使用它。

Dim sql as string
Dim dbs as DAO.Database
set dbs = CurrentDb()

sql = "INSERT INTO table(field1) VALUES(1)"
dbs.Execute sql, dbFailOnError

dbs.close
set dbs = nothing