גישה דוגמאות

לעדכן את מערכת המכירות

לאחר זמן מה מבלי לעדכן את הבלוג, אני סוף סוף יש קצת זמן כדי לעדכן את מערכת המכירות. קוראים רבים לא יכלו להגיע בשל הסיסמה מערכת הכניסה שאל. לכן, הסרתי את מערכת הכניסה לשם גישה נוחה.
מלבד שינוי זה עשה את השינויים הבאים:

V 0.5.0 (2010-08-19)
- הסירו את הכניסה למשתמשים.
- שדות נוסף (המשפחה איווה ואחדות) בטבלת המוצרים.
- אני יצרתי טבלה של מע"מ.
- תיקון של טופס מוצרים. (שדות חדשים, מבט, דרך חדשה למצוא רשומות).
- אני יצרתי את המשפחה טבלה (של מוצרים).
- שינה את צורת קניות מוכנס רק מוצר אחד בכל פעם. שמתי בצורה של רכישת טופס שבו תוכל להזין מספר רב של מוצרים שנרכשו הספק נתון.

הורדה: 2010 מכירות

כל ההערות עדכון חדש כדי לתקן או להוסיף תכונות.

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

בפוסט הבא אני אשים גירסה של איך לחשב יתרונות דומים למה שכבר כאן זה פוסט , אבל במקום תשלומים חודשיים יכול לבחור רק את מספר הימים elapsing בין כל הפרק. דוגמה זו ישמש גם כדי לענות על שאלה מן הקורא ( מרסלו ).

פורסם ב דוגמאות , טפסים , מערכת השלם | 14 תגובות »

כיצד למנוע בצורה פתוחה אם הרשומות לא להראות?

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

קל פשוט לשים את הקוד הבא במאפייני הטופס האירוע "לפתוח":

= 0 אז אם Form.RecordsetClone.RecordCount
MsgBox "לא נמצאו רשומות.", VbExclamation "שגיאה!"
DoCmd.Close acForm, "למצוא את הנתונים"
צא Sub
סוף אם

כדי לראות דוגמה להורדה: מניעת טופס פתוח

פורסם ב דוגמאות , טפסים , מודולים | 2 תגובות »

כיצד להקצות פעולות המפתחות?

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 תגובה »

תפריט מותאם אישית

זהו סוג של תפריט מאפשר לנו לחסוך זמן, שורות קוד ו סידור טוב יותר במונחים של צורות פתוחות, שכן עם התפריט הזה רק צריך טופס פתוח. בנוסף לצמצום במספר צורות פתוחות גם מקטין את מספר הכפתורים בתפריט לפתוח כל טופס.
סוג זה של התפריט, בוודאי שקיים כבר זמן מה, והוא כבר בשימוש על ידי משתמשים רבים של 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 תגובות »

למדוד את הזמן מבלה המפעיל להוסיף שיא

זה היה ללא ספק השחקן אלטון Rueb והוא אפילו הצליח לפתור לפני שאני לעזור. מה קורא נועד למדוד את הזמן שלוקח למשתמש להוסיף שיא ויש לה שלושה שדות: אחד עבור שעת התחלה כאשר הוא פותח את הטופס, בפעם הראשונה לשם כך הוכנס בעת לחיצה על להקליט כפתור שדה כדי לחשב את ההפרש. זוהי דוגמה פשוטה, אבל יכול להיות חסר למי שרוצה לחשב את ההפרש בין שני הזמנים. אז Rueb אלטון (ריו דה ז'ניירו - RJ - ברזיל) סיפקה את הדוגמה שיכול לעזור למישהו אחר.

הורדה: זמן הבדיקה

פורסם ב תאריכים , דוגמאות , דוגמאות שהועברו , ביטויים , טופס , זמן | 2 תגובות »

לענות על השאלה: תאריך פורמט

חסינטו הקורא את השאלה כאן כיצד לשנות את הפורמט של התאריך של 2008/12/06 עבור 2 0 0 8 0 6 1 2, כפי שהוסבר בתגובה על דבריו הוא פשוט כמו תיבת טקסט עם בעקבות הביטוי:

= עיצוב ([שם שדה תאריך], "מ"מ dd yyyy")

תכונות של שדה לשים את המילים הבאות במסכת הזנה: 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0

די פשוט וקל. את הדוגמה להורדה: פורמט תאריך

פורסם ב תאריכים , דוגמאות , ביטויים , טפסים | אין תגובות »

דוגמה יתרונות ניהול

דוגמה זו מראה כיצד מערכת ניהול למתן תשלומים.

למשל ניתן לראות כי המשמעות של זה היא ליצור באופן אוטומטי בלחיצה על כפתור, את היתרונות של חוזה המכירה דרך הנתונים שהוזנו. כלומר, אנחנו מציגים את שמו של הלקוח עד היום את החוזה ההתחלה הסכום הכולל לתשלום. אז פשוט ללחוץ על "חשב" תשלומים שהוא יוצר באופן אוטומטי את מספר תשלומים ומחלק את הערך המצוין על ידי כל אחד מהם ומחשבת את תאריך התשלום בכל (אחד לחודש). זו גם דוגמה המדגים כיצד ניתן להוסיף מספר רשומות בבת אחת, משום שכאשר אתה לוחץ על לחצן זה מוסיף שיא לטובת כל אחד מהם.

להורדה: הוספת רשומות מרובות

פורסם ב תאריכים , דוגמאות , טפסים , מודולים , תקליטים | 17 תגובות »

שינוי צבע הרקע של שדה הטקסט יש להתמקד

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

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

הורדה: שינוי צבע שדה נתונים

פורסם ב צבעים , דוגמאות , טפסים | 10 תגובות »

נקודה

לבקשת Joao שחקן Cabrita פיתחו צורה זו של נקודת בקרה שחל על התחנה באש, באופן ספציפי יותר לצרכים של הקורא.

זוהי דוגמה בסיסית, אבל עם כמה פרטים מתקדמים יותר על מה הוא נועד להפוך את השליטה על כניסות ויציאות של עובדים, ודא כי עבד במשמרת 12 שעות ולהוסיף שעות עבדו שעות העבודה כדי פחות.

כל זה בשביל דו"ח חודשי של נוכחות של כל עובד.

הורדה: פוינט

נכתב ייעוץ , תאריכים , דוגמאות , ביטויים , צורות , שעות , דוחות | 9 תגובות »

הזנת מספר שדות הרשומה דרך עצמאית

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

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 העבר את הסמן לשדה הראשון
יציאה משנה: אחר
סוף אם

הורדה: מקום עצמאי

פורסם ב דוגמאות , טפסים , מודולים , תקליטים , טבלאות | אין תגובות »