Discussion :

[AgriPhilou]

Bonjour,

Sur la propriété "sur fermeture" d'un formulaire j'actualise un autre formulaire ouvert derrière, mais comment faire pour vérifier si ce dernier est ouvert pour que la fermeture se passe correctement ?


Formulaire à actualiser : "saisie"
Mon code sur fermeture du deuxième

Code :

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

Me.forms!saisie!liste.requery

On peut faire plus simple ?

Merci

[helas]

pour ma part j'utilise ce code

Code :

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

1
2
3
4
5
6
7
8
 
Function EstOuvertForm(NomForm As String) As Boolean
    On Error GoTo erreur
    EstOuvertForm = False
    If Forms(NomForm ).Name = NomForm  Then EstOuvertForm = True
    Exit Function
erreur:
End Function

donc

Code :

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

1
2
 
 If EstOuvertForm("NomDuFormulaire") Then Forms("NomDuFormulaire").Requery

[AgriPhilou]

Merci Helas,

Le code qui commence par Function EstOuvertForm(NomForm As String) As Boolean


je dois le mettre dans un nouveau module ?

Et le deuxième je le colle ou ?

Merci.

[stigma]

Voici le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
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

je le mets dans un module quelconque genre "Fonctions diverses"

puis j'appelle par

Code :

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

    If IsLoaded("F_Fiches") = True Then DoCmd.Close acForm, "F_Fiches"

[AgriPhilou]

Merci pour la réponse

@+

[Gabout]

Bonjour,

Autre solution :

Code :

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

1
2
3
If CurrentProject.AllForms("TonFormulaire").IsLoaded then
  '...
End if

A+

[Baba75AB]

Pour ma part, j'utilise également une autre méthode :

Code :

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

1
2
3
4
If ControlExists("Nom du formulaire", "Nom d'un contrôle") Then
    msgbox "Le formulaire est ouvert"
End If
    msgbox "Le formulaire est fermé"

[AgriPhilou]

Merci à tous.

@+