Bericht komplett anzeigen
Karl Donaubauer
Gesendet: 11.06.19 11:18
Betreff: RE: Bericht komplett anzeigen



Elite Veteran

Beiträge: 874
5001001001002525
Ort: Wien
Hallo!

HQbauer
...anzeigen eines Berichts in der Berichtsansicht. Kann man einen Bericht über den Bildschirm laufen lassen wie eine Fließanzeige? Ich möchte Ausstellungsergebnisse veröffentlichen und damit allen angezeigt wird soll der Bericht von selber zum letzten Datensatz durchlaufen.

Setze die Eigenschaft "Bei Zeitintervall" des Berichtes auf einen passenden Wert, z.B. springt 500 jede halbe Sekunde einen DS weiter. Dann kannst du meinen Testcode in das Berichtsmodul kopieren und hoffen, dass er funktioniert. ;-)

Erläuterung: Im Modulkopf wird eine Variable zum DS-Zählen deklariert, damit sie im ganzen Modul verfügbar ist. Beim Öffnen des Berichtes werden die DS der Berichtsherkunft (geht von einer Tabelle oder gespeicherten Abfrage aus) gezählt und an die Variable übergeben. Beim Timer-Ereignis wird 1 DS weiter gehüpft oder wieder zum 1., falls alle durch sind.

Option Compare Database
Option Explicit

Dim lngRecCount As Long

Private Sub Report_Open(Cancel As Integer)

lngRecCount = DCount("*", Me.RecordSource)

End Sub

Private Sub Report_Timer()

If Me.CurrentRecord < lngRecCount Then
DoCmd.GoToRecord acDataReport, Me.Name, 1
Else
DoCmd.GoToRecord acDataReport, Me.Name, acFirst
End If

End Sub


-----
Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek - Jetzt anmelden für 19./20.10. in Nürnberg
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Top of the page Bottom of the page