ונראה לך הגיוני להעמיס על המחשב, כל פרק זמן, לבדוק מה השעה.... כלומר, הרי ההגיון אומר בדיקה כל דקה בערך לא? אז חמה לא להלביש את הבדיקה על אירוע שמתבצע ממילא, כמו למשל לאחר עדכון של שדה או משהו כזה....
Dim dTime as Date dTime = "13:35" If Time() = dTime Then Docmd.OpenForm "FRM" End if
ברור, שאת הקוד הזה צריך להכניס במקום הגיוני..... ועוד דבר אחד.... בגלל שאין אירוע שייפול בדיוק על הדקה... חוץ מפסיקת שעון, שבזה לא משתמשים (בגלל המשקל) אז מומלץ אולי לעשות את המשפט בצורה שונה...
If Time() >= dTime And Time() < DateAdd("n", 10, dTime) Then
דבר זה יתן לי פרק זמן של 10 דקות מהשעה שבחרתי.....
