access update语句执行_统一VBA中SQL语句执行的方法

要在 Access 中用 VBA 中执行操作查询，在不创建查询对象的前提下，一般主要有3种方法：

1. Access本身的方法：

DoCmd.RunSQL strSQL

2. DAO的方法：

CurrentDb.Execute strSQL

3. ADO的方法：

CurrentProject.Connection.Execute strSQL

DoCmd.RunSQL 方法：

DoCmd.RunSQL 方法是Access本身的方法，理论上它是首先方式，因为它有进度条，还会有确认消息框，在查询对象中使用的“Forms!窗体名!控件名”这样的变量它也能支持。但是当我们用代码去执行的时候，我们都很确定自己是要干什么的，所以这个时候完全不想让它显示确认消息框。那么就只好在执行前关闭确认消息框了，示例代码如下 ：

 DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True

从上面的示例代码中我们可以看出，每次调用 DoCmd.RunSQL 之前，都要用 DoCmd.SetWarnings False 关闭系统确认消息框，执行完之后再用 DoCmd.SetWarnings True 恢复系统确认消息