מזעור חלון אקסס

[djedry]

מזעור חלון אקסס

שלום רב,
יש קוד שממזער את החלון הראשי של האקסס - fSetAccessWindow
חיפשתי בנרות קוד ששולט על מזעור הטופס
בכל טופס יש 3 לחצנים, מזער,הגדל,סגור
כיצד ניתן לכתוב קוד ברגע שלחצתי על אחד מהכפתורים הנ"ל.

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

 

[כלליים]

נראה לי שאין EVENT שחזור ומזעור

אם תרצה, תוכל להסתיר את תיבת הבקרה, וליצור לחצני שחזר ומזער משלך.

לטעמי, כל המשחק הזה עם WinApi כדי למזער את סביבת הפיתוח, לא מומלץ.
לטעמי, אפליקציות אקסס צריכות לרוץ במצב RunTime, בלי סביבת הפיתוח בכלל.

 

[0 אור 0]

מזעור טופס

Minimize או MAXIMIZE
בקוד רושמים docmd.minimize
או שיוצרים מאקרו שבו הקטנה הגדלה של חלון ספציפי ואז בקוד אפשר לקרוא למאקרואים האלו מכל מקום.
ואז את הארועים שלך את לא מייצרת מכפתורי ברירת המחדל של האקסס אלא מכפתורים שלך שיצרת ויש לך שליטה מתי הם מופעלים.

 

[djedry]

מצאתי פתרון

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

ולשים את הקוד הנ"ל
Private Sub Form_Load()
DoCmd.Maximize
End Sub

Private Sub Form_Resize()
If Me.Form.WindowHeight <= 1000 Then
DoCmd.RunCommand acCmdAppMinimize
End If

If Me.Form.WindowHeight >= 1000 Then
DoCmd.Maximize
End If

End Sub

כך ללא צורך בלהסתיר את החלון הראשי של האקסס ניתן להתשמש בתורה אסטטית.
ניתן למזער והאייקון של האקסס מתמזער לשורת המשימות וניתן לשחזר אותו מרשימת המשימות

* חסרון יחיד שהפרוייקט צריך להיות במסך מלא
נ.ב אני זכר =]