להפעיל קוד של כפתור באקסס

[ראש לשועלים]

אל תקפצו לפני שתגמרו לשמוע את השאלה:
האם אפשר להפעיל בקוד VBA קוד של כפתור מסויים, כלומר, יש לי טופס שבו כמה וכמה פקדים שבאירועים שונים צריכים להגיע לאותה שגרת אירוע. אין לי סבלנות להוציא SUB למודול שזה מצריך טיפול באובייקט Me ועוד כהנה וכהנה צרות. מה שהייתי עושה מימים קדמונים הוא פשוט להעתיק את הקוד שוב ושוב ושוב ושוב ושוב ושוב. מה שיוצר בעיה כפולה ומכופלת
1. בזבוז זמן משווע.
2. טירחה דציבורא.
3. כאב ראש עד מיגרנה בכל פעם שצריך לעשות ש י נ ו י בקוד האומלל.
לכן נפשי בשאלתי אם אפשר לכתוב את הקוד פעם אחת ובא לציון גואל ואז לקרוא לו כל פעם נניח:

pkuda_Click()

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

 

[FullTime]

ניסית?

 

[ראש לשועלים]

כן

 

[ראש לשועלים]

מה ניסיתי?

 

[FullTime]

מה ניסיתי?

הבאת ציטוט של קוד, ניסית להפעיל אותו?
פשוט להדביק אותו איפה שאתה רוצה להפעיל את קוד הלחצן.

 

[ש.ב.ח.]

אם הבנתי נכון את השאלה

בעקרון ניתן לכתוב את הכל בפונקציה ולקרוא לה מכל כפתור כך:

Public Function myopenform()

    DoCmd.OpenForm "דרישת תשלום", acNormal, "", "", , acNormal

End Function


Private Sub כפתור_Click()
   
    Call myopenform

End Sub

 

[ראש לשועלים]

הבאת ציטוט של קוד, ניסית להפעיל אותו?
פשוט להדביק אותו איפה שאתה רוצה להפעיל את קוד הלחצן.

זה לא עובד כאמור.

 

[ראש לשועלים]

אין לי סבלנות להוציא SUB למודול שזה מצריך טיפול באובייקט Me ועוד כהנה וכהנה צרות.

אם הבנתי נכון את השאלה

בעקרון ניתן לכתוב את הכל בפונקציה ולקרוא לה מכל כפתור כך:

Public Function myopenform()

    DoCmd.OpenForm "דרישת תשלום", acNormal, "", "", , acNormal

End Function


Private Sub כפתור_Click()
  
    Call myopenform

End Sub

 

[ראש לשועלים]

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

 

[ש.ב.ח.]

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

 

[FullTime]

זה לא עובד כאמור.

סליחה, לא שמתי לב.
תמחק את הסוגריים, זה יעבוד.
ככה: pkuda_Click

תוכל לשים לפניו call אבל לא מעכב, עובד בלי זה גם.

 

[ראש לשועלים]

תוכל לשים לפניו call אבל לא מעכב, עובד בלי זה גם.

עם call הסוגריים נמחקות אוטומטית כי הם מבינים שמדובר בקריאה לשגרת אירוע.

 

[ראש לשועלים]

מי שיסביר לי מה הביא אשכול משמים כמו זה ל-19,210 צפיות, יקבל ממני לייק מיידית.

 

[מתמחה במחשבים]

מכיוון שמכותרת השאלה נשמע שהתשובה פשוט עוד יותר
רק אחרי שגמרו לקרוא את השאלה הבינו שזה לא כל כך...

עריכה: אכן המספר הזה חריג בכל קנה מידה

 

[ראש לשועלים]

מכיוון שמכותרת השאלה נשמע שהתשובה פשוט עוד יותר
רק אחרי שגמרו לקרוא את השאלה הבינו שזה לא כל כך...

עריכה: אכן המספר הזה חריג בכל קנה מידה

זה נחמד מאד מה שאתה אומר, אבל להבנתי יש כאן כשל טכני כלשהו ותו לא. (הערת ה"עריכה" היא זיוף של "מתמחה במחשבים" - הלא כן?)

 

[FullTime]

מכיוון שמכותרת השאלה נשמע שהתשובה פשוט עוד יותר
רק אחרי שגמרו לקרוא את השאלה הבינו שזה לא כל כך...

מה לא כל כך? זה פשוט ביותר.

 

[ראש לשועלים]

השתגעו לגמרי:
137,008 צפיות.
אבל האמת שמ- 20,000 והלאה זה כבר תרבות העדר.