Bonjour à tous,
j'ai trouvé la solution... effectivement, il manquait un p'tit rien sur le code d'Alain36.
Bonne journée à tous.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub N°bordereau_Click() DoCmd.GoToRecord , , acNewRec If Me.N°bordereau = 0 Or IsNull(Me.N°bordereau) Then Me.N°bordereau = Nz(DMax("[N°Bordereau]", "Bordereau"), 0) + 1 End If DoCmd.GoToRecord , , acLast End Sub
Curt
Partager