Effacer tous les contrôles d'un formulaire

**guen** · 07/09/2006, 18h42

Je veux effacer tous les contrôles d'un formulaire avant de le redessiner (en mode design évidemment...).
Je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    DoCmd.OpenForm "SF-Plan de cave", acDesign, , , , acHidden 'on le rouvre en mode création et caché
 
 
    'efface tous les contrôles
    Dim ctl As Control
    For Each ctl In Forms![SF-Plan de cave].Controls
        DeleteControl "SF-Plan de cave", ctl.Name
    Next ctl
 
    DoCmd.Close acForm, "SF-Plan de cave", acSaveYes 'on ferme le formulaire
    DoCmd.OpenForm "SF-Plan de cave"

et il me laisse toujours plus ou moins de contrôles sur la page (il faut préciser que j'en ai bcp...) Est-ce qu'ilfaut lui mettre une tempo ou plutôt une boucle tant que tu as des conrôles tu es effaces...
Mercide votre aide

**LedZeppII** · 07/09/2006, 20h00

Bonsoir,

Essaie comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    DoCmd.OpenForm "SF-Plan de cave", acDesign, , , , acHidden 'on le rouvre en mode création et caché
 
    'efface tous les contrôles
    While Forms![SF-Plan de cave].Controls.Count > 0
        DeleteControl "SF-Plan de cave", Forms![Test].Controls(0).Name
    Wend
 
    DoCmd.Close acForm, "SF-Plan de cave", acSaveYes 'on ferme le formulaire
    DoCmd.OpenForm "SF-Plan de cave"

For Each ... Next doit en louper à cause du Delete qui doit décaler les éléments.

A+

**LE VIEUX** · 07/09/2006, 23h01

d'accord avec toi ledZppII - le code de Guen marche à condition de le passer plusieurs fois il semble que for each efface une collection de type à chaque passage donc il faudrait autant de passage que de type de contrôles.
ton code passe mais petite précision....si je peux me permettre.....
pour Guen il faut remplacer [test] par [SF-Plan de cave].
intéréssant j'ai découvert une limite de for each
merci
à +