Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Object is...

Тема: Object is Form

15.06.2007 21:08:04

Alexander1

23 сообщения

Тема: Object is Form

Имее:
Dim ObjectForm() As Form
...
If FindIndex(strFormName)<>0 then
Set ObjectForm(FindIndex(strFormName))=New Form_Форма1
end if
...
Function FindIndex(fr_name) As Long
' Функция определяет свободный контейнер для
' клонирования формы, если 0 свободных нет
On Error GoTo Find_Index
For FindIndex = 1 To MaxFormClone
If ObjectForm(FindIndex).FormName = fr_name Then
End If
Next
FindIndex = 0
Exit Function
Find_Index:
End Function

Может кто знает как проверить контейнер ObjectForm(i) на предмет закрытия формы, находить через обработку ошибки ну никак не вдохновляет ?

P.S. Общий раздел по формам
Автор: Alexander от 13.02.2004 1:08:17 Источник ...

15.06.2007 21:08:04

All

4316 сообщения

RE: Object is Form

If CurrentProject.AllForms(frmName).IsLoaded = True Then ...

P.S. Общий раздел по формам
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:08:04

All

4316 сообщения

RE: Object is Form

Уважаемый Admin.
Я спрашивал о другом.
Нужно искать не среди форм, а среди массива объектов..т.е. после закрытия формы необходимо определить какая переменная из массива свободна для дальнейшего использования..
Set ObjectForm(index)=new form_Форма1
-----

P.S. Общий раздел по формам
Автор: Alexander от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Object is...

Поиск

Список форумов

Начало | Forums