Discussion :

[beloteux]

Bonjour a tous,

je cherche a récupérer les valeurs calculées d'un etat access dans une table.
J'ai donc créer une fonction qui permet de le faire :

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
 
Function Traitement_Validation(Etat_Equipement As Variant, Equipement As Variant, Date_Valid As Date, Valeur_Valid As Variant)
 
Dim Valeur_Traitement As Variant
 
 
Valeur_Traitement = DLookup("Temp_Val_Jour_Validation", "T_Temp_Validation_Jour", "Temp_Val_Jour_Date=" & Date_Valid & " and Temp_Val_Jour_ID_Equipement = " & Equipement & " and Temp_Val_Jour_ID_Etat_Equipement = " & Etat_Equipement)
 
If (IsNull(Valeur_Traitement)) Then
sql = "INSERT INTO T_Temp_Validation_Jour ( Temp_Val_Jour_Ref_Site_C, Temp_Val_Jour_Date, Temp_Val_Jour_ID_Equipement, Temp_Val_Jour_ID_Etat_Equipement, Temp_Val_Jour_Validation ) values ('" & Application.TempVars("REF_SITE").Value & "', '" & Date_Valid & "','" & Equipement & "', '" & Etat_Equipement & "', '" & Valeur_Valid & "');"
 
DoCmd.RunSQL (sql)
'MsgBox sql
 
End If
 
End Function

J'appelle cette fonction par l'intermediaire d'une zone de texte dans mon etat comme suis :

Code :

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

=Traitement_Validation([ID_Equipement_C];[Valeur_Etat_Equip_Ref_Etat];[Date_Complete_Jour];[Traitement_Validation_Jour])

Si j'active la msgbox, ma requete SQL est correcte.

or, j'ai le message suivant :

Erreur d'execution '2486'
Impossible d'executer cette action pour l'instant.

quelqu'un pourrait-il m'aider ?

D'avance Merci

[mout1234]

Bonjour et bienvenu sur le forum.

Je ne vois pas l'intérêt de procéder ainsi: un état est destiné à présenter des informations à l'utilisateur. Il n'est pas très logique de l'utiliser comme support pour exécuter des traitements de données.

De surcroit, tu souhaites ainsi lancer une action au travers d'une expression! Ce n'est pas l'usage prévu des expressions pour un contrôle. Les expressions sont destinées exclusivement à fournir une valeur audit contrôle.

Le plus logique serait donc de revenir à ton besoin initial et coder les regroupements et calculs que tu cherches à récupérer directement en VBA .

Peut-être pourras-tu gérer tout ou partie de ton traitement au travers de requêtes action lancées depuis le code. Sinon, tu peux trés certainement reproduire tes calculs via des commandes DAO.
http://warin.developpez.com/access/dao/

Bon courage.

[beloteux]

Bonjour et Merci pour ta réponse.

En effet, un état n'est pas un lieu habituel pour effectuer ce genre d'action. Mais comme mon etat provient déja d'une requete croisée, j'avais tout sous la main...

Je vais regarder ton lien, en esperant m'en sortir...

Merce encore

[beloteux]

bon, je tourne vraiment en rond...

Compte tenu que tout mes calculs sont fait dans mon état (etat qui repose sur une requete croisée, j'ai egalement fait des tests brefs, mon état possede vraiment tout... donc, c'est vrais que pour moi, la meilleur des solutions est de passer par cet etat pour mouvementer une table.
En fait, pour rentrer dans le vif du sujet, je me repose sur cette table pour avoir les validations d'une journées, je peux avoir plusieurs validations, mais je dois compter qu'une journée. De plus, si j'ai une invalidation, cette dernière prends lieu et place... donc, le mieux etat de passer par une table, ou je reprends les valeurs...
Si pas de valeur pour la journée, je l'ecris...
Si il exite une valeur et que je dois invalider, je la modifie
Si il existe une valeur et que je dois valider... je fais rien...

Donc, si quelqu'un a une autre solution que de reproduire les calculs sur une requete, avec les regroupements et compagnie... je suis preneur

d'avance MErci

[beloteux]

après plusieurs recherches, j'ai enfin trouvé la solution !

En effet, en utilisant la commande CurrentDB.Execute, en lieu et place de doCmd.RunSQL, je n'ai plus de problème !

voila, pour info

merci a tous

[mout1234]

Ok,

N'oublie pas de cliquer sur