בעיה בפתיחת קובץ אקסס מתוך אקסס

[אוריי]

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

[chv]

@אוריי אני חושב שכבסיס לשאלה כדאי שתציג בצורה מפורטת את הקוד הנוכחי. לא הגיוני?
@dovid אני באמת לא מבין למה אתה לא כותב את זה בכללי הפורום (בסטאק זה הכלל הראשון)

[אוריי]

@chv
צודק טעות שלי

זה הקוד

    Set MyAccess = CreateObject("Access.Application")
    MyAccess.Visible = True
    MyAccess.OpenCurrentDatabase CurrentProject.Path & "\" & "Catalog 1.0.0.accdb"

[chv]

@אוריי ייתכן שזה יפתור את הבעיה:

Set MyAccess = CreateObject("Access.Application")
MyAccess.Visible = True
MyAccess.OpenCurrentDatabase CurrentProject.Path & "\" & "Catalog 1.0.0.accdb"
MyAccess.RunCommand acCmdAppMaximize 

מקווה מאוד שזה לא שטויות
עריכה: התווים בשורה 5 יוצאים ככה משום מה
זה לא קשור לקוד
תעתיק רק את שורות 1-4

[אוריי]

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