Passing Date variable from VB to crystal

[rotomd]

Do I need to do anything special for this? I keep getting parameter errors when I try this code...

the two date parameters are set as dates in crystal.

Private Sub Command1_Click()
Dim sd, ed As Date
Dim sp As String
Dim cr As CrystalReport

    If sales_person_combo.Text = "" Then
        MsgBox "No Sales Person Entered", vbExclamation, "Error"
        Exit Sub
    End If
    sp = IIf(sales_person_combo.Text = "All Sales Persons", "*", sales_person_combo.Text)
    sd = Calendar1.Value
    ed = Calendar2.Value
    
    Set cr = main!CrystalReport1
    With cr
        .DiscardSavedData = False
        .ReportFileName = "\\dexter\shared\it dept\bid_db\salesperson_and_date_report.rpt"
        .ParameterFields(0) = "sales_person_parameter;" & sp & ";true"
        .ParameterFields(1) = "start_date_parameter;" & sd & ";true"
        .ParameterFields(2) = "end_date_parameter;" & ed & ";true"
        .Action = 0
    End With
end sub

 

[zemp]

What is the error? Could it be caused by 'sd' being declared as a variant?

zemp

 

[zemp]

Also what version of Crystal are you using? Which crystal objects are you using?

zemp

 

[rotomd]

The error is "invalid parameter"

I'm thinking now I might have my parameter field indexes messed up. is there any way to find out the exact index of a parameter (i know it's based on when they parameter was created)...?

 

[rotomd]

crystal reports 8.5 and I'm using crystl32.ocx

 

[rotomd]

ok, I figured it out.. you have to pass the date field like this..

.Parameter(0) = "date_parameter;Date(YYYY,MM,DD);True"

 

[zemp]

Glad to hear it and thanks for posting your solution. It will help someone else down the line.

zemp

 

[vidru]

For future reference, you can find the help files for the OCX control here:
Crystal Reports ActiveX (OCX) Control help file

-dave