Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Fermer tout les Forms

2 réponses
Avatar
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

2 réponses

Avatar
Gilles MOUGNOZ
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


Avatar
jfd
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