Fermer tout les Forms

Le
jfd
Bonjour à tous
Petite question après avoir trouvé cela dans des post assez anciens (Merci
Pierre)
-
do while forms.count>0
docmd.close acform,forms(0).name
loop

Est-il possible de faire une exception afin de laisser ouvert un formulaire?

Par avance merci et bon soleil à tous
jfd
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles MOUGNOZ
Le #19461021
Bonjour, Jfd

Quelque chose comme cela, peut-être ?

Dim UnForm As Form
For Each UnForm In Forms
If UnForm.Name <> "Nom du form exception" Then
DoCmd.Close acForm,UnForm.Name
End If
Next UnForm
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"jfd" a écrit :
Bonjour à tous
Petite question après avoir trouvé cela dans des post assez anciens (Merci
Pierre)
-------------
do while forms.count>0
docmd.close acform,forms(0).name
loop
---------------
Est-il possible de faire une exception afin de laisser ouvert un
formulaire?

Par avance merci et bon soleil à tous
jfd


jfd
Le #19462741
Merci bien
Je vais regarder de plus près et éssayer.
Bonne fin de journée
jfd

"Gilles MOUGNOZ" wrote:

Bonjour, Jfd

Quelque chose comme cela, peut-être ?

Dim UnForm As Form
For Each UnForm In Forms
If UnForm.Name <> "Nom du form exception" Then
DoCmd.Close acForm,UnForm.Name
End If
Next UnForm
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"jfd" a écrit :
> Bonjour à tous
> Petite question après avoir trouvé cela dans des post assez anciens (Merci
> Pierre)
> -------------
> do while forms.count>0
> docmd.close acform,forms(0).name
> loop
> ---------------
> Est-il possible de faire une exception afin de laisser ouvert un
> formulaire?
>
> Par avance merci et bon soleil à tous
> jfd





Publicité
Poster une réponse
Anonyme