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
