open crystal report in access form 1

[Hueby]

Hi all, Can I add a button on in my access form, and have it open a crystal report I made???? Would some code in the On_Click event do this?? Thanks!

 

[HitechUser]

Hueby,

You did not specify which version, but this may work for you..

Possibly try this:

The following steps show how to preview a report in Microsoft Access 2000:


1. Open Microsoft Access and create a new form using 'Design View'.

2. Under the 'Insert' menu, click 'ActiveX Control…'. The 'Insert ActiveX Control' box appears.

3. Select 'Crystal Report Control' and click 'OK'. The OCX control appears on the form.

4. Right-click the OCX control and select 'Properties', then Click the 'Other' tab.

5. Change the 'Name' property to 'CrystalReport1' (without quotes) and set the 'ReportFileName' property to the path of a report file (such as C:\Program Files\Seagate Software\Crystal Reports\Samples\En\Reports\Feature Examples\Formulas.rpt). You can use the ellipsis (&#8230 button to browse to a report.

6. Using the Access Toolbox, place a command button on the form. Click 'Cancel' when the 'Command Button Wizard' appears.

7. Right-click the command button and select 'Properties'. Click the 'Format' tab and set the 'Caption' property to 'Preview Report' (without quotes).

8. Click the 'Event' tab, and set the 'On Click' event to [Event Procedure] from the drop-down combo box.

9. Next to the drop-down arrow, click the ellipsis (&#8230 button. The Visual Basic editor appears.

10. In the Command1_Click() event, type the following line of code:

CrystalReport1.Action = 1

This line previews the report when the button is clicked.

11. Back in the form's design view, save and then view the form. Click the command button to preview the report.

HTH


Daniel

I hope this helps...

 

[Hueby]

I'm using CR 10 and Access 03. I'll try that method! thanks

 

[Hueby]

Wel.. it seems to be close to what I need. however I get a error on the "CrystalReport1.action = 1" code in the VB editor.. not sure what is going on...

 

[HitechUser]

It may be case-sensitive...

Use
CrystalReport1.Action = 1
not
CrystalReport1.action = 1

Sorry I do not have Crystal Reports...

 

[Hueby]

Anyone else have any ideas on this subject? thanks

 

[HitechUser]

Hueby,

Sorry to see you are still having problems. Maybe one of the following will help. Verify valid login..

Crystal

or this

Crystal2

or this

Connect Crystal

or this

Report

Once again I do not have Crystal report..

Good Luck...

 

[MzKitty]

Here's a sample of code that is used in one of my applications:
Private Sub cmdPaid_Click()
Screen.MousePointer = vbDefault
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Dim crxParameterField As CRAXDRT.ParameterFieldDefinition
Dim crxFormulaField As CRAXDRT.FormulaFieldDefinition
Set Report = crxApplication.OpenReport _
("E:\PLTERA\CRYSTAL REPORTS\HAULER REPORTS\paid.rpt", 1)
frmViewer.Show vbModal

ErrHandler:
' User pressed Cancel button.
Exit Sub
End Sub
Good Luck
Cathy

 

[MzKitty]

Sorry about my post up above - I have tunnel vision and gave you code for VB.
Cathy

 

[Hueby]

Heh, it's okay! I'll give a few more stabs at this for Access.. I already just wrote a small VB app to open it for now. Thanks everyone