Access Window will not close when using CRAXDDRT and CurrentDb.name 1

[dtempleton]

Using Crytstal Rerports 8.5 and Access 2000.

I'm trying to create a Crystal report with my current Access Database. I can add a table to the report with the code below. After that, though, I cannot close Access. The database seems to close, but the Access window itself will not go away no matter how many times I manually try to close it.

Dim CrRpt As CRAXDDRT.Report
Set CrRpt = New CRAXDDRT.Report
.
.
CrRpt.Database.Tables.Add CurrentDb.name, "MYTABLE_1"
.
.
CrRpt.SaveAs "C:\MYREPORT_1.rpt", cr80FileFormat
Set CrRpt = Nothing

The problem seems to be coming from the "CrRpt.Database.Tables.Add" line. Any clue what I'm doing wrong? Is there another way to add that table?

 

[NorthNone]

Don't know your answer, but you might try posting this to one of the Crystal Reports areas and see if someone there can help you. This is what I got when I searched for Crystal Reports forums:

Business Objects: Crystal Reports 4 Other topics
Business Objects: Crystal Reports 3 Integrate
Business Objects: Crystal Reports 1 Formulas
Business Objects: Crystal Reports 2 Data Access

---------------------------------------
The customer may not always be right, but the customer is ALWAYS the customer.

 

[ordendelfai]

Did you ever get a reply to this, I am having a similar issue :-(

~Joel
As common courtesy and to help other members who might find your thread helpful in the future, please respond if the advice given resolved your issue.

 

[dtempleton]

Nope. Sorry.

Dave

 

[ordendelfai]

Wait, I think I found the answer (at least to my problem)!!

http://www.mvps.org/access/bugs/bugs0005.htm

It's another bug in access (a retarded one at that).



~Joel
As common courtesy and to help other members who might find your thread helpful in the future, please respond if the advice given resolved your issue.

 

[ordendelfai]

And here is the the Microsoft Thread:

http://support.microsoft.com/?id=190074

~Joel
As common courtesy and to help other members who might find your thread helpful in the future, please respond if the advice given resolved your issue.

 

[dtempleton]

I still can't figure it out, but I'll post a message if I do.

Thanks for the help!

 

[glalsop]

Can you set a reference to the CRAXDRT library (one D)? I just used this without a problem:

Private Sub Command0_Click()

Dim crxApp As New CRAXDRT.Application
Dim crxReport As CRAXDRT.Report

Set crxReport = crxApp.NewReport

crxReport.Database.Tables.Add CurrentDb.Name, "Table1"

crxReport.SaveAs "C:\MYREPORT_1.rpt", cr80FileFormat

Set crxApp = Nothing
Set crxReport = Nothing

End Sub

-Gary

 

[ordendelfai]

Try typing:

CrRpt.quit

This might fix the problem.

If not, check to see if you have any VBA or text box IF statements in the report itself referencing a boolean (true/false) control in a sub form. Similar to the sub form referencing a main form boolean expression with an If statement, a report referencing the subform will cause the same problem (this fixed my problem, just tested).



~Joel
As common courtesy and to help other members who might find your thread helpful in the future, please respond if the advice given resolved your issue.

 

[dtempleton]

Thanks Gary! That worked nicely