In the sub "cmdFilter_Click()", you are missing a space between the key word "Const" and the constant name, the constant name is missing the prefix "con" and a backslash is missing before the last hash:
Code:
ConstJetDate = "\#mm\/dd\/yyyy#"
should be
Code:
Const conJetDate = "\#mm\/dd\/yyyy\#"
You should have these two lines at the top of EVERY code module:
Code:
Option Database
Option Explicit
You have this code snippet: (two different variable names)
Code:
lngLen = Len(strWhere)
If longLen <= 0 Then
and his line should be
Code:
lngLen = Len(strWhere) - 5
You need to remove the last 5 characters of the string: a leading space, the word 'AND' and a trailing space.
Don't understand what you are trying to do in the sub "Form_Open".
What is the purpose of this line?
Code:
Me.Filter = "(False)"
To remove the filter, you would use:
Code:
Private Sub Form_Open(Cancel As Integer)
Me.Filter = ""
Me.FilterOn = FALSE
End Sub