Compléments pour Microsoft Access

http://access.fr.free.fr/

Tester si formulaire ouvert (Formulaire)

Description 

Cette fonction permet de tester si un formulaire est ouvert dans la base de données en cours.

 
Synthaxe 

EstChargé(chNomForm)

La synthaxe de la fonction EstChargé comprend l'élément suivant :

ElémentsDescription

chNomForm

Expression de chaîne correspondant au nom du formulaire que l'on souhaite vérifier.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


 

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