matlab msgbox 警告,如何取消操作查询的警告提示-DoCmd.SetWarnings False

时　间:2013-08-24 12:37:27

作　者:摘　要:取消操作查询的警告提示\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

Access软件网官方交流QQ群(群号:39785885)

Access源码网店