如何取消操作查询的警告提示？Access去除查询提示框的方法-DoCmd.SetWarnings False

时　间:2013-08-24 12:37:27
作　者:杜超-2号   ID：16058  城市：江阴
摘　要:取消操作查询的警告提示\DoCmd.SetWarnings False\DoCmd.SetWarnings True 
正　文:

图   示:

代   码:

Private Sub 有提示_Click()
    DoCmd.RunSQL "Update 表 SET 字段 = '123' "            ' 运行更新查询
    MsgBox "完成"
End Sub

Private Sub 无提示1_Click()
    DoCmd.SetWarnings False                               ' 取消系统提示
    DoCmd.RunSQL "Update 表 SET 字段 = '123' "            ' 运行更新查询
    DoCmd.SetWarnings True                                ' 恢复系统提示
    MsgBox "完成"
End Sub

Private Sub 无提示2_Click()
    CurrentDb.Execute "Update 表 SET 字段 = '123' "        ' 用CurrentDb对象执行更新查询
    MsgBox "完成"
End Sub