OVH Cloud OVH Cloud

Fermer formulaire

4 réponses
Avatar
Jorge
Bonjour tous à tous.

J'aurais voulu savoir qu"elle est le code VBA pour fermer un formulaire à
partir d'un autre formulaire.
J'ai deux formulaires d'ouvert et à partir de l'un je voudrais pouvoir
fermer les deux.

Merci d'avance pour vos réponse.

4 réponses

Avatar
Access
Salut
DoCmd.Close acForm, "nomduform"
@+
"Jorge" a écrit dans le message de news:
41f9fab7$0$2150$
Bonjour tous à tous.

J'aurais voulu savoir qu"elle est le code VBA pour fermer un formulaire à
partir d'un autre formulaire.
J'ai deux formulaires d'ouvert et à partir de l'un je voudrais pouvoir
fermer les deux.

Merci d'avance pour vos réponse.




Avatar
Jean-Paul
Un petit conseil pour apprendre les rudiments de VBA : faites-le avec une
macro puis convertissez la macro en VBA (Outils-Macro-Convertir...). Dans ce
cas-ci, vous pouvez aussi utilisez l'assistant "créer un bouton" et aller
lire le code VBA qu'Access va générer pour vous... Dans ce cas, le code
serait

DoCmd.Close acForm, "Votre_Formulaire"

Bien cordialement

Jean-Paul

"Jorge" a écrit dans le message de news:
41f9fab7$0$2150$
Bonjour tous à tous.

J'aurais voulu savoir qu"elle est le code VBA pour fermer un formulaire à
partir d'un autre formulaire.
J'ai deux formulaires d'ouvert et à partir de l'un je voudrais pouvoir
fermer les deux.

Merci d'avance pour vos réponse.




Avatar
Jean
Bonjour,

forms![nomduformulaire].close


Bonjour tous à tous.

J'aurais voulu savoir qu"elle est le code VBA pour fermer un formulaire à
partir d'un autre formulaire.
J'ai deux formulaires d'ouvert et à partir de l'un je voudrais pouvoir
fermer les deux.

Merci d'avance pour vos réponse.




Avatar
Maël REBOUX
Docmd.close acForm, "MonFormulaire"

Mais je te conseille très fortement, pour éviter des bugs, de vérifier
que le formulaire que tu veux fermer est effectivement ouvert.

Copie et colle le code suivant ans un nouveau module :

---
Function Estcharge(ByVal chNomForm As String) As Boolean

' Renvoie Vrai si le formulaire spécifié est chargé.

Const conModeCreation = 0
Const conEtatObjFerme = 0

Estcharge = False

If SysCmd(acSysCmdGetObjectState, acForm, chNomForm) <> conEtatObjFerme
Then
If Forms(chNomForm).CurrentView <> conModeCreation Then
Estcharge = True
End If
End If

End Function
---


On l'utilise comme ça, après le clic sur un bouton, par exemple :

If Estcharge("MonFormulaire") = True Then Docmd.close acForm,
"MonFormulaire"




"Jorge" a écrit dans le message de news:
41f9fab7$0$2150$
Bonjour tous à tous.

J'aurais voulu savoir qu"elle est le code VBA pour fermer un formulaire à
partir d'un autre formulaire.
J'ai deux formulaires d'ouvert et à partir de l'un je voudrais pouvoir
fermer les deux.

Merci d'avance pour vos réponse.