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
Raymond [mvp]
Bonjour.
tu peux essayer une fonction comme ceci:
On Error Resume Next Do While Forms.Count > 1 If Forms(0).Name <> "BIENVENUE" Then DoCmd.Close acForm, Forms(0).Name Else DoCmd.Close acForm, Forms(1).Name End If DoEvents Loop DoCmd.Close acForm, "BIENVENUE"
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. l'abonnement TechNet ! http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"Jo" a écrit dans le message de news:
| Bonjour, | | j'utilise le code suivant pour fermer tous les formulaires : | Do While Forms.Count > 0 | DoCmd.Close acForm, Forms(0).Name | Loop | | J'aimerais que le formulaire "BIENVENUE" se ferme le dernier. | Comment faire? | | Johanne
Bonjour.
tu peux essayer une fonction comme ceci:
On Error Resume Next
Do While Forms.Count > 1
If Forms(0).Name <> "BIENVENUE" Then
DoCmd.Close acForm, Forms(0).Name
Else
DoCmd.Close acForm, Forms(1).Name
End If
DoEvents
Loop
DoCmd.Close acForm, "BIENVENUE"
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"Jo" <rockett09AENLEVER@yahoo.ca> a écrit dans le message de news:
EF825503-2FAC-41CF-8CBC-1809EC966D6A@microsoft.com...
| Bonjour,
|
| j'utilise le code suivant pour fermer tous les formulaires :
| Do While Forms.Count > 0
| DoCmd.Close acForm, Forms(0).Name
| Loop
|
| J'aimerais que le formulaire "BIENVENUE" se ferme le dernier.
| Comment faire?
|
| Johanne
On Error Resume Next Do While Forms.Count > 1 If Forms(0).Name <> "BIENVENUE" Then DoCmd.Close acForm, Forms(0).Name Else DoCmd.Close acForm, Forms(1).Name End If DoEvents Loop DoCmd.Close acForm, "BIENVENUE"
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. l'abonnement TechNet ! http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"Jo" a écrit dans le message de news:
| Bonjour, | | j'utilise le code suivant pour fermer tous les formulaires : | Do While Forms.Count > 0 | DoCmd.Close acForm, Forms(0).Name | Loop | | J'aimerais que le formulaire "BIENVENUE" se ferme le dernier. | Comment faire? | | Johanne
Jo
Oh yes, c'est merveilleux!! merci beaucoup!!
Johanne
Bonjour.
tu peux essayer une fonction comme ceci:
On Error Resume Next Do While Forms.Count > 1 If Forms(0).Name <> "BIENVENUE" Then DoCmd.Close acForm, Forms(0).Name Else DoCmd.Close acForm, Forms(1).Name End If DoEvents Loop DoCmd.Close acForm, "BIENVENUE"
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. l'abonnement TechNet ! http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"Jo" a écrit dans le message de news:
| Bonjour, | | j'utilise le code suivant pour fermer tous les formulaires : | Do While Forms.Count > 0 | DoCmd.Close acForm, Forms(0).Name | Loop | | J'aimerais que le formulaire "BIENVENUE" se ferme le dernier. | Comment faire? | | Johanne
Oh yes, c'est merveilleux!!
merci beaucoup!!
Johanne
Bonjour.
tu peux essayer une fonction comme ceci:
On Error Resume Next
Do While Forms.Count > 1
If Forms(0).Name <> "BIENVENUE" Then
DoCmd.Close acForm, Forms(0).Name
Else
DoCmd.Close acForm, Forms(1).Name
End If
DoEvents
Loop
DoCmd.Close acForm, "BIENVENUE"
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"Jo" <rockett09AENLEVER@yahoo.ca> a écrit dans le message de news:
EF825503-2FAC-41CF-8CBC-1809EC966D6A@microsoft.com...
| Bonjour,
|
| j'utilise le code suivant pour fermer tous les formulaires :
| Do While Forms.Count > 0
| DoCmd.Close acForm, Forms(0).Name
| Loop
|
| J'aimerais que le formulaire "BIENVENUE" se ferme le dernier.
| Comment faire?
|
| Johanne
On Error Resume Next Do While Forms.Count > 1 If Forms(0).Name <> "BIENVENUE" Then DoCmd.Close acForm, Forms(0).Name Else DoCmd.Close acForm, Forms(1).Name End If DoEvents Loop DoCmd.Close acForm, "BIENVENUE"
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. l'abonnement TechNet ! http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"Jo" a écrit dans le message de news:
| Bonjour, | | j'utilise le code suivant pour fermer tous les formulaires : | Do While Forms.Count > 0 | DoCmd.Close acForm, Forms(0).Name | Loop | | J'aimerais que le formulaire "BIENVENUE" se ferme le dernier. | Comment faire? | | Johanne
