Bonjour
Voici mon code pour scinder une fature
Function Num_Folio(NumFacture As Variant)
Dim bd0 As Database
Dim rs1 As Recordset
Dim mt As Double
Dim folio As Integer
Set bd0 = CurrentDb
folio = 1
Set rs1 = bd0.OpenRecordset(" SELECT * FROM DETAIL_COMMANDE WHERE (factureID=" & NumFacture & " );")
rs1.MoveFirst
While Not rs1.EOF
rs1.Edit
mt = mt + rs1!PU * rs1!QuantiteColis
If mt > 1500 Then
folio = folio + 1
rs1!folioID = folio
rs1.Update
mt = rs1!PU * rs1!QuantiteColis
Else
rs1!folioID = folio
rs1.Update
End If
rs1.MoveNext
Wend
rs1.Close
End Function
Seulement cela va dans tous les sens parce qu'il scinde systematiquement toutes les factures superieure a 1500 mais il les eclate drolement:
exemple : pour un total de 3200
il a fais un folio avec 320
un autre avec 800
un autre avec 1200
et le 4eme folio avec 880.
Mais il faut aussi dire que ces montants correspondent au total de chaque ligne de facture qui en compte 4.
Ou est mon erreur please??
Help please