يلزم التحايل على السجلات وتحديد الترتيب عند فتح النموذج المنبثق Dim j As Integer Private Sub Command3_Click() DoCmd.GoToRecord , , acFirst DoCmd.OpenForm "form2" ifrm = 1 j = 1 End Sub Private Sub Form_Timer() On Error GoTo ErrHandler Dim i As Integer, R As Integer Dim rs As Recordset Set rs = Me.RecordsetClone R = rs.RecordCount If j = 1 Then DoCmd.GoToRecord , , acFirst j = 0 ElseIf ifrm = 1 And j = 0 Then DoCmd.GoToRecord , , acNext End If For i = 1 To R - 1 If ifrm = 1 Then DoCmd.OpenFor