Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
16.03.2004, 14:02
|
|||
|---|---|---|---|
|
|||
Отктыта ли форма |
|||
|
#18+
Подскажите как в Аксесе построить условие, если существует форма <такая-то> то делай <то-то> в Делфях ето - If Exist.Forms.xxxx Then xxx ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
16.03.2004, 14:09
|
|||
|---|---|---|---|
|
|||
Отктыта ли форма |
|||
|
#18+
Как вариант работает такая функция Public Function IsLoaded(strFormName As String) As Boolean Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsLoaded = True End If End If End Function А дальше If IsLoaded("ЛЯЛЯЛЯ")=true Then... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1676050]: |
0ms |
get settings: |
7ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
202ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
31ms |
get tp. blocked users: |
1ms |
| others: | 208ms |
| total: | 480ms |
| 0 / 0 |
