Discussion :

[pat04]

Bonjour,

est-il possible de tester, en VBA, si un report est ouvert ou pas ?

Merci de votre aide

[Dolphy35]

Salut,

Oui c'est possible il suffit d'adapter le code de la

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

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function is_reports_opened(fname As String) As Boolean
 
On Error GoTo not_opened
Dim LeFichier As String
 
LeFichier = Reports(fname).Name
is_reports_opened = True
Exit Function
 
not_opened: If (Err.Number = 2450) Then
     is_reports_opened = False
     Err.Clear
End If
 
End Function

True L'état est ouvert
False L'état est fermé


Dolphy

[pat04]

Avec beaucoup de retard

Merci de ton aide

Pat04