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

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

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

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

מתוזמן נעוץ נעול הועבר תוכנה
23 פוסטים 6 כותבים 516 צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • 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
                                      • S מנותק
                                        S מנותק
                                        Shmuel754
                                        השיב לY.Excel.Access ב נערך לאחרונה על ידי
                                        #21

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

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

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

                                        או

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

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

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

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

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

                                          תגובה 1 תגובה אחרונה
                                          1

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

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

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