Search by Date

On 1 Jan 2004 22:01:49 -0800, Join Bytes! (DD) wrote:
[color=blue]
>I have the following code,
>The user needs to search by any date they enter into a searchbox, my
>code is not working!
>Can someone give me a hint or??
>Regards
>
>Code
>Private Sub cmdFind_Click()
> Dim strTable As String
> Dim strField As String
> Dim strCriteria As String
>
> strCriteria = "*" & txtCriteria & "*"
>On Error GoTo FindErr
>
> Select Case OptSearch
> Case 1
> Me![frmSiteFilter].Form.Filter = "[ShipNumber] Like '*" &
> txtCriteria & "*'"
> Case 2
> Me![frmSiteFilter].Form.Filter = "[ShipDate]='#" &
>txtCriteria & "#'"
>
>
>
>End Select
> Me![frmSiteFilter].Form.FilterOn = True
>Exit Sub
>FindErr:
> Beep
> Me![frmSiteFilter].Form.Filter = ""
> Me![frmSiteFilter].Form.FilterOn = False[/color]

You are setting ShipDate as a string. It is surrounded by single
quotes - try removing those.

Me![frmSiteFilter].Form.Filter = "[ShipDate]=#" &
txtCriteria & "#"

Now it is a date literal.

- Jim