يلزم التحايل على السجلات وتحديد الترتيب عند فتح النموذج المنبثق
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.OpenForm "form2"
ifrm = 0
End If
Next
ErrHandler:
If Err.Number = 2105 Then ifrm = 0: Exit Sub
End Sub
help3.mdb