Discussion :

[laurent00]

Bonjour
j'ai créer une fonction de calcul dans un formulaire (en fait on m'a aidé) qui prends la valeur saisie dans le formulaire plus une constante dans une autre table

Code :

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

1
2
3
4
5
Private Sub Energie_AfterUpdate()
kWhep = Consommation * Energie.Column(1)
tCo2 = Consommation / 1000 * Energie.Column(2)
TEP = Consommation * Energie.Column(3)
End Sub

Code :

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

1
2
3
4
5
Private Sub Consommation_AfterUpdate()
kWhep = Consommation * Energie.Column(1)
tCo2 = Consommation / 1000 * Energie.Column(2)
TEP = Consommation / Energie.Column(3)
End Sub

le calcul se fait lorsque toutes les champs sont remplis,
mais si je change ma constante les enregistrements ne se changent pas automatiquement, comment faire pour mettre à jour tous les enregistrements après le changement d'une valeur de référence

j'ai vu un semblant de réponse dans la FAQ de Tofalu mais pas tout compris ...
LJ

[Jeannot45]

En fait, Access n'est pas Excel et un changement de valeur, ne reprovoque pas tous les calculs.

Soit tu fais une requete Mise à jour, soit tu utilises la D.A.O.

A+

[laurent00]

ok pour la requête mise à jour
mais peux-tu m'en expliquer le principe de construction
merci LJ

[L'Italiano]

Ciao Laurent.
J'ai déjà répondu.

[laurent00]

Merci Italiano, T trop fort
mais je veux bien connaitre aussi la méthode de la requête mise à jour de Jeannot45
LJ

Ciao Laurent
Comment sait va?
Je ne te conseille pas de faire l'upgrade de tous les enregistrements, parce qu'ils changeraient toutes les valeurs déjà mémorisées, donc adieu aux statistique.
Cependant si vraiment tu veux le faire, voilà le code à ajouter à l'événement sur Click d'un bouton que tu appelleras CmdUpdate.

Debut du Code:

Dim numRec As Integer
Dim Conta As Integer
Dim Frm As Form
Set Frm = Screen.ActiveForm
Frm.RecordsetClone.MoveLast
Conta = Frm.RecordsetClone.RecordCount
DoCmd.GoToRecord acActiveDataObject, , acFirst
For numRec = 1 To Conta
Energie_AfterUpdate
DoCmd.GoToRecord acActiveDataObject, , acNext
Next numRec

Fin du Code

**** En pièce jointe je t'envoie l'mdb

Saluts