Discussion :

[jcs75]

Bonjour. Dans une application Access 2010 que je développe, j'ai besoin d'exécuter du code VBA qui est construit à run time comme on construit une commande SQL à la volée pour créer un recordset adapté à une situation donnée. En vous remerciant par avance de votre aide.

[vodiem]

Salut jcs75 et bienvenu,

inspiré du code obsolète ici

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
18
19
20
Sub CreateNewModule()
Const ModName = "ModuleTest2"
Dim MyMod As Module
Dim MyStr As String
 
DoCmd.RunCommand acCmdNewObjectModule  ' Create new module.
 
MyStr = "Sub Test2()" & vbCrLf         ' Create text for the module.
MyStr = MyStr & Space$(4) & "MsgBox " & Chr$(34) & "test2" & Chr$(34) & vbCrLf
MyStr = MyStr & "End Sub"
 
Set MyMod = Modules(Application.Modules.Count - 1)    ' Give module a name.
 
MyMod.InsertText MyStr                 ' Insert text into the module.
DoCmd.Close acModule, MyMod.name, acSaveYes   ' Close and save module.
DoCmd.Rename ModName, acModule, MyMod.name
 
Run "Test2"
DoCmd.DeleteObject acModule, ModName
End Sub

testé sur ac2007.

mais je vois pas l'intérêt de construire du code dynamiquement à moins de faire du développement assez avancé comme création de complément access.
le code à pour vocation de faire des traitements on peut donc en soi faire des traitements conditionnels.

[jcs75]

Bonjour, tout d'abord merci de vous être penché sur ma question.

Dans l'application que je développe, il y a deux parties : un dictionnaire de données d'un côté, et un formulaire qui leur permet de combiner librement les entrées de dictionnaires pour produire une information qui leur est utile.

Pour prendre un exemple : l'utilisateur peut définir un item "carburant" comme résultant du produit de la distance en km parcourue pendant la période considérée par la consommation en litres du véhicule au km par prix du carburant au litre. Chacun des termes du produit comme le produit lui même est une entrée du dictionnaire. Mais si l'utilisateur estime que ce poste est pour lui d'un importance marginale, il peut directement valoriser le poste carburant sous la forme d'une enveloppe de x euros.

D'autres solutions sont envisageables selon les besoins de l'utilisateur. La seule condition requise est que l'item définit soit, au sens mathématique, une fonction ne prenant en compte que des items existants dans le dictionnaire.

Pour en revenir à ma question, je dois coder cette combinaison dont je ne connais les termes qu'au moment où l'utilisateur vient de la saisir dans l'application. Je suis donc bien en run time.

Merci d'avance pour les conseils que vous pourriez me fournir.

Meilleures salutations.

[vodiem]

Je comprends.
La gestion entre le dico/fonctions ne va pas être facile.
Je te recommande plutôt de créer dynamiquement une requête [informations] basé sur la table [source] via la table [dictionnaire]
[source] : Ref1, Ref2, Ref3...
[dictionnaire] : formule, expression
lorsqu'il y a une modification du dictionnaire tu reconstruis la requête [informations] en bouclant sur les enregistrements du dico.

ex:
[source] : distance, conso, tarifCarbu
[dictionnaire] : formule, expression
avec les valeurs:
"consommé", "[distance]*[conso]"
"montant", "[consommé]*[tarifCarbu]"

au départ de [informations] tu auras:

Code SQL :

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

SELECT * FROM [source]

au fur et à mesure de la boucle:

Code SQL :

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

SELECT *, [distance]*[conso] AS [consommé] FROM [source]

Code SQL :

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

SELECT *, [distance]*[conso] AS [consommé], [consommé]*[tarifCarbu] AS [montant] FROM [source]

tu modifies ensuite [informations] avec CurrentDb.QueryDefs
ainsi tu auras d'un coté les champs de données dans [source] et les champs calculés dans [dictionnaire] dont il sera possible de modifier à la convenance de l'utilisateur (en respectant les formulations du SQL Access)

[jcs75]

Bonjour, Merci beaucoup pour cette piste sur laquelle je vais travailler. Je me permettrais de reprendre contact si j'achoppe à nouveau.
Meilleures salutations.