IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Scinder une facture


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Inscrit en
    Septembre 2006
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Septembre 2006
    Messages : 4
    Par défaut Scinder une facture
    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

  2. #2
    Membre à l'essai
    Inscrit en
    Septembre 2006
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Septembre 2006
    Messages : 4
    Par défaut scinder facture suite
    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

Discussions similaires

  1. Creation d'une facture automatique
    Par nassu dans le forum Access
    Réponses: 4
    Dernier message: 20/01/2006, 21h35
  2. scinder une chaîne
    Par NorthernLights dans le forum C++
    Réponses: 6
    Dernier message: 17/01/2006, 15h32
  3. Sortie d'une facture sur excel
    Par ShortcutZ dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 11/01/2006, 17h07
  4. Imprimer une facture à partir de ma base
    Par chataigne dans le forum Débuter
    Réponses: 15
    Dernier message: 16/11/2005, 10h33
  5. etablir une facture avec Visual C++
    Par aymeno dans le forum MFC
    Réponses: 4
    Dernier message: 27/08/2005, 15h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo