Function to close reports

[Ruegen]

I am trying to do a function

Function checkReportClosed(ReportName As String)


If CurrentProject.AllReports(ReportName).IsLoaded Then
Reports!report(ReportName).Close
End If


End Function

the idea is when the string name of the report is passed on and it happens to be open it closes

but I can't get it to work because I don't know how to get reports! etc to work

the report opens in the background

[Ruegen]

woops

sorted

Function checkReportClosed(ReportName As String)


If CurrentProject.AllReports(ReportName).IsLoaded Then
Application.DoCmd.SelectObject acReport, ReportName
DoCmd.Close
End If


End Function