修改系统内置消息对话框的问题

牛先生　发表于：2010-06-10 08:27:01 　

感谢煮江品茶斑竹和wj.s的帮助，我按你们说的进行了修改设置，挺好的，但是美中不足的就是屏蔽系统内置的以后，怎样才能再添上一句自己设置的提示语句呢？现在里面的代码是这样的：Private Sub 批量入库_Click()
On Error GoTo Err_批量入库_Click

    Dim stDocName As String
    DoCmd.SetWarnings False
    stDocName = ChrW(21152) & ChrW(24037) & ChrW(27719) & ChrW(24635) & ChrW(50)
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_批量入库_Click:
Exit Sub

Err_批量入库_Click:
    MsgBox Err.Description
    Resume Exit_批量入库_Click
    MsgBox "刚输入的数据已追加完毕"

End Sub

我将 “DoCmd.SetWarnings False”改为“DoCmd.SetWarnings True”以后，就又出现了系统内置的几个对话框了。

Top

wj.s 发表于：2010-06-10 09:53:55

Private Sub 批量入库_Click()
On Error GoTo Err_批量入库_Click

Dim stDocName As String

DoCmd.SetWarnings False

stDocName = ChrW(21152) & ChrW(24037) & ChrW(27719) & ChrW(24635) & ChrW(50)
DoCmd.OpenQuery stDocName, acNormal, acEdit

MsgBox "刚输入的数据已追加完毕"

DoCmd.SetWarnings True

Exit_批量入库_Click:
Exit Sub

Err_批量入库_Click:
MsgBox Err.Description
Resume Exit_批量入库_Click

End Sub

Top

牛先生发表于：2010-06-10 10:34:04

谢谢排长

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

修改系统内置消息对话框的问题