חיבור סורק ברקוד לאקסס

[ליבל]

@איש-פלוני תנסה להשתמש בעת הטעינה בפקד הזה

DoCmd.GoToControl "שם הפקד"

[Shmuel754]

@איש-פלוני
אחרי setfocus תפעיל seltext

[איש פלוני]

@Shmuel754
seltext מחזיר שגיאה.
אולי אני לא כותב אותו נכון. איך אני אמור לכתוב אותו?

[איש פלוני]

@ליבל לא עזר.

[מלא]

@איש-פלוני
אולי תנסה לכתוב בעת טעינה של הטופס

me.מדף.SetFocus

הטקסט אמור להיות נבחר בצורה הזאת.

[איש פלוני]

@מלא לא נבחר

[ארי]

@איש-פלוני מה קורה כשאתה כותב כך:

DoCmd.OpenForm "מחברקודספרברקוד", acFormDS, , "ID = " & ScanValue
Form_מחברקודספרברקוד.מדף.SetFocus

[מלא]

@איש-פלוני
זה משהו מוזר,
בדרך כלל בפתיחת טפסים השדה הראשון נבחר כל הטקסט.
בכל הטפסים שלך זה כן ככה?

[איש פלוני]

@ארי אותו דבר. נכנס לי לשדה, אבל לא בוחר את הטקסט.

[ארי]

@איש-פלוני שתי השורות שהבאת הם כל הקוד?
או שיש חלק שאתה לא מראה לנו?

[ארי]

@איש-פלוני תגיד, הטופס נפתח בתצוגת טופס או כטבלה?

[איש פלוני]

@מלא עכשיו אני חושב שאולי זה בגלל שהוא לא פותח את הטופס שוב, אלא מוצא בו נתונים כשהוא כבר פתוח. (בטופס הזה ב'לאחר עדכון' בשדה מדף הגדרתי שיעלה לי שוב את החלון של הכנסת הנתונים של הברקוד [שפותח עם פוקוס על השדה מדף], כדי שיהיה נוח לי לשנות כמה נתונים ברצף)
בפתיחה הראשונה של הטופס הוא באמת בוחר לי את הטקסט, גם בלי קוד מיוחד.

[איש פלוני]

@ארי תצוגת גליון נתונים

[איש פלוני]

@ארי את כל הקוד בעצם הבאתי למעלה, מצורף שוב (הכנסתי את שאר האופציות הנוספות שהציעו פה כדי שיכנס ישר לשדה ספציפי בהערה בקוד):

Private Sub מדף_AfterUpdate()
Dim ScanValue As String
ScanValue = InputBox("אנא הקלד את הערך שסרק הסורק:")

'בדיקת תקינות הערך שסרק הסורק
If IsNumeric(ScanValue) Then
    'בדיקת קיומו של הערך בטבלה
    Dim RecordExists As Boolean
    RecordExists = Not IsNull(DLookup("ID", "מחברקודספר", "ID = " & ScanValue))

    If RecordExists Then
        DoCmd.OpenForm "מחברקודספרברקוד", acFormDS, , "ID = " & ScanValue
              Forms("מחברקודספרברקוד").Controls("מדף").SetFocus

        'Form_מחברקודספרברקוד.מדף.SetFocus
        'Me.מדף.SetFocus

    Else
        MsgBox "ערך לא קיים במאגר הנתונים, אנא נסה שוב"
    End If
Else
    MsgBox "ערך לא תקין, אנא נסה שוב"
End If

End Sub

[איש פלוני]

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

תודה רבה לכל העוזרים והמסייעים!

[Y.Excel.Access]

@איש-פלוני כתב בחיבור סורק ברקוד לאקסס:

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

DoCmd.OpenForm "מחברקודספרברקוד", acFormDS, , "ID = " & ScanValue
Forms("מחברקודספרברקוד").Controls("מדף").SetFocus

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

לוודא שזו לא הגדרה פשוטה:
האם וידאת שהבעיה לא נעוצה בהגדרות הכלליות של אקסס?
נווט ל - אפשרויות - הגדרות לקוח - עריכה - אופן הפעולה בעת כניסה לשדה
ובחר "בחר בשדה כולו"

[Shmuel754]

@איש-פלוני
יש פקודה בשם seltext

Forms("מחברקודספרברקוד").Controls("מדף").seltext = me.מדף.value

אתה מציין את הערך של הנתון שאתה רוצה שיבחר, ולכן את מכניס את הנתון של השדה שאתה נכנס אליו.

או

Forms("מחברקודספרברקוד").Controls("מדף").selStart = 1 
Forms("מחברקודספרברקוד").Controls("מדף").SelLength = 3

השורה הראשונה זה מאיזה תו לסמן,
השורה השניה זה האורך של המחרוזת שיהיה מסומן, לרוב אתה יכול לשים את האורך של הנתון של השדה שאתה נכנס אליו.

ואת האירוע אתה ממקם בעת קבלת מוקד.

[איש פלוני]

@Y-Excel-Access זה כבר ככה.

[איש פלוני]

@Shmuel754 כתב בחיבור סורק ברקוד לאקסס:

Forms("מחברקודספרברקוד").Controls("מדף").seltext = me.מדף.value

זה התגובה:

והשני סתם לא עובד

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