asked on
Private Sub cmdCancel_Click()
Dim strMessage As String
On Error GoTo cmdCancel_Click_Error
Forms!frmReportGenerator.[Report Parameters].SetFocus
Forms!frmReportGenerator.[Report Parameters].Controls.txtSaveAs.SetFocus
On Error GoTo 0
Exit Sub
cmdCancel_Click_Error:
strMessage = "Error " & Err.number & " (" & Err.Description & ") in procedure cmdCancel_Click of VBA Document Form_frmSubRecipients-Add."
strMessage = strMessage & " Application will stop processing now." & vbNewLine
strMessage = strMessage & "Please note or copy this error message and contact application developer for assistance."
MsgBox strMessage, vbCritical + vbOKOnly, "Error"
End
End Sub