Discussion :

[jessenierin]

Bonjour
nous utilisons une application developpez dans access 2003. Mon boss me demande de limiter le montant de chaque facture à 1500 Euro.
1- Dans un champ tabulaire certains lignes de la facture à constituer ont des montants avoisinant les 1500 E; comment faire dire a l'application que le montant de 1500 est atteint pour que je puisse modifier la ligne ?
J'ai fait ceci et cela ne marche pas:

Code :

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

1
2
3
if me.total >1500 then
msgbox "Alerte"
end if

2- Meme quand tous les champs "total" ne depassent pas le montant de 1500 le 2eme problème se situe au cumul de la facture qui forcement va dépasser les 1500 E. Supposons que le cumul est de 4500E
Comment dire a l'application d'éclater la facture en autant de morceaux (folio) qu'il y a des 1500 j'usqu'à épuration complète de la valeur 4500.?
Là c'est du chinois pour moi
Merci a tous

[jessenierin]

Voila
je viens de bidouiller tant bien que mal et j'ai obtenu ceci

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
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 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.

Help please