Run time Error '3075' (Missing Operator) - DoCmd.ApplyFilter task

[csababenyi]

Hi All.

I am trying to create a simple date search function but Access always complaining about the DoCmd.ApplyFilter task.

See below. Any insight would be greatly appriciated.

Option Compare Database

Private Sub Command22_Click()
' Search button
Call Search
End Sub
Sub Search()
Dim strCriteria, task As String

Me.Refresh
If IsNull(Me.OrderDateFrom) Or IsNull(Me.OrderDateTo) Then
    MsgBox "Kérem adjon meg dátum sort", vbInformation, "Dátum sor Szükséges"
    Me.OrderDateFrom.SetFocus
Else
    strCriteria = "([DATUM] >= #" & Me.OrderDateFrom & "& And [DATUM] <= #" & Me.OrderDateTo & "#)"
        task = "select * from tEFI2021 where (" & strCriteria & ") order by [DATUM]"
    DoCmd.ApplyFilter task
   
End If

End Sub

Private Sub Command23_Click()
Dim task As String

    Me.OrderDateFrom = Null
    Me.OrderDateTo = ""
        task = "select * from tEFI2021 where (" & strCriteria & ") order by [DATUM]"
        DoCmd.ApplyFilter task
   
    
End Sub

Search button Syntax Error (Missing Operator):

Clear button Sytnax Error (Missing Operator):

Got stuck, must be something simple I am overlooking. Thank you.

 

[csababenyi]

Found 1 typo and corrected it, but now when using Search this is the new error message.

Before:

strCriteria = "([DATUM] >= #" & Me.OrderDateFrom & "& And [DATUM] <= #" & Me.OrderDateTo & "#)"

After:

strCriteria = "([DATUM] >= #" & Me.OrderDateFrom & "# And [DATUM] <= #" & Me.OrderDateTo & "#)"

DoCmd.ApplyFilter task is still highlighted with yellow.

the Clear button has no change same error as before.

 

[Micron]

You have at least 2 errors in that. See if this helps

DoCmd.ApplyFilter method (Access)

Office VBA reference topic

docs.microsoft.com

 

[csababenyi]

You have at least 2 errors in that. See if this helps

DoCmd.ApplyFilter method (Access)

Office VBA reference topic

docs.microsoft.com

Thank you for the direction, cant seem to be able to implement it properly. I will try a few more methods. Let you know.