Discussion :

[Miss Ti]

Bonjour à tous,

Lorsque mon formulaire s'ouvre, je voudrai qu'il crée et qu'il place un nombre de cases à cocher qui dépend du résultat d'une requête. Mais déjà, je bloque sur la création de plusieurs contrôles au chargement.

J'ai voulu appliquer la FAQ de VB (http://vb.developpez.com/faq/?page=Form#ctl_dynamique) mais il y a un détail que je ne doit pas saisir ou qui ne doit pas avoir de correspondance entre VB et VBA:

placez un textbox sur une form et donnez-lui l'index 0

==> s'agit-t-il de l'index de tabulation?

Lorsque que je charge mon formulaire, j'ai le message d'erreur suivant:

Erreur d'exécution '13': Incompatibilité de type

Le code bloque sur Load Texte16(i) du code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load()
Dim i As Long
For i = 5 To 9
    Load Texte16(i)
    Texte16(i).Top = Texte16(i - 1).Top + Texte16(0).Height + 60
    Texte16(i).Visible = True
Next
End Sub

(NB: je commence le décompte à 5 parce que j'ai d'autres controles déjà créés)


Avez-vous déjà connu ce problème? L'avez-vous résolu?
Je sais qu'il y a une 2e solution, d'après la FAQ mais est-elle applicable sous VBA?

[Demco]

La FAQ Access te propose également de créer dynamiquement des contrôles :
http://access.developpez.com/faq/?re...=dynamiquement

En espérant t'aider.

[Miss Ti]

Ca me paraît prometteur comme plan, ton tuyau.
Je vais me la tenter comme ça. Je te tiens au courant...

[Miss Ti]

Mouais. Y'a pas mal d'erreurs qui sont générées par les codes fournis alors je bricole tout ça.

J'ai un soucis. Lors de la première création de contrôles, pas de soucis, il me créé les contrôles chk_param1, chk_param2 (etc.) et les labels correspondants lbl_param1, lbl_param2, etc.
A la fois suivante que je créé mes contrôles, je dois en premier lieux effacer les anciens. Pour cela, j'applique le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
    For Each ctl In Forms!f_export_analyses.Controls
        Debug.print ctl.Name
        Select Case Left(ctl.Name, 3)
            Case "chk"
               DeleteControl "F_export_analyses", ctl.Name
            Case "lbl"
                DeleteControl "F_export_analyses", ctl.Name
        End Select
    Next ctl

Donc en théorie, tous les contrôles doivent être passés au peigne fin, puis supprimés si c'est un label (commençant par "lbl") ou un checkbox (commençant par "chk").
Sauf que j'avais toujours un message du genre "le nom du contrôle 'lbl_param1' est déjà en cours d'utilisation".
A l'aide du Debug.print, je me suis rendue compte que lors du For each ctl in Forms!..., il y avait plein de contrôles qu'il n'analysait pas et à chaque fois de façon aléatoire (un coup, c'est 1 label, une autre fois c'est tous les labels ou tous les chkbox, etc).
Vous avez déjà eu ça?

[Arkham46]

Parcourir et supprimer des contrôles dans la même boucle For..Next est peut-être mal digéré par Access?

Une idée : faire deux boucles

Une première boucle rempli une collection (ou un tableau?) avec les noms ou les index des contrôles à supprimer, puis une boucle sur cette collection (ou tableau ) permet de supprimer les contrôles dans le formulaire.
Un peu pénible mais ça doit marcher.