1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Public Function NumFacture(Prefixe As String, TableSource As String, ChampDate As String, Optional laDate As Variant) As String
'---------------------------------------------------------------------------------------
' Procedure : NumFacture
' Auteur : Maxence Hubiche
' Site : http://www.1formaxion.com et http://mhubiche.developpez.com
' Date : 06/02/2009
' Objet : Calculer un nouveau n° de facture
'---------------------------------------------------------------------------------------
'
Dim nTemp As Long
'remplacer laDate par la date du jour si elle n'a pas été fournie
If IsNull(laDate) Or IsMissing(laDate) Then laDate = Date
'Vérifier qu'il s'agit d'une date valide
If Not IsDate(laDate) Then Err.Raise vbObjectError + 1, "Date", "La date '" & laDate & "' passée en paramètre de la fonction NumFacture n'est pas valide"
'Si on est arrivé ici ...
'---Calculer le nombre de lignes déjà faites
nTemp = DCount("[" & ChampDate & "]", "[" & TableSource & "]", "format([" & ChampDate & "],'yyyymm') = format(#" & Format(laDate, "mm/dd/yyyy") & "#, 'yyyymm') ") + 1
'---Renvoyer le code
NumFacture = Prefixe & Year(laDate) & "-" & Format(Month(laDate), "00") & "-" & Format(nTemp, "00")
End Function |
Partager