N°Auto avec AutoNumber

castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   -  
castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour

Private Sub N°Facture_Enter()
Dim Facture, N°Facture
Facture = Left([DateRac], 9) & "-" & Right([N°Fact], 6)
Me.[N°Facture] = Facture
End Sub
Avec cette procedure , j'obtiens un N°Facture de ce format
11032014-1
Je voudrai obtenir 11032014-0001, c'est adire de mettre des zeros devant le chiffre.
Comment utiliser autoNumber dans cette procedure ou une autre
utilise access2003 et supperieur
Merci de votre aide



A voir également:

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Essaies :
Facture = Left([DateRac], 8) & "-" & Right("00000" & [N°Fact], 4)

0
castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   217
 
bonsoir
merci d'avoir repondu.
j'ai essayé ta solution mais quant on change de dizaine j'ai toujours le meme nombre de zero
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Re,

Sans le fichier, il n'est pas possible d'analyser le problème !

Patrice
0
castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   217
 
Voici la base d'un essai dans ce lien
https://www.cjoint.com/?DCkwNjPKSRE
0