Automatic Scroll from Topfive to Bottom in a form and start all over again

[JustHardWork]

I have a form that displays 5 records with a very big font size.


I am looking for some code that does the following.

The form is displayed on a giant led screen

When opening the form i want the first 5 records displayed for 5 seconds and the move automaticly to the next five records wait five seconds and display the next five and os on and so on
When it gets down to the bottom I want to start the process all over again.

Any help or suggestions are very very appreciated.

regards
JustHardWork

[amrut]

You will need to set the form timer interval to 5000 in an appropriate event and tweak the following code in the timer event

 If Me.CurrentRecord = Me.Recordset.RecordCount Then
              DoCmd.GoToRecord , , acFirst
         EndIf
       If Me.CurrentRecord + 5 > Me.Recordset.RecordCount Then
            DoCmd.GoToRecord , , acLast
        Else
            DoCmd.GoToRecord , , acNext, 5
        End If

[JustHardWork]

Dear Amrut

The code you prevented works fine thank you very very much.
I tried to add some code to do the following
After the the table is displayed 3 times I want to close the frm and open another form.
I tried a do.until and loop but that did not work. ( but maybe i am just not good enough at this VBA stuff
I would appriciate a suggestion very much
x = 3
Do Until x = 0
If Me.CurrentRecord = Me.Recordset.RecordCount Then
DoCmd.GoToRecord , , acFirst
End If
If Me.CurrentRecord + 5 > Me.Recordset.RecordCount Then
DoCmd.GoToRecord , , acLast
x = x - 1
Else
DoCmd.GoToRecord , , acNext, 5
End If
Loop
DoCmd.Close
DoCmd.OpenForm "Rounds John 2"
End Sub

[amrut]

You will need a variable to store the no. of loops. You can use a hidden textbox on your form for this say txtLoops. Before starting the timer, set its value to zero.

Me.txtLoops.value=Me.txtLoops.value+1
If Me.txtLoops.value =4 Then
Me.TimerInterval=0
'your code goes here
Else
If Me.CurrentRecord = Me.Recordset.RecordCount Then
              DoCmd.GoToRecord , , acFirst
         End If
       If Me.CurrentRecord + 5 > Me.Recordset.RecordCount Then
            DoCmd.GoToRecord , , acLast
Else
            DoCmd.GoToRecord , , acNext, 5
        End If
End If

Mark this thread as solved if this code solves your problem.

[JustHardWork]

Amrut Worked just fine!