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

Option Compare Database

Option Explicit

Function FormExists(frmname As String) As Boolean

Dim frm As AccessObject

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

For Each frm In CurrentProject.AllForms

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

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

  If frm.Name = frmname Then

       FormExists = True

      Exit Function

  End If

Next

FormExists = False

End Function