Discussion :

[vautour29]

Salut à tous !

Quelqu'un saurait comment faire en sorte que je puisse voir une valeur calculée dans un formulaire, directement dans la table ?

Par exemple, dans le formulaire j'ai programmé une case de façon à calculer automatiquement la valeur. La valeur entrée au clavier, par exemple 20 pieds est calculée dans une autre case ce qui donne exactement 6,096 mètres. Cette dernière valeur n'apparaît pas dans la table correspondante bien que j'ai fait rajouter une fonction "Explicit" afin de forcer le report de la valeur dans la table, mais il n'y a rien.
De plus, il ne s'agit pas de relations dans la table. C'est une table et j'ai mis toutes les colonnes dans un formulaire. Toutes les données sont reportées dans la table, sauf la valeur calculée en mètres qui n'apparaît pas.

Merci d'avance !

vautour29
[/b]

[Tofalu]

Une valeur calculée ne doit jamais être stockée dans une table (sauf cas exceptionnel de calculs complexes).

De plus Explicit est un option qui n'affecte que VBA ... en aucun cas les données

[vautour29]

Une valeur calculée ne doit jamais être stockée dans une table (sauf cas exceptionnel de calculs complexes).

De plus Explicit est un option qui n'affecte que VBA ... en aucun cas les données :wink:

Même s'il ne s'agit pas de calculs complexes, on peut tout de même stocker cette valeur dans la table ?

Merci

vautour29

[random]

bien sur que l'on peut
mais c'est inutile

imaginons un crédit sur 20 ans (240 mois) je ne vais pas stocker dans ma table les 240 paiements en capital, les 240 paiements en interet et les 239 valeurs futures que je peux recalculer à tout moment

nous sommes dans un système de gestion de données, ce sont les données qui seront stockées, pas les calculs

par contre tu as raison il faut parfois pour des raisons de performances ou de commodités s'affranchir des normes et des modèles, mais cela doit rester exceptionnel et suppose une certaine maîtrise

[Aurèl90]

Si tu désires stocker ta valeur calculée dans une table, yu fais un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim db As Database
Dim rst As Recordset
 
   Set bds = CurrentDb
    Set nt = bds.OpenRecordset("nomdelatable", OpenTable) // Il faut que la table existe auparavant !
 
     nt.MoveFirst    
    nt.Edit
    nt!champ1 = Forms![Calcul].valeurcalculee.Value  //champ1 = le champ qui sert au stockage. 
    nt.Update

Mais le mieux est de stocker aussi la valeur qui a servit au calcul (dans ton cas, '20') afin de ne stocker que des valeurs calculées qui ne sont pas déjà dans la table. Dans ce cas, il faut faire une recherche de l'existence de ta "valeur origine" avec une boucle Do Until nt.EOF ... Loop. ;-)

[vautour29]

cela donnerait nt!LONG_S = Forms[LONG_S * 0,3048].LONG_S*0,3048.Value ... sauf que ca me donne une erreur de compilation. Dans la case "Calcul" j'ai mis la formule...or je me demande s'il faut refaire le calcul pour "valeurcalculee" ou c'est autre chose.

Merci d'avance! :)


vautour29