Discussion :

[supertoms]

Salut à tous,
je crée un bouton dynamiquement dans un fomulaire (dailleur tout le fomulaire est crée dynamqiuement).
Voici le code:

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
 
'Crée un contrôle "BOUTON" :
Set ctlText = CreateControl(frm.Name, acCommandButton, , "", "", 10700, HauteurY, 900, 250)
With ctlText
  'Définit un nom pour le contrôle
  .Name = "bouton"
  'Déclare l'événement "Après mise à jour" du contrôle
  .Click = "[Event Procedure]"
End With
 
Dim mdl As Module
Dim lng As Long 'Sert à récupérer le numéro de la ligne d'insertion de la procédure
 
Set mdl = Forms![Formulaire1].Module
lng = mdl.CreateEventProc("Click", "Options")
MsgBox "Vous venez de cliquer sur le bouton du formulaire dynamque !"

J'ai une erreur : "Propriété ou méthode non gérée par cet objet", au niveau de la ligne :

Code :

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

1
2
 
  .Click = "[Event Procedure]"

Pouvez-vous m'aider ?

[supertoms]

Je fais fausse route ?
Ceci ne marche qu'avec Excel ?
Ou c'est possible ?
Dites-le moi svp, si access est vraiment intorchable à ce sujet je n'insiste pas et je fait tout différement.
Mais il faut me le dire svp !
Qu'est-ce que vous en pensez ?

[Invité]

Bonjour

La propriété Click n'existe pas, essayes avec OnClick.

De plus je t'ai donné un lien sur un article de la FAQ, tout est dedans.

Starec

[supertoms]

Justement j'ai lu attentivement la faq et ceci est un copier-coller adapté à mon cas de la faq, je remplace par un bouton les cases.
J'ai vraiment besoin d'aide je rame depuis des heures.
Merci

[supertoms]

Voila mon nouveau code, cette fois-ci l'erreur est un peu plus loin : "Gestionnair d'evenement non valide"
(au niveau de la ligne :lng = mdl.CreateEventProc("OnClick", "b_enreg"))

Voici le code:

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
 
'Crée un contrôle "Groupe d'options" :
Set ctlText = CreateControl(frm.Name, acCommandButton, , "", "", 10700, HauteurY, 900, 250)
With ctlText
  'Définit un nom pour le contrôle
  .Name = "b_enreg"
  'Déclare l'événement "Après mise à jour" du contrôle
  .OnClick = "[Event Procedure]"
End With
 
Dim mdl As Module
Dim lng As Long 'Sert à récupérer le numéro de la ligne d'insertion de la procédure
 
Set mdl = Forms![Formulaire1].Module
lng = mdl.CreateEventProc("OnClick", "b_enreg")
 
mdl.InsertLines lng + 1, vbTab & "MsgBox (Vous venez de cliquer sur le bouton du formulaire dynamique, ouf) "

J'approche du but ?

[Invité]

Là ce n'est pas OnClick, mais Click.

C'est ce qui est écrit dans la FAQ.

Starec

[supertoms]

Ca yé ca maaaaaaarche !!!!
Mais bon il y a une dernière toute petite erreur avant de terminer le poste :
quelle référence faut-il pour faire marcher les Chr(34) ??
Voici mon code:

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
 
'Crée un contrôle "Groupe d'options" :
Set ctlText = CreateControl(frm.Name, acCommandButton, , "", "", 10700, HauteurY, 900, 250)
With ctlText
  'Définit un nom pour le contrôle
  .Name = "benr"
  'Déclare l'événement "Après mise à jour" du contrôle
  .OnClick = "[Event Procedure]"
End With
 
Dim mdl As Module
Dim lng As Long 'Sert à récupérer le numéro de la ligne d'insertion de la procédure
 
Set mdl = Forms![Formulaire1].Module
lng = mdl.CreateEventProc("Click", ctlText.Name)
 
 
mdl.InsertLines lng + 1, vbTab & "MsgBox " & Chr(34) & "AYé" & Chr(34)

Merci d'avance

[supertoms]

C'est bon il suffisait de décocher la case MANQUANt, 30 min de recherche wouhh