Discussion :

[celiaaa]

Bonjour,

j'ai un bug que je n'arrive pas à élucider.
J'essaie tout bonnement de supprimer tous les controles d'un formulaire pour en créer d'autre.

Et le problème est que ça ne supprime pas tous mes controles se trouvant sur mon formulaire "frm_tableau" mais qquns

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
' --suppression de tous les contrôles avant d'en créer d'autres
For Each ctl_text In Forms!frm_tableau.controls
      DeleteControl "frm_tableau", ctl_text.name
Next ctl_text
      'DeleteControl "frm_tableau", "boite_tab"
 
'boite
Set ctlboite = CreateControl("frm_tableau", acRectangle, , "", "", _
entDonnéeX, entDonnéeY)

Merci

[pgz]

Bonjour.

Une boucle qui parcourt une collection, ça marche bien, mais pas pour supprimer un à un les objets de cette collection!

Donc 2 solutions :
1.

Code :

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

1
2
3
For i = frm.controls.count to 1 step -1
...
next i

2.

Code :

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

1
2
3
4
5
6
7
8
9
Set oCol = New Collection
 
For Each ctl In frm.Controls
    oCol.Add ctl
Next ctl
 
For Each ctl In oCol
    DeleteControl frm.Name, ctl.Name
Next ctl

Bon courage,

PGZ

[celiaaa]

MERCI beaucoup ça marche !!!