[VBA Access] vérifier si un form est ouvert

Perso, je pratique comme suit:

' Formulaire à tester
dim fm as Form

On error resume next
Set fm = forms("MonFormulaire")
if err.number = 0
../.. le formulaire est ouvert
end if
on error goto 0

Salut,

le petit bout de code suivant t'énumère les formulaires ouverts de la base courante...

Private Sub Commande1_Click()
Dim monform
For Each monform In Forms
    MsgBox monform.Name
Next
End Sub

Et celui-là énumère tous les formulaires de la base courante (ouverts ou fermés) :

Private Sub Commande1_Click()
Dim monform As AccessObject
Dim dbs As Object
Set dbs = Application.CurrentProject
For Each monform In dbs.AllForms
    MsgBox monform.Name
Next
End Sub

Ca irait ?

Merci à tous les deux.

J'ai simplement modifié un peu le code proposé en ajoutant une condition:

For Each objForm In dbs.AllForms
If objForm.IsLoaded = True And objForm.Name = "F_Rapport"Then

actions sur F_Rapport...

End If
Next objForm

Je n'ai jamais eu de cours et j'ai bcp de mal à trouver ce type de code dans l'aide...

Bin, pas tout à fait...

Je voudrais que la procédure ne nécessite pas d'intervention de l'utilisateur:

Lors de l'ajout d'un enregistrement:
Si formulaire "F_Rapport" est ouvert alors on le met à jour sinon on ferme le form "F_médecins" sans rien faire d'autre...

J'ai essayé If IsLoaded() et diff trucs trouvés d'ans l'aide mais je n'ai rien trouvé d'adéquat...

Et les évènements "avant insertion" et "après insertion" ?

Sinon, méthode bourrin : interdire la fermeture du form en ôtant les boutons...

L'essai: "NomDuForm.Name" renvoie une erreur
L'affectation à d'autres événements ne règle pas le problème puisque je veux mettre à jour les champs d'un autre formulaire...

Je pense avoir trouvé une solution en récupérant l'erreur:

Sub
...
On Error GoTo Fin

Attribution des valeurs dans le Form supposé ouvert

Fin
DoCmd.Close, "F_Médecins"
End Sub

Ce n'est peut-être pas très clean mais ça marche...
Bizarre comme des fonctions qui paraissent simples peuvent être difficiles à trouver...

Merci pour ton aide.

Bonjour zenon,

peut-être que ceci repondra à votre besoin :

Private Sub ExecuteRoutine_Click()

On Error GoTo Err_ExecuteRoutine_Click

    Dim objForm As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    For Each objForm In dbs.AllForms
        If objForm.IsLoaded = True Then
            MsgBox objForm.Name & " est ouvert."
        Else
            MsgBox objForm.Name & " est fermé."
        End If
    Next objForm
    
Exit_ExecuteRoutine_Click:
    Exit Sub

Err_ExecuteRoutine_Click:
    MsgBox Err.Description
    Resume Exit_ExecuteRoutine_Click
    
End Sub

Lupin

Bjr,

j'ai encore oublié le Set dbs = Nothing, et tout autre objet instancié.

je crois que les bouqins servent à parcourrir le reste,
j'ai un bouqin pour chaque VBA que je pratique, et si
google est impuissant il ne reste que ça :-)

je ne sais si une édition à jour existe mais voici celle que je
connais.

Beginning Access 97 VBA programming
Robert Smith and David Sussman

je te l'accorde le bouquin est en anglais mais bien illustré
meme avec un interface français on s'y retrouve très bien.
c'est vrai qu'il faut avoir la chance de le faire...

Lupin

Je sais que le dernier post date de + d'un an mais si ca peut aider quelqu'un ... voilà une solution pour déterminer si un formulaire est ouvert ou non (solution obtenue dans l'aide sur ActiveForm).

L'objectif pour que l'ordi sache si un formulaire est ouvert est de présenter ce formulaire comme fenêtre active quand il est ouvert :
{
Dim frmFormulaireActif as Form

Set frmFormulaireActif = Screen.ActiveForm
If frmFormulaireActif = LeFormulaireQueVousCherchez.Name Then
... ' Votre action : le formulaire est actif donc forcément ouvert!
End If
}

Si ca n'est pas le cas, la bidouille est de fermer le formulaire actif jusqu'à tomber sur celui que l'on cherche puis rouvrir les formulaires fermés après avoir fait ce qu'on voulait faire. Il est facilement possible de mémoriser les formulaires fermés pour les réouvrir automatiquement avec des variables Form.

J'espère que ca vous avance ?!
P.S. : Je suis sous Access 2002

[quote="Kiwijinshi"]Bon, là, je réponds très longtemps après le début de ces messages, mais ça peut servir à ceux qui passeront par là [/quote]

Et effectivement, ça m'intéresse !

Grâce à cette discussion, je sais comment vérifier quels sont les formulaires ouverts ; Je sais aussi trouver leur nom.

Maintenant, je souhaite savoir si leur état est MINIMIZE, MAXIMIZE ou RESTORE.

Merci par avance.

________________________________________________________________________________________
Il n'y a que les fous pour croire que les autres sont fous.