Discussion :

[Willygramme]

j'ai par exemple, dans une table, un champ "heures" et un champ "cout horaire". Est il possible de les multiplier et de remplir un autre champ "prix de revient"?

J'essaie de faire ca avec des recordsets mais ca ne marche pas:

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
Dim oRst As Recordset
    Dim oRst1 As Recordset
    Dim Hrs As Long
    Dim CtHor As Long
 
 
    Dim oDb As Database
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("select CoutHor,Heures,tot from Interventions", dbOpenDynaset)
 
    oRst.Edit
    Hrs = oRst.Fields("Heures")
    CtHor=oRst.Fields("CoutHor")
    oRst.Fields("tot").Value = Hrs * CtHor
    oRst.Update
    oRst.Close
    oRst1.Close

[pgz]

Bonjour.

Si

ca ne marche pas

, ça fait quoi?

Parce qu'avec le bout de code que tu donnes, le calcul devrait se faire mais sur un seul enregistrement.
Si tu utilises la bibli DAO, des déclarations explicites sont préférables, comme

Code :

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

Dim oRst as DAO.Recordset

Bon courage,

PGZ

[Willygramme]

De fait... Pour expliquer le problème, j'ai changé un peu le code pour que ce soit plus compréhensible et j'ai corrigé mon erreur...

Par contre, ca marche à moitié, car il n'actualise pas la valeur instantanément dans le formulaire où je fais le calcul (par un clic sur bouton).
Certaines fois, après fermeture puis ouverture (je crois), la valeur correcte apparait, mais je ne comprend pas pourquoi.

[Philippe PONS]

Dans le bouton qui fait le calcul, il faut ajouter le code:
Me.Requery
pour rafraichir les données affichées par le formulaire

[Willygramme]

ca va beaucoup mieux, mais quand je modifie par exemple mon champ "CtHor", ensuite j'appuie sur tab pour passer au champ suivant et valider ce que j'ai écris. Si à ce moment je clique sur le bouton pour faire le calcul, et son action est de placer le curseur sur le premier champ de mon formulaire (c'est la date et elle clignote alors en noir). Si je re-appuie sur le bouton, ca marche...

Il y a une explication?

[pgz]

Re.

Il y a 2 pb apparents:
1. il est inutile d'avoir un champ ("tot") égal au produit de 2 autres.
2. Pourquoi utiliser DAO pour un calcul simple dans un formulaire.

==>Supprimer le champ Tot de la table, dans le formulaire placer un cotrôle "CoutTotal" calculé = CtHor * NbH

Mas ce n'est qu'un avis.

PGZ

[Willygramme]

Et comment puis je faire alors pour envoyer le résultat obtenu dans mon contrôle vers un champ dans une table ?