Discussion :

[lemask]

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

[Heureux-oli]

Salut,

Dis nous ce qui ne vas pas ?

Parce que le code que tu nous donnes n'a rien à voir avec le lien dans la FAQ.

En passant, tu commets quelques erreurs, dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim moisEnCours, annéeEnCours As String

moisEnCours variant
annéeEnCours String

Perso, j'éviterais de passer par des variables.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub invoice_GotFocus()
 
    Me!invoice = Me![id_sales] & "/" & Format(Date, "mm/yyyy")
 
End Sub

[lemask]

Bonjour,

Mon objectif est la saisie des factures à partir d'un formulaire sans référence vide : conséquence de l'abandon de saisie en cours alors que la table contient un id numérotationAuto.
J'utilise cette référence et la complète par un format date pour coller au besoin du client et aux normes comptables. Pour éviter les trous dans les références vides j'ai cherché et trouvé sur le site une solution dont le lien figure dans mon message initial.
Je pensais intégrer cette fonction dans un module et l'utiliser à l'ouverture du formulaire, afin de rechercher ces références vides et les utiliser dans la saisie de nouvelles factures.
Je n'arrive pas à mettre en place cette procédure.
Merci à tous pour votre aide précieuse
Cordialement
Jean Guy

PS: je vais lire entièrement les règles du forum

[Heureux-oli]

Salut,

Pour les références non vides, tu peux te baser sur une numérotation automatique NumAuto ou créer ta propre numérotation.

A ce niveau tu dois faire un choix.

De toute façon, tu auras besoin d'un Id pour ta table.

Mais rien ne t'empêche d'avoir une seconde numérotation.

Si tu utilises une seconde numérotation, tu dois récupérer le dernier num crée et faire une incrémentation.

Je te conseille en plus de la date d'utiliser un format pour ton nombre et lui donner 5 positions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(Me![id_sales], "00000")

Te donneras

00001
00002
00003

Ce qui est un peu plus "joli"

Dans la FAQ, il y a une méthode pour récupérer le dernier numéro et lui ajouter 1

[lemask]

Bonjour

Merci pour tous ces bon conseils
Cordialement
Jean Guy