Office中国论坛/Access中国论坛

标题: 执行追加查询或删除查询时如何用自己的提示文字替换程序默认的文字 [打印本页]

作者: jlsxux 时间: 2004-3-1 20:15
标题: 执行追加查询或删除查询时如何用自己的提示文字替换程序默认的文字
执行追加查询或删除查询时如何用自己的提示文字替换程序默认的文字，请各位高手指点。

作者: zhengjialon 时间: 2004-3-1 20:16
这是系统的不能替换，只能用DOCMD.SETWARING FALSE屏蔽掉，然后用MSGBOX “……”替换。

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

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

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

作者: zhengjialon 时间: 2004-3-1 23:17
你少了这一句：DOCMD.SETWARING FALSE

作者: paul16 时间: 2004-3-2 02:04
Private Sub Command1_Click()

DOCMD.SETWARING FALSE

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

作者: sea.er 时间: 2004-3-2 04:52
家龙，你怎么总是把这个写错啊，呵呵
DoCmd.SetWarnings False

作者: 086-china 时间: 2008-8-22 09:44
收下了

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