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
Eric
Bonjour "NicolasB"
Est-il possible de contrôler si un formulaire est toujours actif ou ouvert via une macro ou du code?.
Oui tu as une fonction EstChargé dans le modules Utilitaires de la base de
données Comptoir.mdb qui permet de savoir si un formulaire est ouvert.
Il y a la meme dans NWind.mdb. Ce sont des bases Exemples livrées avec Access.
Dans le cas où tu ne les aurais pas voici le code:
Function EstChargé(ByVal strNomForm As String) As Boolean ' Retourne Vrai si le formulaire spécifié est ouvert ' en mode Création ou en mode Feuille de données. Const conÉtatObjFermé = 0 Const conModeCréation = 0
If SysCmd(acSysCmdGetObjectState, acForm, strNomForm) <> conÉtatObjFermé Then If Forms(strNomForm).CurrentView <> conModeCréation Then EstChargé = True End If End If
End Function
Il y a juste une erreur car si le formulaire est en mode création, la fonction retourne Faux, donc faudrait supprimer le If Forms (strNomForm).CurrentView <> conModeCréation Then et le End If
La version US de cette fonction est IsLoaded()
A+ Eric
Bonjour "NicolasB"
Est-il possible de contrôler si un formulaire est toujours
actif ou ouvert via une macro ou du code?.
Oui tu as une fonction EstChargé dans le modules Utilitaires de la base de
données Comptoir.mdb qui permet de savoir si un formulaire est ouvert.
Il y a la meme dans NWind.mdb. Ce sont des bases Exemples livrées avec
Access.
Dans le cas où tu ne les aurais pas voici le code:
Function EstChargé(ByVal strNomForm As String) As Boolean
' Retourne Vrai si le formulaire spécifié est ouvert
' en mode Création ou en mode Feuille de données.
Const conÉtatObjFermé = 0
Const conModeCréation = 0
If SysCmd(acSysCmdGetObjectState, acForm, strNomForm) <>
conÉtatObjFermé Then
If Forms(strNomForm).CurrentView <> conModeCréation Then
EstChargé = True
End If
End If
End Function
Il y a juste une erreur car si le formulaire est en mode création, la
fonction retourne Faux, donc faudrait supprimer le If Forms
(strNomForm).CurrentView <> conModeCréation Then et le End If
Est-il possible de contrôler si un formulaire est toujours actif ou ouvert via une macro ou du code?.
Oui tu as une fonction EstChargé dans le modules Utilitaires de la base de
données Comptoir.mdb qui permet de savoir si un formulaire est ouvert.
Il y a la meme dans NWind.mdb. Ce sont des bases Exemples livrées avec Access.
Dans le cas où tu ne les aurais pas voici le code:
Function EstChargé(ByVal strNomForm As String) As Boolean ' Retourne Vrai si le formulaire spécifié est ouvert ' en mode Création ou en mode Feuille de données. Const conÉtatObjFermé = 0 Const conModeCréation = 0
If SysCmd(acSysCmdGetObjectState, acForm, strNomForm) <> conÉtatObjFermé Then If Forms(strNomForm).CurrentView <> conModeCréation Then EstChargé = True End If End If
End Function
Il y a juste une erreur car si le formulaire est en mode création, la fonction retourne Faux, donc faudrait supprimer le If Forms (strNomForm).CurrentView <> conModeCréation Then et le End If
La version US de cette fonction est IsLoaded()
A+ Eric
Raymond [mvp]
Bonsoir.
pour la version 2000 et + : If CurrentProject.AllForms("formulaire2").IsLoaded Then If Screen.ActiveForm.Name = "Formulaire2" Then MsgBox "Formulaire2 est chargé et actif" Else MsgBox "Formulaire2 est chargé mais pas actif" End If Else MsgBox "Formulaire2 n'est pas chargé" End If
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"NicolasB" a écrit dans le message de news:254f01c427c7$573c47c0$ REbonjour,
tout d'abord merci pour votre aide.
Est-il possible de contrôler si un formulaire est toujours actif ou ouvert via une macro ou du code?.
Merci
nicolas
Bonsoir.
pour la version 2000 et + :
If CurrentProject.AllForms("formulaire2").IsLoaded Then
If Screen.ActiveForm.Name = "Formulaire2" Then
MsgBox "Formulaire2 est chargé et actif"
Else
MsgBox "Formulaire2 est chargé mais pas actif"
End If
Else
MsgBox "Formulaire2 n'est pas chargé"
End If
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"NicolasB" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:254f01c427c7$573c47c0$a001280a@phx.gbl...
REbonjour,
tout d'abord merci pour votre aide.
Est-il possible de contrôler si un formulaire est toujours
actif ou ouvert via une macro ou du code?.
pour la version 2000 et + : If CurrentProject.AllForms("formulaire2").IsLoaded Then If Screen.ActiveForm.Name = "Formulaire2" Then MsgBox "Formulaire2 est chargé et actif" Else MsgBox "Formulaire2 est chargé mais pas actif" End If Else MsgBox "Formulaire2 n'est pas chargé" End If
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"NicolasB" a écrit dans le message de news:254f01c427c7$573c47c0$ REbonjour,
tout d'abord merci pour votre aide.
Est-il possible de contrôler si un formulaire est toujours actif ou ouvert via une macro ou du code?.
