Discussion :

[captainamerica75]

salut à tous !!!

Voila mon problème est le suivant : Je dois facturer mes commandes 2 fois par mois. Lors de la première session tout se passe bien, mes N° de Factures s'incrémente bien dans l'ordre. Lors de la 2nd session, mes N° de Factures recommence au premier n° se qui fait que je me retrouve avec des doublons.

Voici le code que j'utilise. Il se trouve dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Function ProchainNumeroPiece(intAnnee As Integer, intMois As Integer)
Dim strFiltre As String
Dim test As Variant
Dim Vartest As Variant
Dim varAncienNumero As Variant
 
'---------------------------------------------------------
' Récupération du dernier n° utilisé pour le mois en cours
'---------------------------------------------------------
 
Vartest = Nz(DMax("Val(Right([calculdate],4))", "Factures"), "Val(Right([calculdate],4))='" & Format(intAnnee, "0000") & Format(intMois, "00") & "'")
 
'---------------------------------------------------------
' Construction du filtre en fonction des paramètres reçus
'---------------------------------------------------------
 
strFiltre = "Left([calculdate], 6) ='" & Format(intAnnee, "0000") & Format(intMois, "00") & "'"
test = Nz(DMax("Val(Right([calculdate], 4))", "temp", strFiltre), 0)
 
If test = 0 Then
varAncienNumero = Val(Left(Vartest, 1))
Else
varAncienNumero = test
End If
 
ProchainNumeroPiece = Nz(varAncienNumero, 0) + 1
End Function
 
' -------------------------------------------------------
' Formater la piece
' -------------------------------------------------------
Function FormaterPiece(intAnnee As Integer, intMois As Integer, intNumero As Integer)
FormaterPiece = Format(intAnnee, "0000") & Format(intMois, "00") & Format(intNumero, "0000")
End Function
 
' -------------------------------------------------------
' Calcul du n°de piece avec le formatage
' -------------------------------------------------------
Function ProchainNumeroFormate(intAnnee As Integer, intMois As Integer)
Dim intNumero As Integer
intNumero = ProchainNumeroPiece(intAnnee, intMois)
ProchainNumeroFormate = FormaterPiece(intAnnee, intMois, intNumero)
End Function

Est ce un problème de manipulation de caractère?

J'ai pensé à une solution alternative qui consisterait à stocker dans une table le prochain n° de facture disponible . Est ce une meilleure solution?

si quelqu'un pouvait m'aider ce serait hyper cool car là je sèche vraiement....

merci

[boubignole]

Salut

voila la méthode que j'utilise
un recordset pour récupérer dans la variable DerFacture le dernier no.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim oDb As dao.Database
Dim oRst As dao.Recordset
Dim DerFacture As Long
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT Max(RefFact) AS DerFact FROM Factures")
If IsNull(oRst!DerFact) Then
DerFacture = InputBox("Quel est le dernier no de facture ?")
Else
DerFacture = oRst!DerFact
End If
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing

[captainamerica75]

Salut !

Et tu n'as trouvé de moyen d'éviter la saisie dans un msgbox?

[boubignole]

le msgbox c'est juste pour le cas ou il ne trouve pas de dernier no de facture, vu que je vidange la table de temps a autre.