03-03-2014, 22:31
|
|
|
חבר מתאריך: 14.11.10
הודעות: 66
|
|
באקסס האפשרות המועדפת לשימוש בשעון היא דרך השעון שמובנה בטפסים .
הדרכים האחרות שאפשריות לרוב יגזלו משאבי מחשב רבים ולכן מומלץ שלא להשתמש בהם.
אז כיצד לבצע מה שביקשת .
צור טופס ריק חדש.
בתצוגת עיצוב מאפייני הטופס חפש מאפיין TimerInterval שאומר
בכל כמה זמן הטופס יגרם אירוע של On Timer,
כל יחידה שנירשמת = 1 מילי שניה (חלקי אלף של השניה)
ולכן נירשום ב TimerInterval
600000 שמייצגים 10 דקות.
ואז בשיגרת האירוע On Timer רושמים (בחר בשעה הרצוייה בסוגריים הראשונים ובסוגריים הנוספים 10 דקות יותר)
קוד:
Private Sub Form_Timer()
If Now > Date + TimeValue("21:37") And Now < Date + TimeValue("21:47") Then DoCmd.RunCommand acCmdExit
End Sub
ושומרים את הטופס,
יוצרים מקרו חדש ששמו Autoexec (במקרה זה השם חשוב) שיתבצע באופן אוטומטי בפתיחת התוכנית.
ושם בעמודת Action רושמים OpenForm
ובעמודת Argument בשורות למטה ב form name בוחרים בשם הטופס שיצרנו כרגע ,
וב window mode בוחרים ב hidden
וזהו , בפעם הבאה שתפעיל את התוכנית היא תסגר בערך בשעה שקבעת (אלא עם המחשב במצב שינה או היברנט ).
ניתן כמובן לשפר את הדיוק עד לאלפית השנייה אבל לרוב לא צריך ואו כדאי כי זה גורם לצריכה מוגברת של משאבי המחשב שלא לצורך .
|