Discussion :

[supertoms]

Salut à tous,

je crée un formulaire dynamiique, dans celui-ci il y a différentes choses, dont un bouton avec un code qui lui est associé dans un module, ça ca marche, le problème c'est que je veux coder un deuxième évènement : le onfocus d'une case.
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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
.
.
.
Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", 7000, HauteurY, 1000, 250)
                    With ctlText
                        .Name = "duree" & (dk)
                        .OnGotFocus = "[Event Procedure]"
                    End With
.
.
.
'Crée un contrôle "Bouton" :
    Set ctlText = CreateControl(frm.Name, acCommandButton, , "", "", 5000, HauteurY, 2000, 800)
    With ctlText
      'Définit un nom pour le contrôle
      .Name = "benr"
      .Caption = "ok"
      'Déclare l'événement "Après mise à jour" du contrôle
      .OnClick = "[Event Procedure]"
    End With
 
    Dim mdl As Module
    Dim mdl2 As Module
    Dim lng As Long 'Sert à récupérer le numéro de la ligne d'insertion de la procédure
    Dim lng2 As Long
 
    Set mdl = Forms![Formulaire1].Module
    Set md2 = Forms![Formulaire1].Module
    lng = mdl.CreateEventProc("Click", ctlText.Name)
    lng2 = mdl.CreateEventProc("GotFocus", ctlText.Name)
 
    Dim fouu As String
    Dim fouu2 As String
 
    '//Génération du code du bouton, beuuuuuuuuuuuuuuuarf !!
    fouu = "Dim oRst As DAO.Recordset" & vbCrLf & "Dim oDb As DAO.Database" (...) & vbCrLf & "oDb.Close" & vbCrLf & "Set oRst = Nothing" & vbCrLf & "Set oDb = Nothing" & vbCrLf & "MsgBox " & Chr(34) & "Enregistrement réussi !" & Chr(34) & "" & vbCrLf & "Docmd.Close"
 
    fouu2 = "MsgBox " & Chr(34) & "aaa" & Chr(34) & ""
 
    mdl.InsertLines lng + 1, fouu
    mdl2.InsertLines lng2 + 1, fouu2

Merci d'avance !

[LedZeppII]

Bonsoir,

A mons avis lng2 ne correspond plus à la ligne de la procédure duree_OnGotFocus() après que tu as inséré le code de duree_OnClick().
Cela décale certainement le numéro de ligne.

Le plus sûr est de répéter cette séquence pour chaque événement à créer

• Créer la procédure avec CreateEventProc
• Insérer les lignes de code

plutôt que de créer toutes les procédures et d'insérer ensuite leurs codes repectifs.

A+

[Domi2]

Bonsoir,

Je suis plus ou moins les nombreuses discussions que tu as initiées sur la création dynamique de formulaires... Très intéressant et instructif...

2 remarques si je peux me permettre :

1) La création dynamique de ton formulaire ne découle-t-elle pas d'un défaut de conception majeur de l'application ?

2) Si tu dois au final livrer un fichier au format .mde, que comptes-tu faire ?

Domi2

[supertoms]

C'est déja la 2ème fois qu'on me parle de "défault de conception majeur", je tiens à rappeler que je débute (je ne sais même pas ce qu'est le mde), et que je fais de mon mieux, si vous avez des suggestions constructives merci de les donner plutôt que d'emetre des suppositions.

Pour rappel, je sélectionne dans une treeview sur 3 niveaux des tâches, il peut y en avoire plus de 100, et je génère par la suite en fonction de ce qui a été coché un ensemble de zones de textes à remplir, une ligne par case coché, et environ 10 zones de texte de différentes natures par ligne.

Si vous voyez autre chose que le dynamique pour gérer ça merci de me le dire.

Et merci LedZeppII je vais suivre ton conseil et vous tiens au courant.

[Domi2]

Bonjour,

il peut y en avoire plus de 100, et je génère par la suite en fonction de ce qui a été coché un ensemble de zones de textes à remplir, une ligne par case coché, et environ 10 zones de texte de différentes natures par ligne

Je ne peux que faire des suppositions...

Mais d'après tes explications, cela ressemble à une structure reprise d'un tableur genre Excel...

Pour ce qui est du mde, c'est l'extension d'une base Access (.mdb) complilée.

Avantage : le code, les requêtes, formulaires sont protégés...

Le problème dans ton cas, c'est que les modifications, et donc la création dynamique de formulaire, ne seront pas possible.

Domi2

[supertoms]

Mais d'après tes explications, cela ressemble à une structure reprise d'un tableur genre Excel...

Oui c'est le cas, et alors ?

[Domi2]

Re,

Pour faire simple...

Un père de famile et ses enfants (nombre variable). On veut connaitre pour chaque enfant le nom et prénom du père.

Représenté en ligne sur un tableur, cela donne, colonne par colonne...

Nom du père, prénom, prénom enfant 1, prénom enfant 2, etc...

On prévoit des colonnes pour 10 enfants, certaines ne seront pas renseignées.

Avec Access, 2 tables, soit une table "Pères" et une table "Enfants", avec une relation un à plusieurs...

Domi2

[supertoms]

Je ne vois pas ou tu veux en venir...?
Et pour en revenir à cette histoire de mde, n'y a-t-il pas moyen tout simplement de pouvoir ouvrir Access, en ouvrant mon formulaire d'accueil automatiquement, et en masquant les menus ? C'est tout ce que je demande.