Dear All,
I learned how to use filter in a form. Is that possible to apply a filter to a subform from main form? Thanks.
Private Sub SearchName_AfterUpdate()
On Error GoTo ErrHandle
DoCmd.ShowAllRecords
Me.Filter = "SearchAll Like ""*" & Me.SearchName & "*"""
Me.FilterOn = True
Me.SearchName.SetFocus
ErrExit:
Exit Sub
ErrHandle:
Resume ErrExit
End Sub
On Error GoTo ErrHandle
DoCmd.ShowAllRecords
Me.Filter = "SearchAll Like ""*" & Me.SearchName & "*"""
Me.FilterOn = True
Me.SearchName.SetFocus
ErrExit:
Exit Sub
ErrHandle:
Resume ErrExit
End Sub
Best Regards,
Kevin
__._,_.___
Posted by: "zhaoliqingoffice@163.com" <zhaoliqingoffice@163.com>
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (1) |
.
__,_._,___
Tidak ada komentar:
Posting Komentar