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

[איש פלוני]

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

זה הקוד שאני משתמש בו בינתיים:

Private Sub פתיחת_סורק_Click()
'DoCmd.RunSQL "יצירתטבלתברקוד"
Dim Path As String
Path = "C:\Program Files\שם הסורק.exe"
Shell Path
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
    Else
        MsgBox "ערך לא קיים במאגר הנתונים, אנא נסה שוב"
    End If
Else
    MsgBox "ערך לא תקין, אנא נסה שוב"
End If

End Sub

[Shmuel754]

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

אתה צריך לייצר תיבת טקסט שבו יש להקליד או להעביר בסריקה את הברקוד וההמשך חיפוש ואיתור מה שתאה רוצה.

[Y.Excel.Access]

@איש-פלוני הערה קטנה על הקוד, שאינה מעניין השאלה.

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

ו-כמו שעשית, לא לערבב באותו שם משתנה שמות באנגלית ובעברית, זה מבלגן את הימין - שמאל של הקוד.

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

[איש פלוני]

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

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

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

[ליבל]

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

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

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

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