Crystal and Visual Basic HELP!

[B1naryPro]

I would like to pass a paramater from visual basic (Textbox) to the header of a crystal report. I have a text box with a date that the user selects in visual basic, i would like that value to show up on the reports header. any help greatly appreciated JPBinary
MCSE, MCSA

 

[kovas]

'The Application object is used to open an external RPT file as a Report object.
Public CrxApplication As New CRAXDRT.Application
Public CrxReport As CRAXDRT.Report

Set CrxReport = CrxApplication.OpenReport("Report.rpt&quot
CrxReport.ParameterFields.GetItemByName("Date&quot.AddCurrentValue txtDate.Text
CRViewer1.ViewReport

You would have to create a parameter named Date in your report and set the Value Type to Date

 

[B1naryPro]

Currently i have this code
Private Sub cmdView_Click()

Dim dteReturnValue As Date
Dim dteReturnValue2 As Date
Dim strControl As String
Dim strControl2 As String
Dim iResponse As Integer
dim rpttotalstats as

On Error GoTo ReportFailed

If IsDate(txtStartDate) And IsDate(txtEndDate) Then
dteReturnValue = txtStartDate
dteReturnValue2 = txtEndDate
strControl = Format$(dteReturnValue, "yyyymmdd&quot
strControl2 = Format$(dteReturnValue2, "yyyymmdd&quot

rpTotalStats.ReportFileName=gsReportPath"\CAOTotalStats.rpt"


rptTotalStats.SelectionFormula = "{CAO.DateReceived} in Date(" & Left(strControl, 4) & "," & Mid(strControl, 5, 2) & "," & Right(strControl, 2) & &quot to Date(" & Left(strControl2, 4) & ", " & Mid(strControl2, 5, 2) & "," & Right(strControl2, 2) & &quot"
rptTotalStats.WindowLeft = 0
rptTotalStats.WindowTop = 0
rptTotalStats.WindowState = 2
rptTotalStats.Action = 1 JPBinary
MCSE, MCSA

 

[kovas]

I think you need to create two parameters in your report, StartDate and EndDate. Then pass strControl to StartDate and strControl2 to EndDate.

rptTotalStats.ParameterFields.GetItemByName("StartDate&quot.AddCurrentValue strControl

in your selection formula replace strControl with the parameters you created {?StartDate} and {?EndDate}

something like this I think

hope this helps

 

[B1naryPro]

thank you for your help but this is how i did it and it works great....
rptCAOYeartoDate.Formulas(0) = "Yearly = '" + txtStartDate.Text & " " & "to" & " " & txtEndDate.Text + "'"
once again thanks JPBinary
MCSE, MCSA