去掉撤消提示

不务实　发表于：2009-10-21 11:15:05 　

去掉撤消提示

当没有可撤消的时候,去掉微软的提示,改为自己的提示

如:
Private Sub Command33_Click()

On Error GoTo Err_Command33_Click

DoCmd.RunCommand acCmdUndo

Exit_Command33_Click:
Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click

End Sub

金矢发表于：2009-10-21 12:57:47

Err_Command33_Click:
MsgBox Err.Description
Resume Exit_Command33_Click
改为：

Err_Command33_Click:
MsgBox "无可撤消",,"提示"

Resume Exit_Command33_Click

金矢发表于：2009-10-21 14:49:58

补

按1楼改Msgbox代码后的运行效果截图：

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

Access交流中心