I don't understand WHY you are opening a query in code, then setting the FORM field?????
OOPS, the filter code will NEVER execute!
Only the lines in BLUE will execute.
Code:
Option Compare Database
Option Explicit
'------------------------------------------------------------
' LSD_Query_Click
'
'------------------------------------------------------------
Private Sub LSD_Query_Click()
On Error GoTo LSD_Query_Click_Err
DoCmd.OpenQuery "LSD_Query", acViewNormal, acEdit
DoCmd.Requery "" 'don't know why this command is here???
LSD_Query_Click_Exit:
Exit Sub
LSD_Query_Click_Err:
MsgBox Error$
Resume LSD_Query_Click_Exit
'------------------------------------------------------------
' because of the "Exit Sub" line,
' the following code will NEVER execute
'------------------------------------------------------------
Dim sWhere As String
If Not IsNull(Query_Section) Then sWhere = sWhere & " and [Section]='" & Me.Query_Section & "'"
If Not IsNull(Query_Twp) Then sWhere = sWhere & " and [Township]='" & Me.Query_Twp & "'"
If Not IsNull(Query_Rge) Then sWhere = sWhere & " and [Range]='" & Me.Query_Rge & "'"
If sWhere = "" Then
Me.FilterOn = False
Else
'remove the 1st 'and'
sWhere = Mid(sWhere, 5)
Me.Filter = sWhere
Me.FilterOn = True
End If
End Sub
To filter the FORM recordset, I would expect to see something more like:
Code:
'------------------------------------------------------------
' LSD_Query_Click
'
'------------------------------------------------------------
Private Sub LSD_Query_Click()
On Error GoTo LSD_Query_Click_Err
Dim sWhere As String
If Not IsNull(Query_Section) Then sWhere = sWhere & " and [Section]='" & Me.Query_Section & "'"
If Not IsNull(Query_Twp) Then sWhere = sWhere & " and [Township]='" & Me.Query_Twp & "'"
If Not IsNull(Query_Rge) Then sWhere = sWhere & " and [Range]='" & Me.Query_Rge & "'"
If sWhere = "" Then
Me.Filter = ""
Me.FilterOn = False
Else
'remove the 1st 'and'
sWhere = Mid(sWhere, 5)
Me.Filter = sWhere
Me.FilterOn = True
End If
LSD_Query_Click_Exit:
Exit Sub
LSD_Query_Click_Err:
MsgBox Err.Description & " - Error number: " & Err.Number
Resume LSD_Query_Click_Exit
End Sub