新建一个命令按钮,在命令铵钮向导的类别中选中“撤消记录”操作,点一下步,就完成了。
相应的VBA自动产生
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub
在平台中用mary(714173479)这个判断语句就行了:
Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
If MsgBox("确认修改", vbOKCancel, "提示") = vbOK Then
&