filter ?

  • Thread starter Thread starter Guest
  • Start date Start date
Alternatively, you can filter the form based on your combo box, cmbName,
selection.

Private Sub cmbName_AfterUpdate()
On Error GoTo Err_cmbName_AfterUpdate

If IsNull(cmbName.Value) Then
Me.Filter = ""
Me.FilterOn = False
Else
Me.Filter = "[strName]='" & cmbName.Value & "'"
Me.FilterOn = True
End If

Exit_cmbName_AfterUpdate:
Exit Sub

Err_cmbName_AfterUpdate:
MsgBox "cmbName_AfterUpdate Error: " & Err.Number & ": " & Err.
Description
Resume Exit_cmbName_AfterUpdate
End Sub
 
Back
Top