1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| Private Sub cmdAllerEnrSuivant_Click()
Dim rs As DAO.Recordset
On Error GoTo ErrH
' Sortir Si le formulaire est sur un nouvel enregistrement
If Me.NewRecord = True Then Exit Sub
Set rs = Me.RecordsetClone
' Positionne recordset sur le même enregistrement que celui du formulaire
rs.Bookmark = Me.Bookmark
' Essai d'aller à l'enregistrement suivant du recordset
rs.MoveNext
' Si on n'est pas au dela du dernier enregistrement, effectuer le
' déplacement à l'enregistrement suivant dans le formulaire
If Not rs.EOF Then
DoCmd.GoToRecord acActiveDataObject, , acNext
Else
MsgBox "Pas d'enregistrement suivant.", , "Dernier enregistrement"
End If
ExitSub:
Set rs = Nothing
Exit Sub
ErrH:
Select Case Err.Number
Case 2105: Resume Next
End Select
MsgBox "Erreur N° " & Err.Number & " : " & Err.Description
Resume ExitSub
End Sub |
Partager