Discussion :

[sebac]

Salut
j'ai reçu ce code d'un membre du forum qui a pour but de vérifier si un formulaire est ouvert
j'ai pris soin de le mettre dans un module code:

Code :

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

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

je l'ai également appelé en faisant

Code :

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

 If EstOuvert("NomFormulaire") Then ...

mais access me crée une erreur qui dit : noim ambigu détecté EstOuvert
Si vous pouviez m'aiclairer un peu plus ça m'aiderai.
Merci

[Invité]

Bonjour

Voici un bout de code pour contrôler le nom des formulaires ouverts

Code :

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

1
2
3
4
5
6
Public Sub test()
Dim frm As Form
    For Each frm In Application.Forms
        MsgBox frm.Name
    Next frm
End Sub

As toi de l'adapter en faisant un test sur frm.Name pour voir si le formulaire ouvert correspond à celui que tu veux détecter.

Starec

[AndréPe]

Bonjour,
Ne serait-ce pas parce qu'il y a qque part dans ton appllication une procèdure ou autre qui porte le nom de "estouvert" ?
C'est tout au moins ce que le msg "Nom ambigü" détecté laisse supposer.
Amitiés