Discussion :

[Kloun]

Bonjour,

Depuis un formulaire, suite aux sélections de l'utilisateur, je crée dynamiquement un autre formulaire qui affiche des résultats. Ce formulaire est une grille qui possède n colonnes (selon les choix de l'utilisateur).
Je voudrais pouvoir créer, dynamiquement aussi, du code qui s'exécuterait lorsque l'utilisateur double-clic dans une cellule (afin d'afficher un autre formulaire représentant le détail).
Comment faire pour créer dynamiquement le code VBA ?

Merci.

[pgz]

Bonjour,

Pour créer dynamiquement du code, il faut instancier un module, en l'occurence celui associé à ton formulaire:
Dim frm as form, mdl as Module

set frm = ...
set mdl = frm.Module

...

mdl.InsertLines ...

Pour insérer une procédure évenementielle, donner à la procédure un nom adapté, par ex :
sub MonControle_OnDblClick()

et dans la propriété OnDblClick du contrôle : [EventProcedure]

Bon courage,

PGZ

[fafaf]

Va jeter un coup d'oeil la dessus : http://access.developpez.com/faq/?pa...reeDynCtrlCode

[Invité]

Bonjour

Sinon ici, c'est pour Excel, mais je pense que l'on peut l'adapter à Access.

http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Je n'ai jamais essayer, mais jette un coup d'oeil dés fois que.

Starec

[Kloun]

Voici la syntaxe du bidule :

Code :

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

1
2
3
4
5
6
Dim mdl As Module
Dim lngRetour As Long
    Set mdl = Forms("LeNomDuForm").Module
    lngRetour = mdl.CreateEventProc("DblClick", "LeNomDuChamp")
    lngRetour = lngRetour + 1: mdl.InsertLines lngRetour, "Dim iInt_Id As integer"
    lngRetour = lngRetour + 1: mdl.InsertLines lngRetour, "iInt_Id =4"

LeNomDuChamp ne doit pas comporter de caractères autres qu'alphanumériques.
Il faut remplacer les espaces et - par _, les autres caractères (<, >, ...) par "ctl_"