Filter By Selection
acCmdFilterBySelection
Filters the data on a form by the last selected field. Place the code behind a command button called cmdFilterSelect.
' ***************** Code Start *******************
' Code by Terry Wickenden
Private Sub cmdFilterSelect_Click()
On Error Goto ErrHandler
Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFilterBySelection
Exit Sub
ErrHandler:
Select Case Err.Number
Case 2046 'Filter not available at moment
MsgBox "Command not available"
Case Else
MsgBox Err.Number & vbCrLf & Err.Description
End Select
End Sub
' ***************** Code End *******************
