[AccessD] Access Has Stopped Working!

[Charlotte Foust]

I do the same thing, Doug.  It's too easy for me to mistype the string.

Charlotte Foust
(916) 206-4336

On Tue, Nov 1, 2016 at 10:09 PM, Doug Steele <dbdoug at gmail.com> wrote:

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