Discussion :

[Farbin]

Bonjour,
J'essaye d'ajouter du code dans un formulaire par la méthode AddFromString avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Dim frm As Form, mdl As Module
Dim Code As String
Set frm = Form_FormTest
Set mdl = frm.Module
 
Code = "Private Sub Commande2_Click()" & vbCrLf
Code = Code & "MsgBox " & Chr(34) & "OK" & Chr(34) & vbCrLf
Code = Code & "End Sub"
mdl.AddFromString Code

Le code est bien ajouté dans le module du FormTest mais quand je clique sur le bouton Command2, rien ne se passe (même après avoir enregistré). Aurais je oublié quelque chose.
Merci d'avance

[Invité]

Bonjour

Je viens de tester ton code avec une petite modification, le voici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub test()
    Dim frm As Form, mdl As Module
    Dim Code As String
    ' j'ouvre le formulaire test en mode création
    DoCmd.OpenForm "Test", acDesign
    Set frm = Forms("Test")
    Set mdl = frm.Module
    Code = "Private Sub Commande2_Click()" & vbCrLf
    Code = Code & "MsgBox " & Chr(34) & "OK" & Chr(34) & vbCrLf
    Code = Code & "End Sub"
    mdl.AddFromString Code
End Sub

Et cela a fonctionné.

Starec

[Farbin]

Bonsoir
Sur mon poste, ça fait la même chose que l'ancien code, à savoir : le code est bien copié dans le module du form Test, mais le click sur le bouton Commande2 du form Test ne déclenche rien. Y a t il une référence à ajouter?

[Invité]

Re

je n'avais pas vu que le bouton n'avait aucun effet, fatigué

Plutôt qu'un long discours, je t'invite à lire cet article de la Access.

Comment créer dynamiquement un contrôle dans un formulaire et lui associer du code vba sur un événement ?

Surtout la dernière partie.

Starec

[Farbin]

Merci pour ton aide. N'y a t il pas moyen de faire la même chose mais avec le form ouvert en mode formulaire?

[Invité]

Merci pour ton aide. N'y a t il pas moyen de faire la même chose mais avec le form ouvert en mode formulaire?

Non, le formulaire doit être en mode design, mais regarde les paramètres de DoCmd.OpenForm, il y'en a un pour qu'il reste caché, puis tu l'enregistres et tu peux l'ouvrir normalement.

Une question qui n'a rien à voir, la création dynamique est assez spécifique, et n'est utilisée que dans certains cas.

De plus donne un nom explicite à tes contrôles, car un bouton de commande qui s'appelle Commande2, ce n'est pas bon du tout.

Starec

[Farbin]

Merci, je vais voir ça. Le formulaire que je veux développer doit être "assez" générique donc, le nombre de boutons n'est pas défini à l'avance, ainsi que leur code.

[cafeine]

Hello,

dans ce cas, tu dois recréer le formulaire dynamiquement en l'ouvrant en mode design caché, l'enregistrer, puis l'ouvrir en mode consultation pour tes utilisateurs.