After Finding Records Show Themone At The Time

Hi All,


I have the following code to run search:
Code:Private Sub Command20_Click() Me.household_id.SetFocus 'Me.Text21.SetFocus 'subj_num = Text21 DoCmd.FindRecord Me.household_id, acEntier, True, acSearchAll, True, acCurrent, TrueEnd Sub
Let's say it found 5 records matching the search criteria.
I like the Access form show me each record every on second. Meaning show me next record every one second.


I have the follwoing code to loop throgh each record but I nned to run after the find code runs and loops throgh the record that have been found:

I have the following code to do the loop through each record but, I need to run it after running the find code and then loops through the records that have been found:

Code:Private Sub Command10_Click()Dim inti As Integer'Loop through record 1 to 20 in form For inti = 1 To 20 DoCmd.OpenForm "DEM_RECH_CHECK_LIST", , , "[household_id]= " & inti Next inti End Sub



I need some help to combine the above codes.

Thanks in advances,

Abrahim