Bonjour à tous,

j'ai trouvé la solution... effectivement, il manquait un p'tit rien sur le code d'Alain36.

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
Bonne journée à tous.
Curt