Add Premium security features to your question to ensure its privacy or anonymity. Learn more about your ability to control Question Security today.
Private Sub cmdEmailRpt_Click() On Error GoTo Err_cmdEmailRpt_Click Dim stDocName As String 'DoCmd.Echo False stDocName = "rptAudit_Emails" DoCmd.SendObject acReport, stDocName, acFormatPDF 'DoCmd.Echo True Exit_cmdEmailRpt_Click: Exit Sub Err_cmdEmailRpt_Click: 'If the user closes the Email screen without sending. If Err.Number = 2501 Then Resume Exit_cmdEmailRpt_Click End If
Join the community of 500,000 technology professionals and ask your questions.