|
|
|
Отктыта ли форма
|
|||
|---|---|---|---|
|
#18+
Подскажите как в Аксесе построить условие, если существует форма <такая-то> то делай <то-то> в Делфях ето - If Exist.Forms.xxxx Then xxx ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.03.2004, 14:02 |
|
||
|
Отктыта ли форма
|
|||
|---|---|---|---|
|
#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... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.03.2004, 14:09 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32444283&tid=1676050]: |
0ms |
get settings: |
10ms |
get forum list: |
21ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
46ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
32ms |
get tp. blocked users: |
2ms |
| others: | 237ms |
| total: | 369ms |
| 0 / 0 |
