@אביי אמר באקסס | חיפוש בטופס:
קודם כל, תעביר את הקוד לפרוצדורה נפרדת:
ותקרא לה מתוך הארוע של תיבת הטקסט
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