עזרה באקסס אירוע 'בעת שינוי' שלא יעביר את הפוקוס מהפקד

לוי א

משתמש צעיר
שלום וברכה,
אני מנסה ליצור קוד שיפעיל פילטר על הטופס באירוע 'בעת שינוי' (OnChange) של תיבת טקסט
עם הקוד הזה

קוד:
Private Sub Fltr_OnChange()
Me.Filter = "FirstName = '" & me.Fltr.text & "' "
me.FilterOn = True
End Sub

הבעיה היא שכשהוא מריץ את השורה שמפעילה את הפילטר (FilterOn = True) שזוהי בעצם פקודה כללית בטופס, הוא 'מאבד' את הסמן שמקליד, וכל התיבת טקסט שבה הזנתי את הערך לפילטור מושחרת, כך שאם אני ממשיך להקליד זה מוחק את מה שכבר כתוב

יש פתרון לזה אם עושים את הנתונים בטופס משנה, ואז האירוע מחיל פילטר רק על הטופס משנה, ואז אפשר להקליד גם אחרי הפעלת האירוע
אני צריך את הפילטר על הטופס עצמו, יש לזה פתרון אחר?
 

אייקוד

משתמש פעיל
קוד:
Private Sub Fltr_OnChange()
    Dim cValue As String
    cValue = Me.Fltr.text
    
    Me.Filter = "FirstName = '" & me.Fltr.text & "' "
    me.FilterOn = True
    
    Me.Fltr.SetFocus
    Me.Fltr = cValue
    Me.Fltr.SelStart = Len(cValue)
End Sub
 

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט ב'

ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ:
נקרא  9  פעמים

לוח מודעות

למעלה