אופיס 365 ריענון טופס משנה מתוך טופס מקור

[בוטח בה]

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

 

[אפקטיביות]

me.form_object.form.requery
תחליף את form_object עם השם שהענקת לאובייקט שמכיל את הטופס/דוח משנה.

 

[בוטח בה]

me.form_object.form.requery
תחליף את form_object עם השם שהענקת לאובייקט שמכיל את הטופס/דוח משנה.

עשיתי כדלהלן וזה לא עובד

Private Sub îæää_ì÷åç_AfterUpdate()
Me.tofes.Form.Requery
End Sub

 

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

tofes ששמת זה שם הפקד או שם הטופס?

 

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

טופס המשנה והטופס מבוססים על אותם נתונים, נכון?

 

[בוטח בה]

tofes ששמת זה שם הפקד או שם הטופס?

שם הפקד המכיל את הטופס משנה

טופס המשנה והטופס מבוססים על אותם נתונים, נכון?

אכן כן, תצוגה יפה יותר משל טופס מפוצל - זה הכל.

 

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

אכן כן, תצוגה יפה יותר משל טופס מפוצל - זה הכל.

[ברור. דא עקא שכל עוד לא תעשה requery לטופס האב/תעבור לרשומה אחרת אקסס לא שומר את הרשומה, ולכן לא תראה אותה בטופס המשנה (כלומר טופס המשנה מרוענן ועומד ולא בו הבעיה). הבעיה שrequery יחזיר אותך לרשומה הראשונה, מה שאתה לא רוצה. וקוד שיחזיר אותך בחזרה לענ"ד יכביד על המערכת.]
הפתרון פשוט:
Me.Refresh
אבל אחרי זה תצטרך לעשות setfocus לטקסט בוקס הבאה בתור.

 

[בוטח בה]

תעבור לרשומה אחרת אקסס לא שומר את הרשומה

אבל האנטר אחרי הtxtbox המדובר הוא גם מעבר לרשומה חדשה...

 

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

הפתרון פשוט:
Me.Refresh

ניסית את זה?

 

[בוטח בה]

הפתרון פשוט:
Me.Refresh
רק אחרי זה תצטרך לעשות setfocus לטקסט בוקס הבאה בתור.

אכן הרעיון שלך פשוט מוצלח אמנם לא היה צורך בsetfocus
כי עשיתי כך:

Private Sub מזהה_לקוח_AfterUpdate()
Me.Refresh
Me.tofes.Requery
End Sub

 

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

אכן הרעיון שלך פשוט מוצלח אמנם לא היה צורך בsetfocus
כי עשיתי כך:

Private Sub מזהה_לקוח_AfterUpdate()
Me.Refresh
Me.tofes.Requery
End Sub

לא הבנתי למה לא היה צורך בסט פוקוס, ולמה עשית requery לטופס משנה, רפרש לאבא מספיק!

 

[בוטח בה]

לא הבנתי למה לא היה צורך בסט פוקוס, ולמה עשית requery לטופס משנה, רפרש לאבא מספיק!

צודק אין צורך בכלום אחרי הRefresh אך גם לא בsetfocus

 

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

האמת, צודק...