VBA Access, Supprimer certain objets tels que des textbox, combobox etc. à la fermeture d'un formulaire

[courriervirtuel]

Bonjour,

Ça fait plusieurs jours...

Pendant l'utilisation de mon formulaire, je crée des objets et je garde leur nom dans une variable tableau globale...
Je voudrais pouvoir les supprimer à la fermeture de mon formulaire sous certaines conditions.
Le problème, que je dois passer en mode création (durant l’évènement de fermeture) et VB dit :
-erreur d'exécution 2174
-Impossible de passer à un autre mode pour le moment !

Mon code VBA est dans un module et j'ai aussi essayé avec un module de classe et je précise que je ne connait pas la différence.

Merci de m'aider.

[Beub']

Bonjour bonjour,

En gros, tu as un code comme ça, c'est ça ?

Code :

1
2
3
4
5
6
 
Private Sub Form_Close()
     DoCmd.Close
     DoCmd.OpenForm NomDuForm, acDesign
     ...
End Sub

Pendant la fermeture du form, tu le fermes (... une deuxième fois ?), puis tu le rouvres. Pas sûr que ça puisse marcher comme ça.

Si c'est bien ça, je te suggère de :
- désactiver le bouton "fermer" du formulaire (la croix en haut à droite) ; tu devrais pouvoir trouver le code pour ça dans la FAQ, il me semble que je l'ai déjà vu.
- créer ton propre bouton que tu places en haut de ton form, bien en évidence, pour que l'utilisateur puisse le voir.
- Mettre ton code dedans, sur l'évènement "clic" :

Code :

1
2
3
4
5
6
7
8
DoCmd.Close
DoCmd.OpenForm NomDuForm, acDesign
'...
'...
'suppression des controles
'...
'...
DoCmd.Close 'fermeture définitive du formulaire

C'est une proposition à la volée, il y a peut-être mieux à faire, donc attends p-e d'autres avis...

Cordialement,
Beub'

[courriervirtuel]

Merci beaucoup pour ta réponse.

Mais le problème, c'est que mon formulaire a des barres coulissantes donc parfois, le boulon fermer, ne paraîtra pas !?

[Beub']

Si ça pose un pb, tu peux toujours créer une barre de menu spécialement pour ce formulaire...
Mais bon, à moins que la barre de défilement soit vraiment immense, un coup de molette sur la souris et tu accèdes au bouton.

[courriervirtuel]

Merci pour la réponse.
Comment je peux créer rapidement une barre d'édition qui n'est pas à l'intérieur du formulaire ?
Oui, c'est vraiment gênant car la barre de défilement est grande.

Merci encore

[courriervirtuel]

Bonjour,

J'essaye de supprimer dynamiquement des objets pendant l'exécution en VBA sous Access, ça marche mais tout de suite après ça bug et Access redémarre !!
Quelqu'un saurait pourquoi ?
De plus, je n'arrive pas à supprimer des control lors de l'évènement de fermeture de mon formulaire (erreur propriété non définie)...

Merci de m'aider SVP !!

[marot_r]

des objets

Il y a une petite centaine d'objets en Access :-) des quels parles-tu ?

À quel moment les supprimes-tu ?

Où est le code (dans un module, une classe, un form ou un rapport) ?

A+

[courriervirtuel]

je veux supprimer des objets tels que des TextBox,
j'exécute le code lors de l’évènement de fermeture d'Access
et le code se trouve dans un module

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
...
DoCmd.Close acForm, "MyForm", acSaveNo
 
    For Each vControl In Forms("MyForm").Controls
        If Left(vControl.Name, 1) = "_" Then
            DeleteControl "MyForm", vControl.Name
        Else
            i = i + 1
        End If
    Next vControl
...