Simple combo filter using a date - Data Mismatch?

[ste4en]

Having trouble with this simple combo report filter - not use a date for the filter before...what do i have wrong?

Private Sub Command2_Click()

Dim stDocName As String
Dim stCriteria As Date

stCriteria = "[Work Date]=" & "#" & Me![Combo0] & "#"

stDocName = "rptDailyTimeReport"
DoCmd.OpenReport stDocName, acPreview, , stCriteria


End Sub

Thanks

 

[SkipVought]

hi,

    Dim stCriteria As [red][b]STRING[/b][/red]
    
    stCriteria = "[Work Date]=" & "#" & Me![Combo0] & "#"

Skip,

_[red][/red]

 

[TheAceMan1]

How are ya ste4en . . .

. . . and this:

[blue]   stCriteria = "[Work Date] = #" & Format(Me!Combo0, "mm/dd/yyyy") & "#"[/blue]

See Ya! . . . . . .

 

[ste4en]

thanks both, it was the Dim stCriteria As STRING rather than DATE that got me.

 

[danvlas]

Assuming you enter a valid date in the combo, the Format choice should be more accurate, especially if Regional Settings are not English(US)

HTH


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html