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

[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
תודה
בכל אופן זה לשימוש האישי שלי

[אוריי]

יש לי פקד כרטיסיה כזה:

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

[מלא]

ככה Me.YourTabPage.SetFocus
שנה את YourTabPage לשם הדף.

מקור

[OdedDvir]

@אוריי באקסס ניתן לכתוב ולקרוא למשתנה עם שם הפקד של הכרטיסיה, על מנת לקבל את מספר הכרטיסת הפתוחה או לעבור לכרטסת מסויימת. הכרטיסיות ממוספרות עם בסיס 0, ז"א הכרטסת הראשונה מספרה 0, השנייה 1 וכו'.
ניתן לעבור אל כרטסת על ידי כתיבה למשתנה עם שם הפקד.
למשל כדי לעבור לכרטסת השלישית, נכתוב את המספר 2:

me.TabCtrName = 2 

כדי לבדוק איזה כרטסת מוצגת כרגע, אפשר לקרוא את הערך בפקד

if me.TabCtrlName = 1 then ... 'אם הכרטסת השנייה פתוחה

[אוריי]

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

Me.YourTabPage.SetFocus

מחזיר שגיאה

[אוריי]

@OdedDvir
מתנצל על ההפרעה אבל אשמח ליותר פירוט

[OdedDvir]

@אוריי מה שם פקד הכרטיסיה בטופס?

[אוריי]

@OdedDvir
Page1
Page2
וכו'

[OdedDvir]

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

Page1
Page2
וכו'

אלו שמות העמודים (ה"חוצצים" או הכותרות) של הפקד, מה שם הפקד שמכיל את כל העמודים?

[אוריי]

@OdedDvir
Libraries

[OdedDvir]

כפי שציינתי קודם, ניתן לעבור לפי מספר הכרטסת (בסיס 0)

Me.Libraries = 2 ' עובר לכרטיסיה השלישית

אפשר גם לציין את שם הכרטיסיה בפירוש:

Me.Libraries.Pages("Page3").SetFocus 'עובר לכרטיסיה השלישית

[אוריי]

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

Me.Libraries.Pages("Page3").SetFocus

מחזיר לי שגיאה
אולי לא כתבתי טוב

oCmd.OpenForm "as"
Me.Libraries.Pages("Page3").SetFocus

[OdedDvir]

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

DoCmd.OpenForm "as"
Forms("as")!Libraries.Pages("Page3").SetFocus

[אוריי]

@OdedDvir
תודה עובד מעולה