Calculer automatiquement avec un code VBA

Version imprimable

13/09/2012, 21h07
yankd

1 pièce(s) jointe(s)

Calculer automatiquement avec un code VBA

Bonjour tout le monde!

Je suis entrain de concevoir une base de données sous access 2007. J'aimerais avoir un code VBA qui me permette d'afficher automatiquement le cumul des versements, le reste à payer, dans les champs "Montant_cumulé_versement", reste_a_payer de la table LOCATION_VENTE de chaque client à partir des versements qu'il effectue au niveau du champ "Versement" de la table PAIEMENT. Je ne sais pas comment s'y prendre. pour cela, je sollicite votre aide!
NB:
- Montant_vente est le Prix de vente du local
- "Versement": c'est le Montant payé par tranche
-Montant_cumulé_versement: c'est le cumul des versements
-Reste_a_payer= Montant_vente - Montant_cumulé_versement
Vous trouverez les différentes tables et relations dans le fichier joint
Merci d'avance!!!
14/09/2012, 08h17
zoom61

Salut,

De ce que je comprends de ta demande et de ton fichier, il me semble qu'une requête update au moment de l'enregistrement du paiement devrait suffire :?

@+.
14/09/2012, 13h16
yankd

Merci de l'intérêt porté à ma demande!
Mais en faite je veux faire le suivi des ventes dans une base de données Access 2007 alors j'aimerais avoir un FORMULAIRE avec des ALIAS lequel formulaire va afficher Numero_identité, Nom, Prenom, Numero_contrat, Numero_local, Type_local, Ville, Montant_vente, Versement en calculant le cumul des Versements et le MONTANT restant à payer pour chaque client. je ne sais vraiment pas comment s'y prendre Pour cela je sollicite votre aide!!!
NB:
Je rappelle que "Montant_vente" est le prix de vente du local et "Versement" constitue le versement mensuel.
Les champs(Numero_identité, Nom, Prenom) se trouvent dans la table CLIENT, (Numero_contrat, Numero_local, Type_local, Ville, Montant_vente) se trouvent dans la table VENTE et le champ "Versement" se trouve dans la table PAIEMENT.

Merci d'avance!!!

Salut,

Avec quelque chose comme cela tu devrait y arriver :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'On récupère le numéro du contrat
ValContrant = Forms!Nom_Formulaire!Numero_contrat.value
 
'La requête qui permet de récupérer le total des versement.
SQL = "SELECT Sum(PAIEMENT.Versement) AS Versement FROM PAIEMENT " _
	& "GROUP BY PAIEMENT.Numero_contrat HAVING PAIEMENT.Numero_contrat= " ValContrat
Set oSQL = CurrentDb.OpenRecordset(SQL)
With oSQL
    Do While Not .EOF
        'Mise à jour des champs Versement et Montant Restant
        Forms!Nom_Formulaire!SommedesVersements.Value = oSQL![Versement]
	Forms!Nom_Formulaire!MontantRestant.Value = Forms!Nom_Formulaire!Montant_vente.Value - oSQL![Versement]
        oSQL.MoveNext
    Loop
End With
oSQL.Close

Si le code est dans le formulaire tu peux remplacer :

Code:

Forms!Nom_Formulaire!

par

Code:

Me!