---Soumis par 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 ************************