1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| 'pour reculer d'un enregistrement
Private Sub moins_Click()
Dim clone As Recordset
Set clone = Me.RecordsetClone
If Not clone.BOF Then DoCmd.GoToRecord , , acPrevious
End Sub
'pour créer un nouveau
Private Sub nouveau_Click()
Dim clone As Recordset
Set clone = Me.RecordsetClone
If Not clone.EOF Then DoCmd.GoToRecord , , acNewRec
End Sub
'pour avancer d'un
Private Sub plus_Click()
Dim clone As Recordset
Set clone = Me.RecordsetClone
If Not clone.EOF Then DoCmd.GoToRecord
End Sub |
Partager