הפעלת פונקציה ממשתנה באקסס

ari rm · 30/7/19

בס"ד

יש לי פונקציה הנמצאת בטופס 1 שמה לדוגמא A1
כשאני קורא לה מטופס 2 אני כותב:

קוד:

form_טופס1.A1

כך זה עובד!
ואם אני כותב כך:

קוד:

form_טפס1("A1")

זה לא עובד.
א. לא אמור לעבוד?
ב. יש דרך אחרת?

אפר · 30/7/19

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

ואז תעשה

קוד:

frm_טופס1.fnc("A1")

אפר · 30/7/19

ותוסיף בטופס1 את הפונקציה הבאה

קוד:

public function fnc(Ms)
select case ms
case "A1"
A1
case "A2"
A2
end select
end function

moishy · 30/7/19

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

הסבר מה אתה מנסה לעשות.

ari rm · 31/7/19

בס"ד

ניקח לדוגמא: אם יש לי 10 פונקציות ששמותם ממוספרים ואני רוצה לקרוא להם בלולאה לפי המספר בלולאה דוגמא:

קוד:

for i = 1 to 10
    call form_טופס1(i)
Next i

במקום לעשות:

קוד:

For i = 1 To 10
    Select Case i
        Case 1:
            call form_טופס1.1
        Case 2:
            call form_טופס1.2
        Case 3:
            call form_טופס1.3
        Case 4:
            call form_טופס1.4
    End Select
Next i

זה רק עד ארבע
וחוץ מזה שיש דוגמאות אחרות שזה לא אפשרי

moishy · 31/7/19

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

ari rm · 31/7/19

בס"ד

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