我有一台未安装MS Access的PC,因此我安装了免费的运行时版本,以便PC可用于数据库。
我已经启动了数据库并且运行了一个问题。运行操作查询时,会在其前面显示警告消息。我尝试过更改信任中心设置,但仍然收到警告。
如果我诚实的话,我真的不想在VBA中docmd.setwarnings = false
。我认为如果我的完整版本工作正常,那么我的运行时版本也应该。
regedit
中的注册表项吗?修改
警告信息如下:
“您即将运行更新查询,该查询将修改您的数据 table。您确定要运行此类操作查询吗?“
答案 0 :(得分:4)
当运行操作查询时,它们前面会显示警告消息。一世 我曾尝试更改信任中心设置,但我仍然得到了 警告。
这些操作查询警告和确认与信任中心设置无关。如果您想全面禁止它们,请查看访问选项 - >客户端设置,然后向下滚动到"确认"部分。但我不建议你那样做。
使用Christopher建议的DAO.Database.Execute
方法。您可以将CurrentDb
用于DAO.Database
,或将对象变量设置为CurrentDb
并使用该变量中的.Execute
:
Dim db As DAO.Database
Set db = CurrentDb
db.Execute "overdue_Query", dbFailOnError
对象变量方法允许您检查db.RecordsAffected
并获取最后使用的自动编号值 *见下文:Debug.Print db.OpenRecordset("SELECT @@Identity")(0)
同样.Execute
的灵活性在于它将接受已保存查询的名称(如上所述)或SQL语句。所以你可以这样做......
Dim strDelete As String
strDelete = "DELETE FROM tblFoo;"
db.Execute strDelete, dbFailOnError
MsgBox db.RecordsAffected & " records deleted"
* 从该对象变量执行的最后一个INSERT
使用的自动编号值。