![](/forum/profile/get-photo.asp?memberid=27&type=profile&rnd=376) Elite Veteran
Beiträge: 860
![500](http://www.donkarl.com/forum/images/decorations/multiple/500.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) 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
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |