Office中国论坛/Access中国论坛

标题: SQL查询更新和查入时怎么才能不提示 [打印本页]

作者: tian0shi 时间: 2008-12-21 23:12
标题: SQL查询更新和查入时怎么才能不提示
在代码中用SQL查询进行记录更新和插入时,总会自动弹出确认提示框,如果才能屏弊

Dim SQL as string

SQL = "UPDATE sqrmatperproty SET sqrmatperproty.yn = No WHERE (((sqrmatperproty.yn)=Yes)) "

DoCmd.RunSQL SQL

这个代码在运行时会提示有XX条记录要被更新,是否确认,如何才能不显示这个消息,直接更新了.请高手指点

作者: ACMAIN_CHM 时间: 2008-12-22 00:19
Dim SQL as string

SQL = "UPDATE sqrmatperproty SET sqrmatperproty.yn = No WHERE (((sqrmatperproty.yn)=Yes)) "

CurrentProject.Connection.Execute

作者: ACMAIN_CHM 时间: 2008-12-22 00:19
Dim SQL as string

SQL = "UPDATE sqrmatperproty SET sqrmatperproty.yn = No WHERE (((sqrmatperproty.yn)=Yes)) "

CurrentProject.Connection.Execute SQL

作者: ACMAIN_CHM 时间: 2008-12-22 00:20
用CurrentProject.Connection.Execute就不会出现提示了。

作者: Henry D. Sy 时间: 2008-12-22 03:15
docmd.setwarnings false
DoCmd.RunSQL SQL
docmd.setwarnings true

作者: tian0shi 时间: 2008-12-22 20:28
谢谢Henry D.Sy和ACmain CHM

作者: 6100535 时间: 2008-12-23 10:52
看看,学一学

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)