执行追加查询或删除查询时如何用自己的提示文字替换程序默认的文字

jlsxux

执行追加查询或删除查询时如何用自己的提示文字替换程序默认的文字，请各位高手指点。

zhengjialon

这是系统的不能替换，只能用DOCMD.SETWARING FALSE屏蔽掉，然后用MSGBOX “……”替换。

jlsxux

谢谢版主的回复，我按你指点的方法试了一下，但系统默认提示还是出现。现把这段代码写出如下，请指点一下怎样才能屏蔽系统提示。
Private Sub Command1_Click()

    DoCmd.OpenQuery "删除查询", acViewNormal, acEdit
    MsgBox "正在执行删除查询，确认吗？"  '这段提示可以出现，但在出现之前还是出现系统默认提示
End Sub

[此贴子已经被作者于2004-3-1 13:16:28编辑过]

zhengjialon

你少了这一句：DOCMD.SETWARING FALSE

paul16

Private Sub Command1_Click()

    DOCMD.SETWARING FALSE


    DoCmd.OpenQuery "删除查询", acViewNormal, acEdit
    MsgBox "正在执行删除查询，确认吗？"  '这段提示可以出现，但在出现之前还是出现系统默认提示
End Sub

sea.er

家龙，你怎么总是把这个写错啊，呵呵
DoCmd.SetWarnings False

086-china

收下了