PDA

Vollständige Version anzeigen : Zeitliches Öffnen eines Berichtes


carpediem
04.05.2001, 06:45
Hallo,

ich möchte das man einen bestimmten Bericht erst ab einer definierten Uhrzeit öffnen kann, geht das und wenn ja wie!

KHS
04.05.2001, 08:52
So zum Beispiel:

Private Sub Report_Open(Cancel As Integer)
Dim Zeit1
Zeit1 = Forms!ZeitvorgabeFrm!ZeitWert 'oder als festen Wert, z.B.: 'Zeit1 = #9:00:00 AM#'
If Format(Time, "hh:nn") > Format(Zeit1, "hh:nn") Then DoCmd.CancelEvent
End Sub

Viel Spass
KHS

KHS
04.05.2001, 08:57
T'schuldigung, natürlich andersrum (<,>):

Private Sub Report_Open(Cancel As Integer)
Dim Zeit1
Zeit1 = Forms!ZeitvorgabeFrm!ZeitWert 'oder als festen Wert, z.B.: 'Zeit1 = #9:00:00 AM#'
If Format(Time, "hh:nn") < Format(Zeit1, "hh:nn") Then DoCmd.CancelEvent
End Sub

KHS

carpediem
04.05.2001, 09:16
Hallo KHS,

deine Lösung funktioniert sehr gut.

Vielen Dank