Bonjour à tous,
je suis actuellement entrain d'implémenter une fonction qui aura pour but de m'afficher un numéro d'affaire de la façon suivante:
mois / année/ numéro de l'affaire ds le mois en cours
Je n'arrive pas à trouver la boucle qu'il me faut mettre en place pour obtenir un numéro qui va s'incrémenter pendant un mois et se remettre à zéro dès qu'un nouveau mois commence.
j'envoie mon code pour que vous puissiez m'aider.
Public Function Number_Facturation() As String
Dim Numfac As Integer
Dim Num As Integer
Dim Mois, An As Integer
Dim LastNumFact As Object
Dim mabase As Object
Dim Marequete As String
Dim result As Variant
Mois = Month(Now())
An = Year(Now())
Set mabase = CurrentDb()
Marequete = "SELECT Last(T_Facturation.Num_facture) AS DernierDeNum_facture FROM T_Facturation;"
Set result = mabase.openrecordset(Marequete)
If result.RecordCount <> 0 Then
result.MoveFirst
Set LastNumFact = result!DernierDeNum_facture
End If
Num = 0
If IsNull(Forms!F_Facturation!Num_facture.Value) Then
Number_Facturation = 0
ElseIf (D_Day <= LastDayOfMonth) Then 'D_Day c la date du jour
Numfac = Forms!F_Facturation!Num_facture.Value
If (Numfac > LastNumFact) Then
Num = Num + 1
End If
Number_Facturation = Mois & "/" & An & "/" & Num
End If
End Function
-------------------------------------------------
le pouvoir appartient à ceux qui détiennent l'information, culture et connaissance pour élargir ton champ vision ....
--------------------------------------------------