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?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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?
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
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
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
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