M
mattc66 via AccessMonster.com
I have the below code, just before the End If, I have a statement to close
the form. However the form doesn't close. Can anyone see what I am missing?
If cb1 = -1 Then
stDocName = "rptOrderList"
strFilter = "QuoteID = Forms!frmQuotes!quoteID"
DoCmd.OpenReport stDocName, acPreview, , strFilter
DoCmd.SendObject acReport, , acFormatSNP, stEmail _
, , , "Requested Quote for - " & stJob & " Project", "Attached is the
requested quote from " & stBrand & ". Reference Quote#: " & stQuoteNum _
& ". If you cannot view the attachment, you will need to download the
free Snapshot Viewer at www.microsoft.com/downloads", True
DoCmd.Close , "sfrmPrintReport_C2"
End If
the form. However the form doesn't close. Can anyone see what I am missing?
If cb1 = -1 Then
stDocName = "rptOrderList"
strFilter = "QuoteID = Forms!frmQuotes!quoteID"
DoCmd.OpenReport stDocName, acPreview, , strFilter
DoCmd.SendObject acReport, , acFormatSNP, stEmail _
, , , "Requested Quote for - " & stJob & " Project", "Attached is the
requested quote from " & stBrand & ". Reference Quote#: " & stQuoteNum _
& ". If you cannot view the attachment, you will need to download the
free Snapshot Viewer at www.microsoft.com/downloads", True
DoCmd.Close , "sfrmPrintReport_C2"
End If