Discussion :

[DPhBxl]

Question toute simple : Comment tester la présence d'un formulaire ouvert en second plan ?
Du style < If Form.IsOpen Then ... >

Merci,

[mout1234]

Merci de prendre le temps de chercher dans la faq, entre autres.

http://access.developpez.com/faq/?page=Forms#isloaded


Bon courage

[stigma]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Function IsLoaded(ByVal chNomForm As String) As Boolean
    '---------------------------  Renvoie Vrai si le formulaire spécifié est chargé.
    Const conModeCréation = 0
    Const conEtatObjFermé = 0
    IsLoaded = False
    If SysCmd(acSysCmdGetObjectState, acForm, chNomForm) <> conEtatObjFermé Then
        If Forms(chNomForm).CurrentView <> conModeCréation Then IsLoaded = True
    End If
 
End Function

Appeler par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If IsLoaded("Formulaire") Then DoCmd.Close acForm, "Formulaire"

[DPhBxl]

Sorry mout1234, je suis passé à côté. J'ai fouillé mais apparemment pas avec les bons mots. Merci.