הודעות שתייגת 'מודולים של
יום שבת, 2 מאי, 2009 |
לפעמים יש צורך למנוע בצורה פתוחה אם יש רשומות להצגה, למשל כאשר אתה עושה שאילתה ולא אחת אין צורך, אנחנו לא צריכים להיות בצורה פתוחה מכיון שאין בידינו נתונים לתצוגה. אז מה אנחנו צריכים לבדוק הוא האם יש רשומות להצגה ואם אין להציג הודעה ו לעכב בצורה פתוחה. איך?
קל פשוט לשים את הקוד הבא במאפייני הטופס האירוע "לפתוח":
= 0 אז אם Form.RecordsetClone.RecordCount
MsgBox "לא נמצאו רשומות.", VbExclamation "שגיאה!"
DoCmd.Close acForm, "למצוא את הנתונים"
צא Sub
סוף אם
כדי לראות דוגמה להורדה: מניעת טופס פתוח
פורסם ב דוגמאות , טפסים , מודולים | 2 תגובות »
יום חמישי, 11 דצמבר, 2008 |
1 - יצירת טופס הזמנה במבנה אירוע "לחיצה" על המאפיינים של הטופס הזן את הפרטים הבאים: me.keypreview = נכון
או שזה הולך לעשות את אירועי מקלדת מתקבלים בצורה 1.
2 - ב מאפייני טופס, "הכפתור למטה כדי" אירוע לשים את הקוד הבא:
Form_KeyDown תת פרטי (keycode כמספר שלם, Shift כמספר שלם)
בחר keycode מקרה
במקרה vbKeyF2
DoCmd.OpenForm "Form1"
במקרה vbKeyF3
DoCmd.OpenForm "Form2"
במקרה vbKeyF4
DoCmd.OpenForm "formulario3"
במקרה vbKeyF5
כמו מחשבון דים פעמיים
מחשבון = Shell ("calc.exe", vbNormalFocus)
במקרה vbKeyF6
DoCmd.Close
במקרה אחר
בסופו של דבר בחר
End Sub
מה המשמעות של זה היא הבאה:
- ידי לחיצה על מקש F2 פותח את Form1
- ידי לחיצה על מקש F3 פותח Form2
- ידי לחיצה על המקש F4 פותח את formulário3
- ידי לחיצה על מקש F5 פותח את מחשבון Windows
- ידי לחיצה על מקש F6 סוגרת את הטופס
בנוסף F1 מקש פונקציה, F2 ... וכו ', אנחנו יכולים גם להשתמש בכל כפתור אחר כדי לבצע פעולות, אך תוך התחשבות כי אם אנו רוצים להזין נתונים בצורה לא מתאימים לשימוש המפתחות המשמשים לכתוב נתונים בשדות.
דבר נוסף הוא שזה עובד רק על הצורה שבה אתה שם את הקודים הנ"ל.
להורדה: מקשי
פורסם ב דוגמאות , טפסים , מודולים | 1 תגובה »
יום שבת, 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 " שמו של טופס משנה.
ולבסוף תפריט מוכן לשימוש. רק לנסות להשתמש בו. אני מקווה שאתה נהנה זה עצה.
הורדה: תפריט
מתחת לתמונה של התפריט.
תפריט מותאם אישית
פורסם ב דוגמאות , טפסים , מודולים | 12 תגובות »
יום שלישי, 6 מאי, 2008 |
דוגמה זו מראה כיצד מערכת ניהול למתן תשלומים.
למשל ניתן לראות כי המשמעות של זה היא ליצור באופן אוטומטי בלחיצה על כפתור, את היתרונות של חוזה המכירה דרך הנתונים שהוזנו. כלומר, אנחנו מציגים את שמו של הלקוח עד היום את החוזה ההתחלה הסכום הכולל לתשלום. אז פשוט ללחוץ על "חשב" תשלומים שהוא יוצר באופן אוטומטי את מספר תשלומים ומחלק את הערך המצוין על ידי כל אחד מהם ומחשבת את תאריך התשלום בכל (אחד לחודש). זו גם דוגמה המדגים כיצד ניתן להוסיף מספר רשומות בבת אחת, משום שכאשר אתה לוחץ על לחצן זה מוסיף שיא לטובת כל אחד מהם.
להורדה: הוספת רשומות מרובות
פורסם ב תאריכים , דוגמאות , טפסים , מודולים , תקליטים | 17 תגובות »
יום שבת, 29 מרס, 2008 |
זוהי דוגמה של שדות יישום שסוניה הקורא המיועדים שיא הנתונים במסד הנתונים של בעלי חיים. זהו מסד נתונים פשוט עם הטופס רק הזנת נתונים עם תמונה של בעל החיים.
הורדה: ממקלט לבעלי חיים
כל שינוי פשוט להגיב כאן.
נכתב על טפסים , תמונות , מודולים , תקליטים , לוחות | 12 תגובות »
יום רביעי, פבואר 20, 2008 |
ישנן מספר דרכים להיכנס רשומה, ו הנפוצה ביותר היא לעבור בצורה קשורים לטבלה. דרך נוספת לעשות זאת היא באמצעות שדות שאינם קשורים, כלומר באמצעות טופס עם שדות שאינם קשורים עצמאית לשולחן. אל
להזין את הנתונים בהם אנו משתמשים "רשומות", כלומר על ידי קוד, אשר במקרה של דוגמה זו הוא כדלקמן:
Db דים כמו מסד נתונים
RS דים כפי Recordset
אם MsgBox ("אתה רוצה לכתוב?" VbYesNoCancel, "אפשרויות") = vbYes אחר
"על ידי לחיצה נשאל אם לשמור את השיא או לא, ואם כן קוד ממשיך עד סוף
סט db = CurrentDb ()
סט RS = db.OpenRecordset ("נתונים", dbOpenTable)
"פתח את הטבלה להכניס את הנתונים להירשם
rs.AddNew
RS ("שם") = אותי! INome
RS ("כתובת") = אותי! Imorada
RS ("גיל") = אותי! Iidade
"rs.Update שולח את הנתונים לטבלה
"נקה את הנתונים rs.Close וסוגר את הרשומות
הגדר RS = שום דבר
הגדר db = שום דבר
Me.INome = null 'מנקה את השדות בצורה
Me.Imorada = null
Me.Iidade = null
MsgBox "שיא הציל", vbInformation, "בוצע" וידוא הצג "הודעה
"Me.INome.SetFocus העבר את הסמן לשדה הראשון
יציאה משנה: אחר
סוף אם
הורדה: מקום עצמאי
פורסם ב דוגמאות , טפסים , מודולים , תקליטים , טבלאות | אין תגובות »
יום שלישי, פבואר 19, 2008 |
דוגמה זו מראה כיצד לבצע חישובים על שעות. זה שימושי עבור מי צריך לדעת עד כמה הזמן שחלף בין מועד התחלה וזמן סיום. זה לא מספיק כדי להפוך את החיסור של זמן סוף זמן התחלה, כי אם שעת סיום העברת מהיום החשבונות הקרובים כבר לא נכונה, למשל:
שעת התחלה: 23:00:00
שעת סיום: 02:00:00
שעת סיום - Start Time = 2:00:00-23:00:00 = -21:00:00
ברור שזה לא פשוט לעבוד עם הזמן, כי אז, במקום שלוש שעות לתוצאות הנכון הוא מוטעות -21 שעות.
כדי לעקוף אותה תקופה כי הולך מיום ליום אנחנו צריכים לבדוק תחילה אם שעת סיום גדול שעת התחלה, לפי יותר ואז החישוב הוא: שעת סיום - שעת התחלה.
אם אתה מתחת לגיל אז אנחנו צריכים לעשות את החישוב בדרך אחרת, כלומר:
שעת התחלה: 23:00:00
שעת סיום: 02:00:00
סה"כ זמן: 23:59:59
להיט: 00:00:01
בעצם מה שאנחנו עושים זה להוסיף לערך של 24:00:00 חיסור לתת לנו את הנכונות שלוש שעות. כלומר:
שעת סיום - שעת התחלה + שעות סך הכל + מכה = 02:00:00 to 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
הורדה: חשבון עם זמן
פורסם ב דוגמאות , טפסים , שעות , מודולים | 21 תגובות »
יום רביעי, 6 פבואר, 2008 |
דוגמה זו מראה כיצד לבחור תאריך באמצעות לוח שנה קופץ. כלומר, כאשר המודול יכול ליצור בחר תאריך כמו זה לוח השנה. בדוגמה אנו יכולים לבחור את התאריך על ידי לחיצה על כפתור ליד שדה התאריך או לחיצה על הלחצן הימני של העכבר בתחום כה. בדרך זו להיכנס תאריכים הוא מעשי מאוד שכן הוא מאפשר לנו לראות לוח שנה ולבחור את התאריך הטוב ביותר שאתה רוצה.
הורדה: פופאפ לוח שנה
פורסם ב תאריכים , דוגמאות , טפסים , מודולים | 1 תגובה »
יום ראשון, 27 ינואר, 2008 |
בדרך כלל, כאשר גמר את לחצן העכבר מרכז בטופס, לשנות את יומן הגישה. במצבים מסוימים זה עשוי להיות שימושי זה לא יקרה.
דוגמה זו משתמשת מודול במקרה של בצורת לטעון, כדי למנוע המשתמש לנווט בין רשומות באמצעות הגלילה של העכבר. כדי לבדוק נוכל להשתמש גלגל העכבר (הכפתור האמצעי) כדי לראות את זה לא משנה אחת.
הורד כאן: גלגל העכבר
פורסם ב דוגמאות , טפסים , מודולים , עכבר , תקליטים | אין תגובות »
יום שני, 21 ינואר, 2008 |
דוגמה זו משתמשת מודול שמסתיר את החלון הראשי של Microsoft Access, ומשאיר רק החלון של הטופס נראה לעין.
כדי להשתמש במודול זה עלינו להשתמש בפקודה הבאה באירוע הפתיחה של הטופס: fsetAccessWindow שיחה (SW_HIDE).
כדי לבדוק כדוגמה לעשות downloa: מניפולציות Acces חלון
פורסם ב דוגמאות , טפסים , מודולים | 8 תגובות »
