Bonjour,
Je souhaiterais utiliser l'astuce décrite dans :
http://access.developpez.com/faq/?pa...elNumAutoHoles
afin de combler les trous dans la numérotation d'enregistrements d'une table. J'ai placé ce code qui génère la référence (n° facture) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub invoice_GotFocus()
Dim num As Long
Dim jourdhui As Date
Dim moisEnCours, annéeEnCours As String
num = Me![id_sales]
    jourdhui = Format(Now(), "dd/mm/yyyy")
    moisEnCours = Month(jourdhui)
    annéeEnCours = Year(jourdhui)
    Me!invoice = num & "/" & moisEnCours & "/" & annéeEnCours
 
End Sub
Dans mon formulaire (saisie facture), la table source "sales" contiens une clé numéroAuto.

Merci par avance.
Jean Guy