date syntax in RecordSelectionFormula

[msay]

I have a user pick a date in VB6 and try to pass it to a report with the following code:
Report.RecordSelectionFormula = "{ado.startWK} = #" & stDate & "#"

the variable 'stDate' is a date.
I get an error. Any ideas welcome. Thanks...

 

[synapsevampire]

Share what the error is...

-k

 

[msay]

Sorry about that. My error is "A number, currency amount, boolean or string is expected here." The code hangs at Report.RecordSelectionFormula = "{ado.startWK} = #" & stDate & "#"

Thanks...

 

[synapsevampire]

This implies that ado.startWK is NOT a date.

-k

 

[msay]

Curious because ado.startWk is formated as Date/Time field in my access database.
The following code comes just before my Report.RecordSelectionFormula.

Dim stDate As Date
stDate = CDate(SSDateCombo1.Text)
Report.RecordSelectionFormula = "{ado.startWK} = #" & stDate & "#"
'===================

Report.RecordSelectionFormula = "{ado.startWK} = #3/3/2003#" is what is being output.

 

[synapsevampire]

It looks as though you convert it to a date, and then treat it as a string, leave it as text and pass that:

Dim stDate As Text
stDate = SSDateCombo1.Text
Report.RecordSelectionFormula = "{ado.startWK} = #" & stDate & "#"

-k

 

[chelseatech]

The #date# format is region specific.

Convert your date to Date(2003,3,31) and it will always work. Editor and Publisher of Crystal Clear

http://www.chelseatech.co.nz/pubs.htm

 

[msay]

chelseatech,
I'm not quite sure what you mean "Convert your date to Date(2003,3,31)" Before the Report.RecordSelectionFormula?

 

[synapsevampire]

He means in lieu of:

#" & stDate & "#"

use:

"{ado.startWK} = cdate(" & stDate & &quot"

-k

 

[msay]

This is the code I finnally got to work...

Dim stDate As String
stDate = Format(SSDateCombo1.Text, "yyyy,mm,dd&quot
Report.RecordSelectionFormula = "{ado.startWK} = date(" & stDate & &quot"

Thanks to all for the help!
MS