[AccessD] Access Has Stopped Working!

[Doug Steele]

In my OutputTo statements, I use the built in parameter acFormatPDF instead
of "PDFFormat(*.pdf)", but according to the Object Browser they should be
completely equivalent.  But it might be worth a try.

When this kind of thing happened at my old job, my manager would tell me to
swing a lizard around my head three times then try the code again.
Surprising how often that worked...

Doug

On Tue, Nov 1, 2016 at 9:04 PM, Rocky Smolin <rockysmolin at bchacc.com> wrote:

> Dear List(s):
>
>
>
> I am running an accdb in A2010.  I want to convert a report to a pdf and
> attach it to an email.  This works perfectly on my machine.
>
>
>
> At the client site it does not. I spent two hours there today trying
> everything I could think of -  checking Microsoft update for patches fixes,
> updates, etc., decompiling, compact and repair, lacing the code with
> DoEvents, running as administrator - nothing worked.  I did track the
> problematic line of code.  It is the line with
>
>
>
> DoCmd.OutputTo acOutputReport
>
>
>
> And Access Stopped Working on this line of code almost every time.  I say
> almost because a couple of times it ran - generated both pdfs and popped up
> the email with the two report pdfs attached!  Which is why I tried the
> DoEvents.  But it barfed pretty consistently on that first DoCmd.OutputTo
> acOutputReport,
>
>
>
> Here's the code:
>
>
>
> strFrontEndPath = db.Name
>
> Do While Right(strFrontEndPath, 1) <> "\"
>
>     strFrontEndPath = Left(strFrontEndPath, Len(strFrontEndPath) - 1)
>
> Loop
>
> strRAPDFName = strFrontEndPath & "RentalAgreement-" _
>
>     & Me.cboNameAndAddress.Column(1) & "-" _
>
>     & Me.fldRAHOrderNumber & ".pdf"
>
> strRAPDFName = Replace(strRAPDFName, "*", "")
>
>
>
> DoCmd.OutputTo acOutputReport, "rptRentalAgreement", "PDFFormat(*.pdf)",
> strRAPDFName, False ', "", acExportQualityPrint
>
> 'Call ConvertReportToPDF("rptRentalAgreement", , strRAPDFName, , False)
>
>
>
> strCCPPDFName = strFrontEndPath & "CreditCardPermission-" _
>
>     & Me.cboNameAndAddress.Column(1) & "-" _
>
>     & Me.fldRAHOrderNumber & ".pdf"
>
> strCCPPDFName = Replace(strCCPPDFName, "*", "")
>
>
>
> DoCmd.OutputTo acOutputReport, "rptCreditCardPermissionForEmail",
> "PDFFormat(*.pdf)", strCCPPDFName, False ', "", acExportQualityPrint
>
> 'Call ConvertReportToPDF("rptCreditCardPermissionForEmail", ,
> strCCPPDFName,
> , False)
>
>
>
>
>
> You can see the previous legacy code which worked for a long time in A2003
> -
> the calls to ConvertToPDF - which I have commented out.  That doesn't work
> anymore.
>
>
>
> So I'm really stumped.  Has anyone had this problem and found a solution?
> Two martinis to the genius who can post an effective fix.
>
>
>
> MTIA
>
>
>
>
>
> Rocky Smolin
>
> Beach Access Software
>
> 760-683-5777
>
>  <http://www.bchacc.com> www.bchacc.com
>
>  <http://www.e-z-mrp.com> www.e-z-mrp.com
>
> Skype: rocky.smolin
>
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>