J
Jarrod Shumaker
The following will let the user input a value into a text box and filter on
a set of queries depending on what the submit to the function.
***************************
Button the user clicks
**************************
Private Sub Command429_Click()
DoCmd.ShowAllRecords
Me.FilterOn = False
If IsNull(Me![NAME OF INPUT BOX ON THE FORM]) Then
DoCmd.ApplyFilter "QUERY TO APPLY FILTER TO", ""
FilterOn = True
Else
DoCmd.ApplyFilter "QUERY TO APPLY FILTER TO", ""
FilterOn = True
End If
End Sub
***************************************************************************
Input Box
***************************************************************************
Private Sub FilterCase_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
DoCmd.ShowAllRecords
Me.FilterOn = False
NAME OF INPUT BOX ON THE FORM = Null
NAME OF INPUT BOX ON THE FORM.SetFocus
End Sub
a set of queries depending on what the submit to the function.
***************************
Button the user clicks
**************************
Private Sub Command429_Click()
DoCmd.ShowAllRecords
Me.FilterOn = False
If IsNull(Me![NAME OF INPUT BOX ON THE FORM]) Then
DoCmd.ApplyFilter "QUERY TO APPLY FILTER TO", ""
FilterOn = True
Else
DoCmd.ApplyFilter "QUERY TO APPLY FILTER TO", ""
FilterOn = True
End If
End Sub
***************************************************************************
Input Box
***************************************************************************
Private Sub FilterCase_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
DoCmd.ShowAllRecords
Me.FilterOn = False
NAME OF INPUT BOX ON THE FORM = Null
NAME OF INPUT BOX ON THE FORM.SetFocus
End Sub