You can not only check how the filter was invoked, but you can also intercept the process when the filter is applied. : Form Events « Forms « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Forms
  3. Form Events

You can not only check how the filter was invoked, but you can also intercept the process when the filter is applied.

 
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
    Dim intAnswer As Integer
    If ApplyType = acApplyFilter Then
        intAnswer = MsgBox("You just selected the criteria: " & _
                         Chr(13) & Chr(10) & Me.Filter & _
                         Chr(13) & Chr(10) & "Are You Sure You Wish " & __
                         to Proceed?", vbYesNo + vbQuestion)
        If intAnswer = vbNo Then
            Cancel = True
        End If
    End If
End Sub








Related examples in the same category

1.Writing the Form_Error Event Procedure
2.Assign form Recordset in its open action
3.CancelEvent: DoCmd.CancelEvent()
4.IsLoad function
5.Form Before Update action
6.The Undo event executes before changes to a row are undone.
7.Key down event
8.If the data in the form dirty
9.Form_Filter
10.The Load Event Assigning a Recordset Object to the Form
11.Code for the Move Previous Button
12.Code for the Move Next Button
13.Code for the Add Button
14.Deleting a Record
15.Code for the Find Button