如何在access弹窗时，自动选“是”，求大神

侠少黄

我写了一个窗体，执行多条查询，每次都要询问，有没有一种方法让它询问的时候自动选“是”，或者干脆不弹窗


代码如下：
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click





    Dim stDocName As String
   
    stDocName = "更新查询 INTEL HD gfx DT-1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
   

   stDocName = "更新查询 INTEL HD gfx DT-2"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
   
     stDocName = "更新查询 INTEL HD gfx DT-3"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
   
    stDocName = "更新查询 INTEL HD gfx DT-4"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

   
Exit_Command0_Click:
    Exit Sub
   
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click


   
End Sub

侠少黄

求大神，小弟在此拜谢了

Renco

DoCmd.SetWarnings 0    '不提示
DoCmd.SetWarnings -1  ' 提示

侠少黄

Renco 发表于 2013-8-29 15:25
DoCmd.SetWarnings 0    '不提示
DoCmd.SetWarnings -1  ' 提示

这个语句应该加在代码的什么位置呢？

Renco

dim 下面

DoCmd.SetWarnings 0
表示关闭信息警告语

DoCmd.SetWarnings -1
放在exit sub
前面
表示运行完之后，打开信息，以免之需要有关提示