[AccessD] Access Has Stopped Working!

[Rocky Smolin]

OK - I'll try the lizard thing first, then.

Thx

Rocky

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Doug Steele
Sent: Tuesday, November 01, 2016 10:09 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access Has Stopped Working!

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
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com