Discussion :

[nomade333]

Bonsoir,
Comment incrémenter un numéro?

Exemple:
J'aimerais un champs qui s'incrémente automatiquement (Numéro Document), exemple 12000, je crée un nouveau document, donc 12001, je le supprime, et un cré un autre, le nouveau document devra porter le numéro 12001.

J'ai bien essayé avec numéroauto, mais le problème est que lorsque je supprime un document, et en crée un autre le numéro d'incrément n'est plus comme dans mon exemple 12001, mais 12002.
Existe t il une solution?
Merci par avance

[Invité]

Bonjour

Les solutions sont multiples, comme celle-ci Comment créer son propre numéroAuto ?, où en utilisant par exemple la fonction de domaine DMax pour récupérer le dernier numéro et incrémenté (tu trouveras des exemples sur le forum en faisant une recherche sur ce mot)

Philippe

[nomade333]

Bonsoir et merci pour la réponse
J'ai bien essayé de reprendre le code en exemple pour l'adapter à mon formulaire, mais comme je ne suis pas expert cela ne marche pas.

Lorsque je saisie dans un enregistrement le champs "date", le champs "numéro de fex" affiche bien 13001.
je ferme, puis réouvre mon formulaire pour saisir un autre enregistrement, lorsque je saisie la "date" le champs "numéro de fex" affiche 13001, et non pas 13002.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)
Me.Numéro_de_fex = 13000
   If rs.EOF Then
   Me.Numéro_de_fex = ""
   Else
   rs.MoveLast
   Me.Numéro_de_fex = Me.Numéro_de_fex + 1
   End If
rs.Close
Set rs = Nothing
End Sub

merci pour votre aide

[Invité]

Bonjour

Le problème c'est que sur cette ligne

Code :

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

Me.Numéro_de_fex = 13000

tu initialise ton numéro, donc tu démarres toujours à 13 000

Ce qu'il faut c'est récupérer la valeur du dernier numéro, par exemple la fonction de domaine DMax, comme je te l'ai indiquée.
Tu trouveras des exemples d'utilisation sur le forum, et un tuto sur les fonctions de domaines (va voir les cours Access dans ma signature).

Philippe

[nomade333]

Bonjour,
Désolé de vous avoir fait perdre votre temps, je ne sais pas réaliser cette fonction, car je ne connais rien en VBA, tout au moins peu de chose.
Je vais voir sur le forum "Requêtes et SQL", peut être trouverais je une aide.
Merci encore

[vlksoft]

C'est bien de tenter à mettre sur pied cette procédure. Mais ce qui est très important est de retenir d'abord la logique à suivre:
1. Il te faut d'abord détecter la plus grande valeur de ton champ à incrémenter (voir principalement l'utilisation des fonctions dmax ou max dans un recordset),
2. Ensuite mettre sur pied maintenant ta stratégie d'incrémentation.

j'espèce que ceci va te donner un peu de vigueur pour avancer. Ne te décourage pas, nous sommes là pour ça.
bye

[nomade333]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)
Me.Numéro_de_fex = DMax("[Numéro de fex]", "FEX")
   If rs.EOF Then
   Me.Numéro_de_fex = ""
   Else
   rs.MoveLast
   Me.Numéro_de_fex = Me.Numéro_de_fex + 1
   End If
rs.Close
Set rs = Nothing
End Sub

Ca marche!

Merci