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

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

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

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

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

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

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

                                      זה התגובה:
                                      72dd4b98-4b33-41d4-9162-72fc26009ac7-image.png

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

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

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

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

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

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