Date Search Problem

you need to lose the single quotes, ie.
Me![frmSiteFilter].Form.Filter = "[ShipDate]=#" &
txtCriteria & "#"



Join Bytes! (DD) wrote in message news:<1412655e.0401012203.571611f8@posting.google.com>...[color=blue]
> The user needs to search by a date they enter into the searchField my
> code is NOT working can anyone advise where i am going wrong please
> Regards
> DD
>
>
>
> 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]

Ixnay on the asterisk for dates. IOW, an * is OK for text, not for
dates.

DD wrote:
[color=blue]
> The user needs to search by a date they enter into the searchField my
> code is NOT working can anyone advise where i am going wrong please
> Regards
> DD
>
> 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]