If search result was 5 records then MS Access view each record every one second

[akalehzan]

Dear All,

To start with, I have the following code that it gets called by clicking on
Find_records button:

Option Compare Database
Option Explicit

Private Sub Find_record_Click()
Me![Subj_num].SetFocus
'Me!Subj_num = glob_subj_num
DoCmd.FindRecord Me!Subj_num, acEntire, False, acSearchAll, False, acAll,
True
End Sub

I have a form that contains fields from three tables that are linked
“relationship†by “Subj_num “ field.
It will be mainly used to search for subj_num from the main table that is
“ID†table.
So, there is not going to be any data entry, update or delete records.
However, after running each search we would like to loop through each record
every one second.
Meaning that, if the search result was 5 records, then MS Access view each
record every one second automatically.
We have done such a code in Javascripts in some other database interface.

What do you all suggest at this point to approach this?

Thanks for any help.

 

[Klatuu]

Use the Timer Event of your form.
Set the form's Timer Interval to 1000 (one second)

Then in the event:
If Not Me.Recordset.EOF Then
DoCmd.GoToRecord , , acNext
End If