[AccessD] Access Has Stopped Working!

[David Emerson]

Sorry - line breaks didn't come across.  Should have been 

DoCmd.OpenReport " rptRentalAgreement ", acPreview, , , acHidden

DoCmd.OutputTo acOutputReport, "rptRentalAgreement", "PDFFormat(*.pdf)",
strRAPDFName, False ', "", acExportQualityPrint

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
David Emerson
Sent: Wednesday, 2 November 2016 6:10 p.m.
To: 'Access Developers discussion and problem solving'; 'List'; 'Off Topic'
Subject: Re: [AccessD] Access Has Stopped Working!

Hi Rocky,

I had a similar situation.  I read somewhere that opening the report hidden
first solves the problem

DoCmd.OpenReport " rptRentalAgreement ", acPreview, , , acHidden
DoCmd.OutputTo acOutputReport, "rptRentalAgreement", "PDFFormat(*.pdf)",
strRAPDFName, False ', "", acExportQualityPrint


I also noticed in the second line above (copied from your code) you have a '
after False - this may cause a problem as well.

Regards

David Emerson
Dalyn Software Ltd
Wellington, New Zealand



-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Rocky Smolin
Sent: Wednesday, 2 November 2016 5:05 p.m.
To: 'Access Developers discussion and problem solving'; List; 'Off Topic'
Subject: [AccessD] Access Has Stopped Working!

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