Office: (Office 2007) Befehl verzögert ausführen

Hallo,

ich möchte einen Bericht über ein Makro öffen. Aber nicht sofort wenn das Ereignis auftritt sondern z. B. 5 sec nachdem diese Ereignis aufgetreten ist. Also etwas verzögert.

Funktioniert so was - über Makros oder über VBA?

:)

 

Hallo,
hierzu gibt es diesen link
http://www.access-im-unternehmen.de/264.0.html

mfg
Silentwolf

 

Servus Albert,

Du kannst z.B. die Grösse des Timerintervalls bei einem Buttonklivk auslösen
und im Timer-Ereignis den Befehl schreiben, der ausgeführt werden soll.

Code:

 

¨
Welches Ereignis? Sprechen wir von einem Formular-Ereignis?
G
JPA

 

Ja - z. B. bei einem Formularereignis "beim Öffnen"

Bin aber noch beim Porbieren

 

Hallo,

ich hab's folgendermaßen probiert - tut sich aber nichts??

Private Sub Befehl5_Click()
Me.TimerInterval = 1000 '1000 = 1 sek.
End Sub

Private Sub form_Timer()
DoCmd.OpenReport "B_Ereignisübersicht", acViewReport, "", "", acNormal
DoCmd.Maximize
Me.TimerInterval = 0 'Verzögerung ausgeschaltet
End Sub

 

Servus,
stell doch mal auf 5000 statt 1000 (5 Sekunden)
und alternativ:
Kommentiere mal diese Zeile aus.Ein Hochkomma vor die Zeile setzen)
Code:

EDIT: Hast Du überprüft, ob das Timerereignis auch ausgelöst wird?
Schau Dir dazu das Ereignis an.

 

Code:

Mit dem Stop kannst du erkennen, ob as Timer-Ereignis überhaupt angezogen wird. Bitte hier um Rückmeldung, danke.

 

Ergänz mal den Code wie folgt:
Code:

 

wenn ich den "Stop" so wie im Beispiel einfüge, dann spingt Access in die VBA Ansicht und Stop ist gelb markiert

 

Wenn ich
Me.OnTimer = "[Event Procedure]"

einfüge tut sich auch nichts?

 

Hallo,
Da ich Formular-Timer nicht so prickelnd finde habe ich vor langer Zeit Mal dieses
gefunden
Code:

In die Prozedur, die verzögert laufen soll kommt dann als erste Zeile
Code:

gruss ekkehard

 

Das zeigt, dass das Ereignis gezogen wird.
Bleibt nur noch übrig, das dein Bericht nicht funktioniert.

Probiere mal dein Befehl Code:

einzeln aus, z.B. im Direktfenster.

 

Das widerspricht sich aber. Die Ausführung des Codes hat bei dem Stop angehalten. Mit [F5] kannst du den Code weiterlaufen lassen und dann sollte dein Bericht gedruckt werden.
Tausch doch mal das acViewReport durch acViewPreview aus, damit du Probleme mit dem Drucker ausschließen kannst.

 

Na ja!

jetzt kommt zumindest die Meldung:

Laufzeitfehler 2102
Der Formularname B_Ereignisübersicht ist falsch geschrieben oder verweist auf ein Formular das nicht existiert.

Irgenwie auch richtig - Ich will ja auch einen Bericht öffen mit

Private Sub Befehl5_Click()
Me.TimerInterval = 2000 '2000 = 2 sek.
End Sub

Private Sub form_Timer()
Me.TimerInterval = 0 'Sofort ausschalten, weil nur 1x laufen
Stop
DoCmd.OpenForm "B_Ereignisübersicht", acViewPreview
DoCmd.Maximize
Me.TimerInterval = 0 'Verzögerung ausgeschaltet
End Sub