Passing a value entered on a VB form to CR 1

[kab555]

Is there a way to pass a value (in my case a date) that is entered on a VB form into a Crystal Report? I'm using VB6 and CR8. I don't want to display the record selection formula as it is far to long and un-end-user friendly to view.

 

[kmcclung]

Dim sDate

If the format of the date in your report is truely a date, you'd format it like: (my date control is a masked edit box)

sDate = "Date(" & Right$(mskDate.Text, 4) & "," &
Left$(mskDate.Text, 2) & "," & Mid$(mskDate.Text, 3, 2) & &quot"

If it's a string in your report, you'd format it like:

sDate = Right$(mskDate.Text, 4) & Left$(mskDate.Text, 2) & Mid$(mskDate.Text, 3, 2)

Then pass it like:

ReportName.ParameterFields(0) = "Date;" & sDate & ";TRUE"

Where Date is the parameter name.

 

[kab555]

Thank you for the helpful suggestion.