open Crystal reports from an access form

[u2PJB]

Hi guys,

I was wondering if any of you would be able to help me out. I'm trying to get a button on an access form to open crystal reports and pass two parameters through to it from controls on the access form.

This is what I have at them moment:

Private Sub openRpt_Click()

Dim selForm As String
Dim CrystalReport1 As Crystal.crystalReport
Set CrystalReport1 = CreateObject("crystal.crystalreport")

CrystalReport1.Connect = "ODBC;UID=ID;PWD=PW;DSN=dsn;Database=dbname"
CrystalReport1.ReportFileName = "O:\Databases\CReports\Single Project Up To Burn Rate.rpt"
'CrystalReport1.WindowTitle = "Single Project Up To Burn Rate"
'CrystalReport1.WindowMaxButton = False
'CrystalReport1.WindowMinButton = False
'CrystalReport1.WindowState = crptMaximized

selForm = 'selection formula

CrystalReport1.SelectionFormula = selForm
CrystalReport1.ParameterFields(0) = "PeriodStart(" & Me.yearCode & ");true"
CrystalReport1.ParameterFields(1) = "ProjectNo(" & Me.projectNumber & ");true"
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1


End Sub

With this I'm currently getting a "Method 'Action' of object 'CrystalCtrl' failed" on the line CrystalReport1.Action = 1

My Ideal solution would open Crystal Reports in its own window, but if thats not possible opening in the access form would do.

currently running:
Access 2003
Windows Server 2003
Crystal Reports XI

Thanks

 

[Jennacat]

I need to know how to do this too!! Anybody have a solution? Except I'm using Access 2000 and Crystal Reports 2008.