1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Dim ToucheDernierChp As Integer ' Variable au niveau Général
Private Sub DernierChp_Exit(Cancel As Integer)
Cancel = False
If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then
If ToucheDernierChp = 13 Or ToucheDernierChp = 9 Then
Me.AllowAdditions = True
DoCmd.RunCommand acCmdRecordsGoToNew
End If
End If
End Sub
Private Sub DernierChp_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 0 Then
ToucheDernierChp = KeyCode
Else
ToucheDernierChp = 0
End If
End Sub
Private Sub Form_Current()
If Me.NewRecord = False Then Me.AllowAdditions = False
End Sub |
Partager