Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Силblч

Public Function IsFormLoaded(frmname$) As Boolean Dim c As Object On Error GoTo errIsFormLoaded 'Для каждой из форм For Each c In Forms 'Проверяем открыта ли форма If c.Name Like frmname Then IsFormLoaded = True: Exit Function Next For Each c In Reports 'Проверяем для одноименного отчета If c.Name Like frmname Then IsFormLoaded = True: Exit Function Next 'Если что-то не срослось - всё нафих... IsFormLoaded = False Exit Function errIsFormLoaded: MsgBox Err.Description IsFormLoaded = False Exit Function End Function