reminder ontime
15.12.2006 19:20:07
mehmet
habe folgendes code leider nicht fertig stellen koennen
'Tabelle1
Private Sub CheckBox1_Click()
Call Reminder_On
End Sub
'Modul1
Sub Reminder_On()
Application.OnTime Now + TimeValue("00:00:01"), "Reminder_MsgBox"
Reminder_On
End Sub
Sub Reminder_Off()
Application.OnTime Now + TimeValue("00:00:01"), "Reminder_MsgBox", False
End Sub
Sub Reminder_MsgBox()
msgbox "hallo Reminder"
End Sub
ich wollte es so machen, dass der reminder box solange aufgerufen wird bis das haeckchen CheckBox1_Click geklickt wird
koennt ihr mir da weiter helfen bitte
dank und gruss
mehmet