שאלה באקסס // שאילתא לפי שם כפתור

[אוריי]

@מלא
לדוגמא יש לי טופס כזה

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

[מלא]

@אוריי
כדי לקבל את שם הלחצן אתה יכול להשתמש עם activecontrol.name
אם זה עדיין לא עוזר לך,
עיין שוב בשאלה שלי למעלה.

[אוריי]

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

[מלא]

@אוריי אמר בשאלה באקסס // שאילתא לפי שם כפתור:

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

מצויין.
מה שאני הבאתי לך ב2 התשובות, זה במקום התיבת טקסט,
תצטרך לשים אירוע בכל לצחן שיפעיל את הטופס,
ובמקום תיבת הטקסט תכניס את זה activecontrol.name [זה לא קישור, זה קוד]..

[אוריי]

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

[OdedDvir]

@אוריי תשתמש במתודה Requery

[אוריי]

@OdedDvir
לא עובד לי
יכול להיות אולי שלא כתבתי טוב
אני כתבתי כך

DoCmd.Requery "pp"

[OdedDvir]

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

[מלא]

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

כדי לרענן טופס מתוך טופס אחר,
אתה כותב לו כך forms!שם_טופס(!שם_טופס_משנה).Requery

אם הנתונים לא מוצגים בטופס משנה, תמחוק את הסוגריים.

[אוריי]

@OdedDvir @מלא
זה סה''כ שאילתה בתצוגת גיליון בלי שום טופס

[OdedDvir]

@אוריי תפרט בבקשה מה הקוד VBA שמציג את השאילתה (בארוע לחיצה על הפקד)

[אוריי]

@OdedDvir

    Me!a = Me.ActiveControl.Name
    DoCmd.OpenQuery "qq", acViewNormal
    DoCmd.Requery "pp"

[OdedDvir]

@אוריי תסגור את השאילתא הפתוחה ותפתח אותה מחדש

docmd.Close acQuery, "qq"
'תעדכן את השאילתא
docmd.OpenQuery "qq"

תנסה אולי הקוד הבא יעבוד (בלי לסגור ולפתוח)

DoCmd.SelectObject acQuery, "qq"
DoCmd.Requery

[אוריי]

@OdedDvir
לא הבנתי מה אני אמור להחליף
אתה יכול לכתוב לי את כל הפקודות מסודר?
תודה

[אוריי]

@OdedDvir
תודה רבה
הוספתי את זה

DoCmd.SelectObject acQuery, "qq"
DoCmd.Requery

ועובד מצויין

[OdedDvir]

@אוריי יפה. אבל נראה לי שאם השאילתה עדיין לא פתוחה תקבל שגיאה.. נכון?

[אוריי]

@OdedDvir

@OdedDvir אמר בשאלה באקסס // שאילתא לפי שם כפתור:

@אוריי יפה. אבל נראה לי שאם השאילתה עדיין לא פתוחה תקבל שגיאה.. נכון?

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

רק עוד שאלה קטנה אם אני צריך לעשות את אותם הפעולות בטופס מה אני משנה ולמה?

[OdedDvir]

@אוריי אמר בשאלה באקסס // שאילתא לפי שם כפתור:

רק עוד שאלה קטנה אם אני צריך לעשות את אותם הפעולות בטופס מה אני משנה ולמה?

אם זה הטופס הפעיל פשוט תכתוב

Me.Requery

אם זה טופס משנה של הטופס הפעיל, ושם הפקד של טופס המשנה הוא foo

Me.foo.Form.Requery

אם זה טופס אחר (שלא פעיל) אפשר באופן דומה לשאילתא

DoCmd.SelectObject acForm, "MyFormName"
DoCmd.Requery

או

Forms("MyFormName").Requery

[OdedDvir]

@OdedDvir אני מרשה לעצמי להזכיר לך שפתיחה של שאילתה באופן של DoCmd.OpenQuery עלולה לאפשר למשתמש לשנות נתונים בטבלאות, ואם זו לא ההתנהגות שאתה מחפש, תציין זאת במפורש בפתיחה:

DoCmd.OpenQuery "qq", acViewNormal, acReadOnly

[אוריי]

@OdedDvir
תודה
בכל אופן זה לשימוש האישי שלי