有两个click事件附在两个按钮上,其一语言如下:
Private Sub PODpreview_Click()
On Error GoTo Err_PODpreview_Click
Dim stDocName As String
stDocName = "POD"
DoCmd.OpenReport stDocName, acPreview
Exit_PODpreview_Click:
Exit Sub
Err_PODpreview_Click:
MsgBox Err.Description
Resume Exit_PODpreview_Click
End Sub
另一语言略 Private Sub modify_Click() 略.... 现在想实现按PODPreview按钮前必须已按过modify按钮,否则,对话框提示未按末地方y按钮。 如何修改PODPreview的Click事件语言?请高手指教!谢谢!