Discussion :

[tribaleur]

Bonjour.

Je fait des essais pour créer un formulaire dynamique. Cependant je n'arrive pas à supprimer TOUS les controls.

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
Dim Ctl As Control
 
 
    DoCmd.OpenForm "Test_dynamique", acDesign ', , , , acHidden
 
    'MsgBox Forms!test_dynamique.Controls.Count 'nombre de controle du formulaire
 
    For Each Ctl In Forms!test_dynamique.Controls
            'MsgBox Ctl.Name 'nom du controle courrant
            DeleteControl "Test_dynamique", Ctl.Name 'on supprime le controle courant
    Next Ctl
 
    'MsgBox Forms!test_dynamique.Controls.Count 'nombre de controle du formulaire

Ce que je ne comprend pas c'est que cette boucle supprime tous les Controls sauf 1.........

Je me suis inspiré de ce tutoriel : http://morsi.developpez.com/?page=Form#formdynamique

P.S : dans le tuto il est écris

Code :

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

ctl.DelectControl "NomForm", "NomControle"

Cependant quand j'utilise cette synthaxe j'ai un message d'erreur "Propriété ou Methode non géré par cet objet"

Merci d'avance pour vos aides

[Jean-Philippe André]

bonjour,
je pense qu'il s'agit du contrôle sur lequel tu as le focus.
tu peux essayer de voir si c'est effectivement cela en faisant un

Code :

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

debug.print Ctl.Name

avant le delete

[tribaleur]

Tout d'abord merci pour ta réponse.

En fait j'affiche le nom dans un msgbox déja. Pour ce qui est du focus vu que je suis en mode création je ne pense pas que ce soit un problème de focus.

Par contre j'ai trouvé une solution......en fait je met deux fois de suite la boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For Each Ctl In Forms!test_dynamique.Controls
       MsgBox Ctl.Name 'nom du controle courrant
       DeleteControl "Test_dynamique", Ctl.Name 'on supprime le controle courant
    Next Ctl
 
    MsgBox Forms!test_dynamique.Controls.Count 'nombre de controle du formulaire
 
    For Each Ctl In Forms!test_dynamique.Controls
       'MsgBox Ctl.Name 'nom du controle courrant
       DeleteControl "Test_dynamique", Ctl.Name 'on supprime le controle courant
    Next Ctl

La deuxième boucle me supprime le controle qui reste!!

Ca fonctionne par contre c'est pas très pro je trouve...en attendant je fais comme ça mais si quelqu'un à une solution plus...propre .

Encore merci!!

[tribaleur]

Je me permet de rajouter un message car en fait ma technique ne fonctionne pas.

En effet là j'ai 6 éléments et ma première boucle m'en supprime 3 et la deuxième deux...du cout j'ai toujours un éléments qui reste......

J'ai fait le test avec plein d'éléments et trois boucle...c'est toujours pareils. Chaque boucle enlève un nombre limité seulement d'éléments.

Je ne comprend pas!!! ...et c'est frustrant tout mon formulaire fonctionne bien sauf cette suppression.

Merci d'avance pour vos réponses

[Jean-Philippe André]

salut,
petite question bête :

Code :

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

1
2
3
For Each Ctl In Forms!test_dynamique.Controls
       MsgBox Ctl.Name 'nom du controle courrant
      Next Ctl

t'affiche-t-il bien tous les contrôles que tu attends ?

[tribaleur]

Alors oui en effet ma boucle m'affiche bien tous les controls. (Bien vu je n'avais pas pensé à vérifier ça!!! )

J'en conclut que le problème viens de la suppression.

Dans le tutoriel la syntaxe de la suppression est

Code :

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

ctl.DelectControl "NomForm", "NomControle"

Hors cela m'affiche un message d'erreur : "Propriété ou Methode non géré par cet objet"

Donc j'ai enlevé le "Ctl" devant "DeleteControle" et ça m'affiche plus de message d'erreur. Il ya a peut-être une autre syntaxe de suppression mais je sais pas la quelle.

En tout cas merci à toi pour ton aide

[tribaleur]

Bon alors finalement j'ai trouvé une solution à cette adresse :

Solution

Je l'ai un peu adepté ce qui donne :

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
Dim MesControls()             As String           'tableau contenant les noms des controles existant àl'ouverture du formulaire
 
    'on redimentionne le tableau MesControls
    ReDim MesControls(Forms!J_FicheRecetteSel.Détail.Controls.Count)
    'on initialise J
    INT_j = -1
    'Etabli la liste des controles à supprimer
    For Each CTR_Ctl In Forms!J_FicheRecetteSel.Détail.Controls
        INT_j = INT_j + 1
        MesControls(INT_j) = CTR_Ctl.Name
    Next CTR_Ctl
    'supprime les controles
    For INT_i = 0 To INT_j
        DeleteControl "J_FicheRecetteSel", MesControls(INT_i)
    Next INT_i

En tout cas merci de ton aide!!!!