Discussion :

[AndréPe]

Bonjour,
J'ai un état dans lequel j'ai dynamiquement créé des controles (zone de texte et combobox) dont le nombre est fonction du nombre de champs d'une table.

Pour adapter le form à la table, je dois d'abord effacer tous ces contrôles avant de recréer ceux qui vont bien.

Code :

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

1
2
3
For Each ctl In Forms!maform.Controls
        DeleteControl "maform", ctl.Name
Next ctl

Or ce code, a priori classique, n'efface que 1 contrôle sur 2, dans l'ordre de tabulation.
J'ai ajouté un 'doevents' avant le 'next' sans succès.
Bizarre.
Si vous avez une idée de l'origine de ce phénomène ....
Merci
Amitiés

[Invité]

Bonjour

Il m'est déjà arrivé d'avoir à supprimer des composants, hors comme toi j'ai déjà eut des soucis de ce genre.

A l'époque, pour pallier ce problème j'ai dut inclure le code de suppression dans une boucle de type

Code :

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

1
2
3
For i=1 to Me.Controls.Count
 ' code de suppression
Next i

Avec pour boucle le nombre de contrôle, et là tout est supprimé.

Il y a peut-être une meilleur solution, mais à l'époque c'était la seule que j'ai trouvé.

Philippe

[AndréPe]

Merci pour ta réponse.
J'ai trouvé d'où venait mon bug
Controls.Count diminue d'une unité après chaque effacement d'un controle et on repart avec une nouvelle numérotation des contrôles et le premier est toujours "Controls(0)", d'où le code qui fonctionne , étant entendu que la commande émane d'un autre formulaire que celui dans lequel on souhaite éffacer les contrôles :

Code :

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

1
2
3
Do While Forms!MaForme.Controls.Count > 0
  DeleteControl "MaForm", Forms!MaForm.Controls(0).Name
Loop

Il y a probablement plus simple.
Terminé pour moi.
Amicalement.