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

[אוריי]

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

[מלא]

@אוריי
תשתמש עם הערך caption של הלחצן.
ככה strQuName = cmdButton1.caption
המשתנה strQuName יקבל את הערך של שם הלחצן.

[אוריי]

@מלא
אני אשמח להסבר יותר מפורט
תודה

[מלא]

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

[אוריי]

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

כך שכל לחצן הוא מס' מדף ואני רוצה שבעת הלחיצה אני יקבל את כל הספרים הקיימים במדף הספציפי הזה
עד כה יכולתי לעשות שאילתא על כל לחצן אבל אני רוצה לקצר את זה ע''י שהאקסס יזהה את שם הכפתור (לא הכיתוב) ולפי''ז הוא יפעיל את השאילתא כך שאפ שם המדף הוא 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]

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