Problème avec méthode AddFromString

Version imprimable

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

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

Bonjour

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

Code:

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

01/02/2008, 19h25
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?
01/02/2008, 19h30
Invité

Re

:oops: 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 :faq: 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
01/02/2008, 19h54
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?
01/02/2008, 19h59
Invité

Citation:

Envoyé par 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?

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
01/02/2008, 20h42
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.
04/02/2008, 18h21
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.