Access Runtime 2010 操作查询警告
Access Runtime 2010 action query warnings
我有一台电脑没有安装MS Access,所以我安装了免费的运行time版本,这样电脑就可以用来做数据库了。
除了一个问题,我已经启动了数据库并且 运行ning。当操作查询是 运行 时,它们前面有一条警告消息。我已尝试更改信任中心设置,但仍然收到警告。
- 有没有办法在 运行time 版本中停止此警告消息并运行自动查询?
老实说,我真的不想在 VBA 中 docmd.setwarnings = false
。我认为如果我的完整版可以正常工作,那么我的 运行time 版本也应该可以。
- 我可以对
regedit
中的注册表项做些什么吗?
EDIT
警告信息如下:
"You are about to run an update query that will modify data in your
table.Are you sure you want to run this type of action query?"
When action queries are run they are preceded by a warning message. I
have tried changing the trust center settings but I still get the
warning.
这些操作查询警告和确认与信任中心设置无关。如果您想全面禁止它们,请查看访问选项 -> 客户端设置,然后向下滚动到 "Confirm" 部分。但我不建议你这样做。
按照 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
使用的自动编号值。
我有一台电脑没有安装MS Access,所以我安装了免费的运行time版本,这样电脑就可以用来做数据库了。
除了一个问题,我已经启动了数据库并且 运行ning。当操作查询是 运行 时,它们前面有一条警告消息。我已尝试更改信任中心设置,但仍然收到警告。
- 有没有办法在 运行time 版本中停止此警告消息并运行自动查询?
老实说,我真的不想在 VBA 中 docmd.setwarnings = false
。我认为如果我的完整版可以正常工作,那么我的 运行time 版本也应该可以。
- 我可以对
regedit
中的注册表项做些什么吗?
EDIT
警告信息如下:
"You are about to run an update query that will modify data in your table.Are you sure you want to run this type of action query?"
When action queries are run they are preceded by a warning message. I have tried changing the trust center settings but I still get the warning.
这些操作查询警告和确认与信任中心设置无关。如果您想全面禁止它们,请查看访问选项 -> 客户端设置,然后向下滚动到 "Confirm" 部分。但我不建议你这样做。
按照 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
使用的自动编号值。