SQL查询更新和查入时怎么才能不提示

tian0shi

在代码中用SQL查询进行记录更新和插入时,总会自动弹出确认提示框,如果才能屏弊

Dim SQL as string

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

DoCmd.RunSQL SQL


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

ACMAIN_CHM

Dim SQL as string

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

CurrentProject.Connection.Execute

ACMAIN_CHM

Dim SQL as string

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

CurrentProject.Connection.Execute SQL

ACMAIN_CHM

用CurrentProject.Connection.Execute就不会出现提示了。

Henry D. Sy

docmd.setwarnings false
DoCmd.RunSQL SQL
docmd.setwarnings true

tian0shi

谢谢Henry D.Sy和ACmain CHM

6100535

看看,学一学