N°Auto avec AutoNumber
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
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
1 réponse
-
Bonjour,
Essaies :Facture = Left([DateRac], 8) & "-" & Right("00000" & [N°Fact], 4)
-
-
-
Voici la base d'un essai dans ce lien
https://www.cjoint.com/?DCkwNjPKSRE
-
