@אביי אמר באקסס | חיפוש בטופס:
קודם כל, תעביר את הקוד לפרוצדורה נפרדת:
Private Sub ApplyFilter()
'Purpose: Build up the criteria string form the non-blank search boxes, and apply to the form's Filter.
'Notes: 1. We tack " AND " on the end of each condition so you can easily add more search boxes; _
we remove the trailing " AND " at the end.
' ..... כל שאר הקוד
End Sub
ותקרא לה מתוך הארוע של תיבת הטקסט
Private Sub Filter1_AfterUpdate()
ApplyFilter
End Sub
ותקרא לה גם מתוך הלחצן:
Private Sub cmdFilter_Click()
ApplyFilter
EndSub
כך נכון לעשות מכל הבחינות
שנית, אתה יכול להכריח לעבור לפקד הבא לאחר העדכון של תיבת הטקסט, על ידי שימוש בSetFocus(), למשל אם אתה רוצה לעבור אחרי לחיצת אנטר לפקד txtSomeControl:
Private Sub Filter1_AfterUpdate()
ApplyFilter
Me.txtSomeControl.SetFocus
End Sub
