![]() | |
![]() |
| | Thread Tools | Display Modes |
#1
| |||
| |||
|
#2
| |||
| |||
|
|
Hi, Does someone have a workaround for the issue below. I want to email a report as a Snapshot if the user has MSAccess 2000, 2002 or 2003 or a PDF if user has 2007 or 2010. I'm using the code below. The code does not run (nor does it compile) using 2003 because of the acFormatPDF. 'If MSAccess Version 2000, 2002 or 2003 then attach as Snapshot else 2007 or greater then attach as PDF If Left(GetAccessVersion, 2) = "9." Or _ Left(GetAccessVersion, 2) = "10" Or _ Left(GetAccessVersion, 2) = "11" Then 'Snapshot format DoCmd.SendObject acSendReport, "rptAcknowledged", acFormatSNP, rs! strEmail, vCCEmailAddress, , "Procedure Acknowledgement Requested for Lawyer: " & rs!strName, "The attached report shows you which Procedures you have been requested to acknowledge. Please open the Case Procedures form and click the ""Ack."" checkbox for each one not already acknowledged.", False Else 'acFormatPDF DoCmd.SendObject acSendReport, "rptAcknowledged", acFormatPDF, rs! strEmail, vCCEmailAddress, , "Procedure Acknowledgement Requested for Lawyer: " & rs!strName, "The attached report shows you which Procedures you have been requested to acknowledge. Please open the Case Procedures form and click the ""Ack."" checkbox for each one not already acknowledged.", False End If Thanks, Barry |
#3
| |||
| |||
|
|
In the immediate window or A2007 or A2010 type ?acFormatPDF replace acFormatPDF with the integer value from the immediate window. "Barry Edmund Wright" <barry.edmund.wri... (AT) witstoronto (DOT) ca> wrote in messagenews:aa49e81a-482e-486e-8970-6d700d3c3349 (AT) h7g2000yqa (DOT) googlegroups.com... Hi, Does someone have a workaround for the issue below. I want to email a report as a Snapshot if the user has MSAccess 2000, 2002 or 2003 or a PDF if user has 2007 or 2010. I'm using the code below. The code does not run (nor does it compile) using 2003 because of the acFormatPDF. 'If MSAccess Version 2000, 2002 or 2003 then attach as Snapshot else 2007 or greater then attach as PDF If Left(GetAccessVersion, 2) = "9." Or _ * Left(GetAccessVersion, 2) = "10" Or _ * Left(GetAccessVersion, 2) = "11" Then 'Snapshot format *DoCmd.SendObject acSendReport, "rptAcknowledged", acFormatSNP, rs! strEmail, vCCEmailAddress, , "Procedure Acknowledgement Requested for Lawyer: " & rs!strName, "The attached report shows you which Procedures you have been requested to acknowledge. Please open the Case Procedures form and click the ""Ack."" checkbox for each one not already acknowledged.", False Else 'acFormatPDF *DoCmd.SendObject acSendReport, "rptAcknowledged", acFormatPDF, rs! strEmail, vCCEmailAddress, , "Procedure Acknowledgement Requested for Lawyer: " & rs!strName, "The attached report shows you which Procedures you have been requested to acknowledge. Please open the Case Procedures form and click the ""Ack."" checkbox for each one not already acknowledged.", False End If Thanks, Barry |
#4
| |||
| |||
|
|
In the immediate window or A2007 or A2010 type ?acFormatPDF replace acFormatPDF with the integer value from the immediate window. "Barry Edmund Wright" <barry.edmund.wri... (AT) witstoronto (DOT) ca> wrote in messagenews:aa49e81a-482e-486e-8970-6d700d3c3349 (AT) h7g2000yqa (DOT) googlegroups.com... Hi, Does someone have a workaround for the issue below. I want to email a report as a Snapshot if the user has MSAccess 2000, 2002 or 2003 or a PDF if user has 2007 or 2010. I'm using the code below. The code does not run (nor does it compile) using 2003 because of the acFormatPDF. 'If MSAccess Version 2000, 2002 or 2003 then attach as Snapshot else 2007 or greater then attach as PDF If Left(GetAccessVersion, 2) = "9." Or _ * Left(GetAccessVersion, 2) = "10" Or _ * Left(GetAccessVersion, 2) = "11" Then 'Snapshot format *DoCmd.SendObject acSendReport, "rptAcknowledged", acFormatSNP, rs! strEmail, vCCEmailAddress, , "Procedure Acknowledgement Requested for Lawyer: " & rs!strName, "The attached report shows you which Procedures you have been requested to acknowledge. Please open the Case Procedures form and click the ""Ack."" checkbox for each one not already acknowledged.", False Else 'acFormatPDF *DoCmd.SendObject acSendReport, "rptAcknowledged", acFormatPDF, rs! strEmail, vCCEmailAddress, , "Procedure Acknowledgement Requested for Lawyer: " & rs!strName, "The attached report shows you which Procedures you have been requested to acknowledge. Please open the Case Procedures form and click the ""Ack."" checkbox for each one not already acknowledged.", False End If Thanks, Barry |
#5
| |||
| |||
|
|
Thanks Ron this does work: ?acFormatPDF returned: PDF Format (*pdf) I then substituted "PDF Format (*pdf)" for acFormatPDF in the code below: Below is all one continuous line DoCmd.SendObject acSendReport, "rptAcknowledged", "PDF Format (*pdf)", rs! strEmail, vCCEmailAddress, , "Procedure Acknowledgement Requested for Lawyer: " & rs!strName, "The attached report shows you which Procedures you have been requested to acknowledge. Please open the Case Procedures form and click the ""Ack."" checkbox for each one not already acknowledged.", False On May 20, 4:43 pm, "ron paii" <n... (AT) nospam (DOT) com> wrote: In the immediate window or A2007 or A2010 type ?acFormatPDF replace acFormatPDF with the integer value from the immediate window. "Barry Edmund Wright" <barry.edmund.wri... (AT) witstoronto (DOT) ca> wrote in messagenews:aa49e81a-482e-486e-8970-6d700d3c3349 (AT) h7g2000yqa (DOT) googlegroups.com... Hi, Does someone have a workaround for the issue below. I want to email a report as a Snapshot if the user has MSAccess 2000, 2002 or 2003 or a PDF if user has 2007 or 2010. I'm using the code below. The code does not run (nor does it compile) using 2003 because of the acFormatPDF. 'If MSAccess Version 2000, 2002 or 2003 then attach as Snapshot else 2007 or greater then attach as PDF If Left(GetAccessVersion, 2) = "9." Or _ Left(GetAccessVersion, 2) = "10" Or _ Left(GetAccessVersion, 2) = "11" Then 'Snapshot format DoCmd.SendObject acSendReport, "rptAcknowledged", acFormatSNP, rs! strEmail, vCCEmailAddress, , "Procedure Acknowledgement Requested for Lawyer: " & rs!strName, "The attached report shows you which Procedures you have been requested to acknowledge. Please open the Case Procedures form and click the ""Ack."" checkbox for each one not already acknowledged.", False Else 'acFormatPDF DoCmd.SendObject acSendReport, "rptAcknowledged", acFormatPDF, rs! strEmail, vCCEmailAddress, , "Procedure Acknowledgement Requested for Lawyer: " & rs!strName, "The attached report shows you which Procedures you have been requested to acknowledge. Please open the Case Procedures form and click the ""Ack."" checkbox for each one not already acknowledged.", False End If Thanks, Barry |
![]() |
| Thread Tools | |
| Display Modes | |
| |