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

@י.פל. כתב בשימו לב אם אתם בדרך לקנות מחשב או מוצרי אחסון מומלץ להזדרז:

יש ע"ז כתבה בגיקטיים.

תוכל לשלוח לינק?

@חייםיודלביץ לא הצלחתי לעבוד לפי ההוראות שלהם.
לא מצאתי במאקרו של אקסס את הפעולה AutoKeys וגם לא הצלחתי למצוא את ההנחיה 'הצג/הסתר' של שמות מאקרו, או להגיע בכלל למסך שמוצג בהנחיה שם.

@dovid מחקתי וכעת ניתן לערוך.
תודה רבה!

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

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

@OdedDvir תודה רבה!
שבת שלום ומבורך

שלום וברכה,
יש אפשרות באקסס ליצור קיצור מקלדת שיפעיל לי קוד VBA בעת לחיצה עליו?
למשל, שכשאלחץ על ctrl+d הוא יפעיל לי את קוד מסויים (למשל קוד שמופעל בעת לחיצה על כפתור באחד הטפסים)
אשמח לעזרה
תודה רבה

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

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

זה התגובה:

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

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

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

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

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

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

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

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

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

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

@מלא לא נבחר

@ליבל לא עזר.

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

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

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

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

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

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

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

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