Discussion :

[fredoh]

bonjour

j'ai crée dynamiquement un formulaire, un peu a la maniere de la FAC suivante :

http://access.developpez.com/faq/?pa...#formdynamique

Mais j'aimerais savoir si il est possible de rajouter dynamiquement des evenements (du type on double click) sur ces controles

merci

[Tofalu]

Bonjour

Utilises la méthode CreateEventProc comme ici par exemple :

http://www.developpez.net/forums/viewtopic.php?t=22865

http://www.developpez.net/forums/viewtopic.php?t=189961

[fredoh]

merci tofalu, c'est exactement ce que je cherchais.

Je n'avais pas trouvé ce precedent post car je n'avais surement pas tapé les bons mots dans le moteur de recherche

par contre mon code ne marche pas, as tu une idée ?

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
21
22
23
24
25
26
27
28
29
30
31
 
Dim CtrlEntCbLb As Control
Dim mdlEvent As Module
Dim lCreEvent As Long
Dim FrmIliv As Form
 
Set FrmIliv = Forms("Frm_suivi_ILiv_Analyse croisée_v2")
Set CtrlEntCbLb = CreateControl(FrmIliv.Name, acTextBox, acDetail, "", "")
CtrlEntCbLb.Name = "Codelabo-" & iPos
CtrlEntCbLb.Left = (1100 * iPos) '+ 1247
CtrlEntCbLb.Top = 57
CtrlEntCbLb.Width = 1035
CtrlEntCbLb.Height = 255
CtrlEntCbLb.BackColor = 55769
CtrlEntCbLb.BackStyle = 1
CtrlEntCbLb.ForeColor = 0
CtrlEntCbLb.FontWeight = 700
CtrlEntCbLb.FontSize = 9
CtrlEntCbLb.FontName = "Arial"
CtrlEntCbLb.BorderStyle = 1
CtrlEntCbLb.SpecialEffect = 0
CtrlEntCbLb.InSelection = 0
CtrlEntCbLb.FontItalic = 0
CtrlEntCbLb.TextAlign = 2
CtrlEntCbLb.Visible = True
CtrlEntCbLb.Locked = True
CtrlEntCbLb.ControlSource = "CodeLabo"
 
 
Set mdlEvent = FrmIliv.Module
lCreEvent = mdlEvent.CreateEventProc("Clic", CtrlEntCbLb.Name)

VBA me dit que le gestionnaire d'evenement est non valide (Err = 57017)

pourtant "Clic" , est ce qui est utilsé dans l'exemple de l'aide d'access

[fredoh]

je me permet de relancer les membres du forum access, car je ne reussi pas a trouver ce qui cloche dans mon code.

merci

[Tofalu]

ça ne serait pas clic avec un k ? Click ?

[fredoh]

en fait , j'ai essayer les deux orthographes "clic" et "click", elles ne fonctionnent pas toutes les deux

[fredoh]

j'ai finallement trouvé la cause dysfonctionnement, dans le code suivant :

Code :

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

 CtrlEntCbLb.Name = "Codelabo-" & iPos

le signe - (signe moins) ne plaisait pas trop a access.

J'ai mis un _ (underscore) a la place et cela fonctionne beaucoup mieux.

Access pensait peut etre qu'il fallait effectuer une soustraction a ce niveau la :

Code :

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

lCreEvent = mdlEvent.CreateEventProc("Clic", CtrlEntCbLb.Name)

enfin voila, que de temps perdu pour un contenu de variable non conforme.