how to determine whether any report is opened?

[Zlatko Matiæ]

How could I determine, in VBA, whether any report (print preview) is
currently opened?

Thanks,

Zlatko

[RoyVidar]

Zlatko Matiæ wrote in message <do**********@ss405.t-com.hr> :

How could I determine, in VBA, whether any report (print preview) is
currently opened?

Thanks,

Zlatko

I don't know how to check which view it is open in, but I think you
can find open reports through for instance the reports collection

debug.print reports.count ' number of open reports

dim rpt as report
for each rpt reports
debug.print rpt.name
next rpt

--
Roy-Vidar

[rkc]

Zlatko Matiæ wrote:

How could I determine, in VBA, whether any report (print preview) is
currently opened?

Function OpenReports() As Variant
Dim rpt As Access.AccessObject
Dim s As String

For Each rpt In Application.CurrentProject.AllReports
With rpt
If .IsLoaded Then
If .CurrentView = acCurViewPreview Then
s = s & "," & .Name
End If
End If
End With
Next rpt

OpenReports = Split(Mid$(s, 2), ",")

End Function
Sub showOpenReports()
Dim v As Variant
Dim i As Integer

v = OpenReports()

For i = 0 To UBound(v)
Debug.Print v(i)
Next

End Sub

[Lyle Fairfield]

CBool(Reports.Count)

[rkc]

Lyle Fairfield wrote:

CBool(Reports.Count)

Shouldn't you be <pc="on"> Holiday <pc="off"> shopping or something?

[Zlatko Matic]

Thanks to all who answered!

Zlatko

"Lyle Fairfield" <ly***********@aim.com> je napisao u poruci interesnoj
grupi:11**********************@g43g2000cwa.googleg roups.com...

CBool(Reports.Count)