דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. חיבור סורק ברקוד לאקסס

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

מתוזמן נעוץ נעול הועבר תוכנה
23 פוסטים 6 כותבים 516 צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • א מנותק
    א מנותק
    איש פלוני
    כתב ב נערך לאחרונה על ידי
    #1

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

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

    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
    
    S Y.Excel.AccessY 2 תגובות תגובה אחרונה
    0
    • S מנותק
      S מנותק
      Shmuel754
      השיב לאיש פלוני ב נערך לאחרונה על ידי
      #2

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

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

      תגובה 1 תגובה אחרונה
      11
      • Y.Excel.AccessY מנותק
        Y.Excel.AccessY מנותק
        Y.Excel.Access
        השיב לאיש פלוני ב נערך לאחרונה על ידי
        #3

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

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

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

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

        Y.Excel.Access @ gmail.com

        תגובה 1 תגובה אחרונה
        3
        • א מנותק
          א מנותק
          איש פלוני
          כתב ב נערך לאחרונה על ידי
          #4

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

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

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

          ליבלל S מלאמ 3 תגובות תגובה אחרונה
          0
          • ליבלל מנותק
            ליבלל מנותק
            ליבל
            השיב לאיש פלוני ב נערך לאחרונה על ידי
            #5

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

            DoCmd.GoToControl "שם הפקד"
            
            א תגובה 1 תגובה אחרונה
            1
            • S מנותק
              S מנותק
              Shmuel754
              השיב לאיש פלוני ב נערך לאחרונה על ידי
              #6

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

              א תגובה 1 תגובה אחרונה
              2
              • א מנותק
                א מנותק
                איש פלוני
                השיב לShmuel754 ב נערך לאחרונה על ידי
                #7

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

                תגובה 1 תגובה אחרונה
                0
                • א מנותק
                  א מנותק
                  איש פלוני
                  השיב לליבל ב נערך לאחרונה על ידי
                  #8

                  @ליבל לא עזר.

                  תגובה 1 תגובה אחרונה
                  0
                  • מלאמ מנותק
                    מלאמ מנותק
                    מלא
                    השיב לאיש פלוני ב נערך לאחרונה על ידי מלא
                    #9

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

                    me.מדף.SetFocus
                    

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

                    א תגובה 1 תגובה אחרונה
                    0
                    • א מנותק
                      א מנותק
                      איש פלוני
                      השיב למלא ב נערך לאחרונה על ידי
                      #10

                      @מלא לא נבחר

                      א מלאמ 2 תגובות תגובה אחרונה
                      0
                      • א מנותק
                        א מנותק
                        ארי
                        השיב לאיש פלוני ב נערך לאחרונה על ידי
                        #11

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

                        DoCmd.OpenForm "מחברקודספרברקוד", acFormDS, , "ID = " & ScanValue
                        Form_מחברקודספרברקוד.מדף.SetFocus
                        
                        א תגובה 1 תגובה אחרונה
                        0
                        • מלאמ מנותק
                          מלאמ מנותק
                          מלא
                          השיב לאיש פלוני ב נערך לאחרונה על ידי
                          #12

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

                          א 2 תגובות תגובה אחרונה
                          0
                          • א מנותק
                            א מנותק
                            איש פלוני
                            השיב לארי ב נערך לאחרונה על ידי
                            #13

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

                            א 2 תגובות תגובה אחרונה
                            0
                            • א מנותק
                              א מנותק
                              ארי
                              השיב לאיש פלוני ב נערך לאחרונה על ידי
                              #14

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

                              א תגובה 1 תגובה אחרונה
                              0
                              • א מנותק
                                א מנותק
                                ארי
                                השיב לאיש פלוני ב נערך לאחרונה על ידי
                                #15

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

                                א תגובה 1 תגובה אחרונה
                                0
                                • א מנותק
                                  א מנותק
                                  איש פלוני
                                  השיב למלא ב נערך לאחרונה על ידי
                                  #16

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

                                  תגובה 1 תגובה אחרונה
                                  0
                                  • א מנותק
                                    א מנותק
                                    איש פלוני
                                    השיב לארי ב נערך לאחרונה על ידי
                                    #17

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

                                    תגובה 1 תגובה אחרונה
                                    0
                                    • א מנותק
                                      א מנותק
                                      איש פלוני
                                      השיב לארי ב נערך לאחרונה על ידי
                                      #18

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

                                      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
                                      
                                      תגובה 1 תגובה אחרונה
                                      0
                                      • א מנותק
                                        א מנותק
                                        איש פלוני
                                        השיב למלא ב נערך לאחרונה על ידי
                                        #19

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

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

                                        תגובה 1 תגובה אחרונה
                                        1
                                        • Y.Excel.AccessY מנותק
                                          Y.Excel.AccessY מנותק
                                          Y.Excel.Access
                                          כתב ב נערך לאחרונה על ידי
                                          #20

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

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

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

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

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

                                          Y.Excel.Access @ gmail.com

                                          S א 2 תגובות תגובה אחרונה
                                          2

                                          • 1
                                          • 2
                                          בא תתחבר לדף היומי!
                                          • התחברות

                                          • אין לך חשבון עדיין? הרשמה

                                          • התחברו או הירשמו כדי לחפש.
                                          • פוסט ראשון
                                            פוסט אחרון
                                          0
                                          • דף הבית
                                          • קטגוריות
                                          • פוסטים אחרונים
                                          • משתמשים
                                          • חיפוש
                                          • חוקי הפורום