Code zur bestimmten Uhrzeit ausführen

[nics]

Ich habe einen Button der durch sein Drücken inaktiviert wird.
Ich möchte das dieser sich zu einer bestimmten Uhrzeit wieder aktiviert.

Der Button liegt auf dem Formular "Start" und heißt "Befehl24"

Natürlich muss dieser Button auch aktieviert werden wenn das Programm erst nach 22:30 wieder geöffnent wird

Also brauche ich einen Befehl der sagt:
Code:   
    'Wenn es 22:30 ist dann
        Me.Befehl24.Enabled = True   
Danke für eure Hilfe

[database]

Hallo,

das könntest du mit dem Timer-Ereignis deines Formulars steuern.

Code [Auswählen] Erweitern

Private Sub Form_Timer()

   Dim startzeit As Date
   startzeit = #11:30:00 PM#

   If Time <= startzeit Then
       Me.Befehl24.Enabled = True
   End If
End Sub
Timerinterval stellst du z.B. auf 10000 ein (es wird alle 10 Sekunden ausgewertet)

HTH

[Beaker s.a.]

Hallo Peter,

'Wenn es 22:30

(oder später)

ist

würde ich aber eher als

Code [Auswählen] Erweitern

If startzeit <= Time Then
interpretieren. Oder hab' ich da jetzt einen
Denkfehler?
gruss ekkehard

[database]

Hallo,

kein Denkfehler - MEIN Tipfehler ...

Code [Auswählen] Erweitern

If Time >= startzeit Then

Danggge ...

[MzKlMu]

Hallo,

Natürlich muss dieser Button auch aktieviert werden wenn das Programm erst nach 22:30 wieder geöffnent wird

Dann funktioniert das nur zwischen 22:30 und 23:59. Nach Datumswechsel beginnt die Zeit wieder bei 00:00 Uhr und die Bedingung ist nicht mehr erfüllt. Die Überwachung geht also nur für 1,5 Std.

[bahasu]

Hi,

es fehlt eine globale Variable, in der gespeichert wird, ob der Button schon mal gedrückt wurde.

1. im Modul deklarieren:  Public Noch_nicht_gedrueckt as boolean
2. im Formular beim Ereignis "Beim Öffnen": Noch_nicht_gedrueckt = true
3. im Formular beim Ereignis "Bei Klicken" vom Button: Noch_nicht_gedrueckt = false
4. im Formular beim Ereignis "Bei Zeitgeber": Bedingung ersetzen: If Time >= startzeit or Noch_nicht_gedrueckt Then

Sicherer gegen die "Vergeßlichkeit" einer globalen Variable nach Programm-Abstürzen ist es, diesen Wert in eine Tabelle zu schreiben.

Harald