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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Как прове...

Тема: Как проверить существование формы

15.06.2007 21:07:53

Mike2

2 сообщения

Тема: Как проверить существование формы

Экспортируем форму из одной базы в другую. Перед экспортом надо проверить, есть ли во второй базе уже такая форма. Как эту проверку можно организовать?
Спасибо.

P.S. Общий раздел по формам
Автор: Mike от 12.01.2004 7:46:45 Источник ...

15.06.2007 21:07:53

All

4316 сообщения

RE: Как проверить существование формы

Функция проверки формы - funVerifyForm. Для проверки формы в текущем приложении используется функция funVerifyFormCurrentDB. Для внешней проверки необходимо заменить Application.CurrentProject на внешний объект.

Public Function funVerifyFormCurrentDB() As Boolean
If funVerifyForm(Application.CurrentProject, "form1") Then
MsgBox "True!"
Else
MsgBox "False!"
End If
End Function

Public Function funVerifyForm(dbsobj As Object, frmName As String) As Boolean
Dim obj As AccessObject
funVerifyForm = False
For Each obj In dbsobj.AllForms
If obj.Name = frmName Then
funVerifyForm = True
Exit For
End If
Next
Set dbsobj = Nothing
End Function

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

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Как прове...

Поиск

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

Начало | Forums