[AccessD] Access Has Stopped Working! (Working Solution)

[Dan Waters]

Hi Rocky,

This is indeed a bug which has been around for years.  This is how I handle it in my system.

'----------------------------

            '-- To resolve a 2046 bug in Access (see KB 244695) a software object must be opened before the 'OutputTo' method is called.

            '-- Open any read-only query (this opens a database window referred to in KB 244695)
            DoCmd.OpenQuery "qryGlobalErrors"

            '-- Output report from the file it's in
            If varObjectType = acReport Then

                DoEvents
                DoCmd.OpenReport stgObjectName, acViewPreview, , , acHidden

                DoEvents
                DoCmd.OutputTo acOutputReport, stgObjectName, acFormatPDF, stgAccessObjectPath

                DoEvents
                DoCmd.Close acReport, stgObjectName, acSaveNo

            Else

                DoEvents
                DoCmd.OutputTo varObjectType, stgObjectName, varOutputFormat, stgAccessObjectPath

            End If

            '-- Close the read-only query
            DoCmd.Close acQuery, "qryGlobalErrors"

'----------------------------

Good Luck!
Dan

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Wednesday, November 02, 2016 5:11 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access Has Stopped Working!


 Would be good to get the fault from the event log and then see if it is the same in each case.

  If it is, then your probably tripping over a bug.

Jim. 

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Wednesday, November 02, 2016 01:37 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access Has Stopped Working!

I'll try that tomorrow. Un-commenting the last two parameters of the OutputTo didn't change the result.  Still barfed.  

I assume then after the output to you close the hidden report?

Thx

R

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Tuesday, November 01, 2016 10:10 PM
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

--
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