קיצורי מקלדת באקסס

[איש פלוני]

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

[OdedDvir]

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

Private Sub Form_Load()
    'Catch keystroke before system does it
    Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift = 2 And KeyCode = 68) Then         'Ctrl+D
        MsgBox "Hey, You have pressed Ctrl+D!"
        'Do not pass over the keystroke to system
        KeyCode = 0
        Shift = 0
     End If
End Sub

הסבר:

1. באירוע טעינה של הטופס אני מגדיר את המאפיין KeyPreview להיות True, זה גורם לכך שהטופס יוכל "לתפוס" את ההקשה לפני שמערכת ההפעלה תעשה זאת. זה שימושי במקרה שצירוף המקשים שאני רוצה לטפל בו כבר משוייך לאירוע קיים ע"י מערכת ההפעלה, למשל Alt+F4 לסגירת הטופס.
   קוד זה אופציונאלי. אם הוא יושמט, אז מערכת ההפעלה תטפל בהקשה לפי ראות עיניה. למשל אם לחצת F1 - תיפתח העזרה, וכו'.
2. באירוע ירידת מקש של הטופס, אני בודק את שני הערכים של KeyCode ו- Shift. הואיל ובמקרה שלנו אנו מבקשים צירוף של מקשים Ctrl+D הערכים המתאימים הם Shift = 2 And KeyCode = 68.
3. בסיום הטיפול באירוע, אני מאפס את שני הפרמטרים הללו. גם הקוד הזה הוא אופציונאלי, אם הוא יושמט, מערכת ההפעלה תתיחס אף היא להקשה שלנו ביציאה מהפרוצדורה.

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

[איש פלוני]

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

[חייםיודלביץ]

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

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

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

לדוגמא, בכל פעם שנלחץ על F5 יפתח לנו טופס חיפוש לקוח.

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

[איש פלוני]

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

[איש פלוני]

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

[dovid]

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

    KeyCode = 0
    Shift = 0

או להכניס את השורות האלה לתוך התנאי.

[איש פלוני]

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

[איש פלוני]

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

[OdedDvir]

@dovid כתב בקיצורי מקלדת באקסס:

או להכניס את השורות האלה לתוך התנאי.

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

[חייםיודלביץ]

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

@חייםיודלביץ לא הצלחתי לעבוד לפי ההוראות שלהם.
לא מצאתי במאקרו של אקסס את הפעולה AutoKeys

השם של המאקרו צריך להיות AutoKeys כבתמונה המצורפת.

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

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

אתה צודק בגרסאות החדשות צריך להכניס "מאקרו משנה" ואז בשורת המאקרו משנה לכתוב את צירוף המקשים הרצוי.

מצ"ב תמונה להבהרת העניין

בהצלחה

[ארי]

@חייםיודלביץ כתב בקיצורי מקלדת באקסס:

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

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

[חייםיודלביץ]

@ארי כתב בקיצורי מקלדת באקסס:

הייתי רוצה להשתמש במאקרו הזה בשביל למנוע מהמשתמש בתוכנה ללחוץ על צירופי מקשים עם קונטול או שיפט וכדו' כדי למנוע ממנו לצאת מהתוכנה.

אני מונע את יציאה לא מבוקרת של משתמש מהתוכנה שמנסה לצאת ע"י

1. ALT+F4
2. לחצן יציאה בחלון האקסס
3. מתפריט האקסס
4. בחירת יציאה בישום אקסס בשורת המשימות

ניתן לצאת בצורה לא מבוקרת רק ע"י מנהל המשימות.

צרפתי קובץ כי לא ידעתי איך להסביר את זה...

מניעת יציאה בצורה לא מבוקרת.accdb

[ארי]

@חייםיודלביץ תודה.
אבל אני גם מעוניין לחסום אפשרות של מעבר לחלון אחר בווינדוס ע"י Alt+Tab לדוג'.
בעצם להפוך את התוכנת אקסס לקיוסק.