Office: farbige felder nach einer zeit

hallo brauche auch hier nochmal hilfe, wie kann ich in diesem code nach ablauf der zeit eine msgbox einblenden lassen, habe schon viel probiert jedoch o.e.

Timer Code:



Private Sub btRun_Click()
txtm = Now()
txend = DateAdd("s", 10, Now())
txred = "Run"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
TimerInterval = 2000 '1000 Millisekunden

End Sub


Private Sub Form_Load()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
TimerInterval = 2000 '1000 Millisekunden

End Sub

Private Sub Form_Open(Cancel As Integer)

End Sub

Private Sub Form_Timer()

CurrentDb.Execute ("UPDATE ATEM1 SET tred = 'End' WHERE Rückzug

 

kann mir zu dem vorigen geposteten beitrag wer helfen?

danke gerii