Private Sub crystal11_AfterUserChanged()
  
   Dim app1 As New CRAXDRT.Application
   Dim report As CRAXDRT.report
  
   Set report = app1.OpenReport("C:\Documents and Settings\ola_q\My Documents\GP\report\TO HOME MAY CONCERN2.rpt")

    report.DiscardSavedData
    report.ParameterFields(1).ClearCurrentValueAndRange
    report.ParameterFields(1).AddCurrentValue (txtEmployeeID.Value)
    CRViewer.ReportSource = report
    CRViewer.Refresh
    CRViewer.ViewReport
  
   Set app1 = Nothing
    Set report = Nothing

End Sub

i'm writing this code on vb and i keep have this error

Run time error "424"
object required

ola

____________________________
ola

Hi,
Just a guess.. you haven't said where the error occurs but should

CRViewer.ReportSource = report

be

Set CRViewer.ReportSource = report

?
Kieron



____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)