Si vous travaillez en local, et si vous n'avez pas de système d'archivage de vos données, alors il faudrait procéder comme pour les numéros de facture, au niveau de l'événement avant maj du formulaire. Quelque chose comme ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
    If Me.NewRecord Then ' si nouvel enregistrement
        Me.NumEnreg=f_NumEnreg() ' utilisation de la fonction à adapter pour ajouter le nouveau numéro
    End If
 
End Sub
Cdlt,