Discussion :

[Oceliane]

Dans mon formulaire, j'ai ceci:



Toutes les variables proviennent de la même table.

La mensualité est calculée automatiquement à partir des champs Montant, Duree et taux.

je souhaiterais que lorsque l'on rentre ou modifie le montant, la Duree ou le taux, la mensualité s'actualise en se calculant automatiquement. cependant, on peut décider d'entrer une valeur différente pour la mensualité. comment faire?

[Heureux-oli]

Bonjour et bienvenue sur les forums Offices de DVP.

Utilises le générateur d'expression, il te sera d'un grand secours.

Maintenant, tu peux aussi faire une fonction qui va faire l'opération et te donner le résultat.

Maintenant, si tu nous donnes plus d'information, nous pourrons mieux te venir en aide pour te permettre d'obtenir ce que tu voudrais.

[Oceliane]

voila la formule.

Code :

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

Mensualité = (Montant du prêt * taux/12) / (1-(1+Taux/12)^duree)

donc, avec le générateur d'expressions, ça devrait donner:

Code :

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

( [montantP1] *( [taux] /12))/(1-(1+ [taux] /12) ^ [duree] )

je l'ai mis dans paramètres de la mensualité==>valeur par défaut, mais ça marche pas.

j'ai aussi fait

Code :

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

[Mensualite]=( [montantP1] *( [taux] /12))/(1-(1+ [taux] /12) ^ [duree] )

dans Montant,taux et durée sous "sur modification", mais ça marche pas non plus.

je suppose qu'il doit y avoir une erreur dans ma formule, mais où...

[DMboup]

...cependant, on peut décider d'entrer une valeur différente pour la mensualité. comment faire?

Pour cette raison mensualité doit avoir comme source le champ de la table source.

pour le calcul, il faut faire une fonction toute simple que tu appel après mise à jour de chaque champs Montant, Duree et taux.
La fonction

Code :

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

1
2
3
4
5
 
Public Function CalculMensualite(Mtt, MDure,Mtaux)
'ici tu peux faire tes tests sur tes variables
      CalculMensualite=ton calcul
End Function

Appel de la fonction

Code :

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

1
2
3
4
 
Private Sub Montant_AfterUpdate()
      me.Mensualite=CalculMensualite(me.Montant, me.Duree, Me.taux)
      me.requery

Voila.

[Heureux-oli]

La mensualité est-elle stockée dans la table ?

Si c'est le cas,

Il faut une procédure et une fonction pour éviter de se taper plusieurs fois la même chose (factorisation)
la fonction

Code :

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

1
2
3
4
5
6
 
Public Function dblMensualite(dblTX as double, dblMontant as double, intDuree as integer) as double
 
dblMensualite = (dblMontant *( dblTX /12))/(1-(1+ dblTX /12) ^ intDuree )
 
End Function

L'appel de la fonction

Code :

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

1
2
3
4
5
6
7
Sub taux_AfterUpDate()
if [montantP1] <> 0 and [taux]<>0 and [duree] <> 0 then
Me.[Mensualite] = dblmensualite( Me.[taux],Me.[montantp1],Me.[duree])
Else
MsgBox "il manque une donnée"
end if
End Sub

Cette procédure est à répéter pour chaque contrôle

[Oceliane]

Génial! C'est exactement ce qu'il me fallait!

Merci beaucoup à vous deux!