Supportnet / Forum / Datenbanken

Ich möchte in Access, sicherlich über visual basic einen button programmieren, der erst nach 10 sekunden aktiv wird, nachdem das formular mit dem button aufgerufen wurde. Danke :)

Hallo,

mit einem extra Knopf auf dem Formular ging es schon mal. Vielleicht nützt es Dir ja.

Rem Button soll erst nicht sichtbar sein
Private Sub Form_Current()
Me.Button.Visible = False
End Sub


Private Sub ExtraButton_Click()
Call MyTimer(5)
Me.Button.Visible = True

End Sub

Private Sub MyTimer(ZeitInSec As Integer)

Dim Pausenlänge, Start, Ende, Gesamtdauer

Pausenlänge = ZeitInSec ´ Dauer festlegen.
Start = Timer ´ Anfangszeit setzen.
Do While Timer < Start + Pausenlänge
DoEvents ´ Steuerung an andere Prozesse
´ abgeben.
Loop
Ende = Timer ´ Ende festlegen.
Gesamtdauer = Ende - Start ´ Gesamtdauer berechnen.

End Sub


Gruß
Gudrun

Hallo XeromX84

Sofern die Antwort noch benötigt wird hier eine Lösung:
Am einfachsten schreibst Du in das Ereignis "Beim Laden" folgende Zeile:
Timerinterval = 10000

Das hat zur Folge, dass in 10 Sekunden das Ereignis "Bei Zeitgeber" aufgerufen wird, welches Du jetzt natürlich auch auswerten musst:

Private Sub Form_Timer()
[button].Enabled = true
End Sub

Gruss Thomas

• Access schließt sich automatisch
• buttons
• buttons verschwunden bei Windows Kontakte
• Probleme beim umwandeln einer accdb-DB in eine adp-DB