Numérotation automatique
ouzzin
Messages postés
268
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
mon prmier numéro de facture commance par F001 alors comment faire pour que les autre suivent automatiquement le numéro précédent.
Merci
mon prmier numéro de facture commance par F001 alors comment faire pour que les autre suivent automatiquement le numéro précédent.
Merci
A voir également:
- Numérotation automatique
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Réponse automatique gmail - Guide
- Sommaire automatique word - Guide
5 réponses
Bonjour,
Avec Access c'est du VBA
Donc cette petite fonction devrait faire l'affaire:
Function num_suiv(NP As String) As String
Dim l1 As String, l2 As String, N As Long, NS As Long, i As Integer
l1 = Left(NP, 1)
l2 = Right(NP, (Len(NP) - 1))
N = 1
For i = 1 To Len(NP)
N = N * 10
Next
NS = N + Val(l2) + 1
num_suiv = l1 & Right(Str(NS), Len(NP) - 1)
End Function
Tu appelle cette fonction avec le dernier numéro de facture en paramètre et elle te renvoie le numéro suivant comme le montre cet exemple
Sub test()
Dim num_fact As String
num_fact = "F0019"
num_fact = num_suiv(num_fact)
MsgBox num_fact
num_fact = "X10019"
num_fact = num_suiv(num_fact)
MsgBox num_fact
End Sub
A+.
Avec Access c'est du VBA
Donc cette petite fonction devrait faire l'affaire:
Function num_suiv(NP As String) As String
Dim l1 As String, l2 As String, N As Long, NS As Long, i As Integer
l1 = Left(NP, 1)
l2 = Right(NP, (Len(NP) - 1))
N = 1
For i = 1 To Len(NP)
N = N * 10
Next
NS = N + Val(l2) + 1
num_suiv = l1 & Right(Str(NS), Len(NP) - 1)
End Function
Tu appelle cette fonction avec le dernier numéro de facture en paramètre et elle te renvoie le numéro suivant comme le montre cet exemple
Sub test()
Dim num_fact As String
num_fact = "F0019"
num_fact = num_suiv(num_fact)
MsgBox num_fact
num_fact = "X10019"
num_fact = num_suiv(num_fact)
MsgBox num_fact
End Sub
A+.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
