Formulaire ouvert ou non


Le code qui suit permet de tester si un formulaire est ouvert ou non dans la base de donnée en cours..

L'argument "chNomForm" correspond au nom du formulaire que l'on veut vérifier

Public Function EstChargé(ByVal chNomForm As String) As Boolean

' Renvoie Vrai si le formulaire spécifié est chargé.
Const conModeCréation = 0
Const conEtatObjFermé = 0
EstChargé = False
If SysCmd(acSysCmdGetObjectState, acForm, chNomForm) <> conEtatObjFermé Then
    If Forms(chNomForm).CurrentView <> conModeCréation Then EstChargé = True
End If

End Function

Si le formulaire est ouvert, la fonction retournera True.

 

Retour haut de page

Auteur : Jessy SEMPERE