Access-o-Mania

Access-Forum => Access Programmierung => Thema gestartet von: nics am Oktober 13, 2012, 15:43:23

Titel: Code zur bestimmten Uhrzeit ausführen
Beitrag von: nics am Oktober 13, 2012, 15:43:23

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
Titel: Re: Code zur bestimmten Uhrzeit ausführen
Beitrag von: database am Oktober 13, 2012, 16:11:29
Hallo,

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

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
Titel: Re: Code zur bestimmten Uhrzeit ausführen
Beitrag von: Beaker s.a. am Oktober 13, 2012, 19:48:56
Hallo Peter,
Zitat
'Wenn es 22:30
(oder später)
Zitat
ist
würde ich aber eher als
If startzeit <= Time Theninterpretieren. Oder hab' ich da jetzt einen
Denkfehler?
gruss ekkehard
Titel: Re: Code zur bestimmten Uhrzeit ausführen
Beitrag von: database am Oktober 14, 2012, 10:28:21
Hallo,

kein Denkfehler - MEIN Tipfehler ...

If Time >= startzeit Then
Danggge ...
Titel: Re: Code zur bestimmten Uhrzeit ausführen
Beitrag von: MzKlMu am Oktober 14, 2012, 20:24:02
Hallo,
Zitat
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.
Titel: Re: Code zur bestimmten Uhrzeit ausführen
Beitrag von: bahasu am Oktober 15, 2012, 08:31:44
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