תפריט מותאם אישית
יום שבת, 20 ספטמבר, 2008 זהו סוג של תפריט מאפשר לנו לחסוך זמן, שורות קוד ו סידור טוב יותר במונחים של צורות פתוחות, שכן עם התפריט הזה רק צריך טופס פתוח. בנוסף לצמצום במספר צורות פתוחות גם מקטין את מספר הכפתורים בתפריט לפתוח כל טופס.
סוג זה של התפריט, בוודאי שקיים כבר זמן מה, והוא כבר בשימוש על ידי משתמשים רבים של Access.
אז איפה בתפריט זה?
הבה ניצור את התפריט באמצעות תיבה משולבת הכוללת את כל הטפסים אנו מתכננים לפתוח דרכו. כאשר אתה בוחר באפשרות מתוך התיבה המשולבת בטופס הבקשה מוצג בתוך טופס משנה. ואז אנחנו מתחילים לעשות את הצעד תפריט אחר צעד.
1 - בואו ליצור טבלה שבה נוכל לאחסן שם אתה רוצה לתת כל צורה שם הטופס שתיפתח. בדוגמה יצרתי "tblmenu" את הטבלה עם בתחומים הבאים:
שדה סוג
טקסט Nomedomenu -> שם יהיה לראות התפריט (משולבת מסגרת)
ליצור טקסט -> שם הטופס שיפתח
לאחר הנתונים שהוצגו בדוגמה הם:
NomedoMenu טופס
חשבונות Form1
פיקדונות Form2
תנועות formulario3
החשבון תיבת formulario4
החשבון חשבון formulario5
חלץ formulario6
2 - לאחר מכן אנו יוצרים שאילתה מהטבלה הקודמת:
Tblmenu בחר את הטבלה ולאחר מכן בחר את שני התחומים בהם בחרנו עבור בסדר עולה מיין nomedomenu להיות קל יותר למצוא את התפריט כמה וכמה פעמים כאשר אנו רוצים לפתוח טפסים. לשאלה הזאת קראתי "CsMenu".
3 - הבה ניצור 'תפריט' צורה, כלומר לבחור צורה חדשה בתצוגת עיצוב. לאחר מכן אנו יוצרים תיבה משולבת ולשנות את המאפיינים הבאים:
- מספר עמודים: 2
- רוחב העמודות: 1cm, 0cm;
- מקור של הקו: csmenu (שהוא שמו של שאילתה שנוצרה בסעיף הקודם)
4 - באותה צורה ניצור טופס משנה בטופס מאוגד של הראשי (בדוגמה התקשרתי menuquadro). זהו טופס זה שיהיה פתוח כל הטפסים לבחור מהתפריט (תיבה משולבת).
5 - עכשיו ליצור מודול זה יאפשר לנו לפתוח את התפריט שנבחר בתיבה משולבת של טופס משנה.
יצרנו מודול (אשר קראתי "abrirmenu ') ולהדביק את הקוד הבא:
פונקציה AtivarMenu אישי (Combmenu ComboBox, subabrir טופס משנה)
Abrirform כמחרוזת דים
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
סוף פונקציה
אחרי הולך המאפיינים של התיבה המשולבת בתפריט את הטופס לאחר האירוע עדכון לשים יצר פונקציה: ativarmenu = ([תפריט], [menuquadro]), כי "תפריט" הוא שמו של התיבה המשולבת ו 'menuquadro " שמו של טופס משנה.
ולבסוף תפריט מוכן לשימוש. רק לנסות להשתמש בו. אני מקווה שאתה נהנה זה עצה.
הורדה: תפריט
מתחת לתמונה של התפריט.
תפריט מותאם אישית
