LISTING 1: Event Procedures for Managing Filtering with the Filter Property

Private Sub Form_Open(Cancel As Integer)
Me.FilterOn = False
DoCmd.Save acForm, Me.Name
End Sub

Private Sub cboFilterState_AfterUpdate()
Me.Filter = "state = '" & Me.cboFilterState.Value & "'"
Me.FilterOn = True
End Sub

Private Sub cmdShowAll_Click()
Me.Filter = ""
End Sub