MS Access | Объекты | Отчет: проверка существует ли отчет?

Option Compare Database

Option Explicit

Function ReportExists(rptName As String) As Boolean

Dim rpt As AccessObject

'объявляем всегда когда работаем с объектами БД

For Each rpt In CurrentProject.AllForms

'для форм, отчетов, макросов и модулей используем CurrentProject

'For Each - используем если нам не важен порядок переборки цикла

  If rpt.Name = rptName Then

       ReportExists = True

      Exit Function

  End If

Next

ReportExists = False

End Function