Discussion :

[Ditch]

Bonjour à tous,

j'ai un petit souci, je n'arrive pas à supprimer un contrôle se trouvant dans un formulaire Access par du VBA.

Je m'explique:
j'ai une application qui, pour des raisons de facilité, doit être splittée en la version complète et une version light. Je voulais donc enregistrer la base actuelle dans un autre fichier et supprimer des tables (ok), des formulaires (ok) mais aussi des boutons sur certains formulaires. Et là je coince. Je ne vois pas comment je dois faire...

J'ouvre mon formulaire en mode édition par le code, mais j'arrive pas à le supprimer. Que ce soit une page d'un tabcontrol ou un simple bouton, je ne parviens pas à les supprimer. Quelle est la syntaxe svp?

Là j'arrive à le cacher mais pas à le supprimer définitivement.

[SilkyRoad]

bonjour Didier


Si j'ai bien compris:

Code :

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

Application.DeleteControl "formulaire1", "commande3"

bonne soirée
michel

[Ditch]

mais cela ne fonctionne pas

J'ai une erreur. Soi-disant il ne trouve pas la form que je lui passe en paramètres pourtant elle existe

[SilkyRoad]

rebonsoir

j'ai oublié de préciser qu'il faut ouvrir la forme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim x As Integer
 
DoCmd.OpenForm "formulaire1", acDesign, , , , acHidden
 
'supprime un controle spécifique
Application.DeleteControl "formulaire1", "commande7"
 
'Supprime tous les controles
For x = Forms!formulaire1.Controls.Count - 1 To 0 Step -1
    Application.DeleteControl _
        "formulaire1", Forms!formulaire1.Controls(x).Name
Next x

michel

[Ditch]

rebonsoir

j'ai oublié de préciser qu'il faut ouvrir la forme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim x As Integer
 
DoCmd.OpenForm "formulaire1", acDesign, , , , acHidden
 
'supprime un controle spécifique
Application.DeleteControl "formulaire1", "commande7"
 
'Supprime tous les controles
For x = Forms!formulaire1.Controls.Count - 1 To 0 Step -1
    Application.DeleteControl _
        "formulaire1", Forms!formulaire1.Controls(x).Name
Next x

michel

Super Michel