Forms: Trouver si un formulaire est ouvert	Author(s) Dev Ashish

Trouver si un formulaire est ouvert.

(Q) Comment vérifier si un formulaire est ouvert ou non?

(A) Fournir le nom du formulaire à la fonction suivante. Celle-ci retourne vrai si le formulaire est ouvert, faux sinon.

'******************** Code Start ************************
Function fIsLoaded(ByVal strFormName As String) As Integer
'Retourne 0 si le formulaire n'est pas ouvert, -1 si ouvert.
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            fIsLoaded = True
        End If
    End If
End Function

'******************** Code End ************************