Discussion :

[jerome_grenoble]

Bonjour à tous,

J'ai un problème concernant la création de labels dynamiques dans un formulaire d'access 2007. Ce que je voudrais faire, c'est arriver à créer dynamiquement un label depuis une boucle while, à chaque passage dans celle-ci.

Pour tester mon code (je suis débutant en access), j'ai créer une sub sur l'événement Change d'une zone de texte. A l'appel de cette sub, j'exécute la requête SQL qui va chercher les identifiants, puis je démarre une boucle While dont la condition est donnée par EOF.

A l'intérieur de cette boucle, je ne sais pas quoi mettre.. J'ai tenté des
monLabel = New Label
ou bien
Dim monLabel As Label
ou bien encore,
Dim monLabel As new Label()
Sans succès....


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
Private Sub ZoneTexte_Change()
 
'Délaration des variables
Dim db As DAO.Database
Set db = CurrentDb()
Dim Filles As Recordset
 
'Requête SQL pour récuperer les Identifiants IdFille
RequeteSql = "SELECT IdFille FROM MatiereComposeDe WHERE IdMere = 4"
Set Filles = db.OpenRecordset(RequeteSql)
 
 
'Début de la boucle, tantque on n'a pas atteint End Of File
While Not Filles.EOF
 
 With Filles
       Texte2.Caption = Texte2.Caption & !IdFille
       ' A cet endroit, création d'un label pour y stocker !IdFille
       ' Puis modification de ses propriétés pour qu'il s'affiche au bon endroit.
  End With
    Filles.MoveNext
Wend
Filles.Close
 
End Sub

Voila, es-ce que vous pouvez me dire déjà si c'est possible d'opérer ainsi, si oui, pouvez-vous m'aiguiller vers un tuto, ou bien me donner le nom de la fonction à utiliser ?

Merci d'avoir pris le temps de me lire, merci pour les éventuelles réponses,

Cordialement,
Jérome

[User]

Salut,

tu dois ouvrir ton formulaire en mode création:

Code :

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

DoCmd.OpenForm "TonFormulaire", acDesign

et après tu fais un truc du style:

Code :

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

1
2
3
4
5
6
7
8
Set NewLabel = CreateControl("TonFormulaire", acLabel, acDetail, , , 0, 0, 10, 10)
        With NewLabel
            .Name = "TonLabel"
            .BackStyle = 1
            .BorderStyle = 1
            .BorderColor = vbBlack
            .Visible = True
        End With

donc regarde du coté de CreateControl.

A+

[jerome_grenoble]

Merci pour la rapidité de la réponse, je test ça et vous tient au courant,

Jérome

[jerome_grenoble]

Je n'y arrive pas !
Comment dois-je ouvrir en mode création le formulaire ?
Où la ligne de code

Code :

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

DoCmd.OpenForm "TonFormulaire", acDesign

doit-elle être placée ?

Pour l'instant je la place dans la sub, avant la boucle while, mais ça sort une erreur "Erreur d'execution 2174 : Impossible de passer àun autr emode pour le moment"

Sinon, c'est bien ça que je souhaite faire, merci !

Jérome

[Invité]

Bonjour

Va faire un tour dans la FAQ Access, tu auras des informations complémentaires avec une petite recherche.

http://access.developpez.com/faq/ind...=createcontrol

Lorsque tu fais des opérations sur un formulaire en mode création, le code ne doit par être mis dans le module de ton formulaire, mais dans un module standard.

Philippe