|
|
|
Отктыта ли форма
|
|||
|---|---|---|---|
|
#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&fpage=1666&tid=1676050]: |
0ms |
get settings: |
6ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
281ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
25ms |
get tp. blocked users: |
1ms |
| others: | 215ms |
| total: | 550ms |
| 0 / 0 |
