Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
08.04.2002, 11:43
|
|||
|---|---|---|---|
Открыт ли Отчёт |
|||
|
#18+
Из VBA хотелось бы узнать открыт ли тот или иной отчёт, для формы я в нете надыбал такую функцию Function fIsLoaded(ByVal strFormName As String) As Boolean If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = True End If End If End Function а под отчёты не переделать, у reports нет свойства (или как его там) CurrentView ( Может кто подскажет как это узнать Заранее спасибо Sfagnum ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
09.04.2002, 06:28
|
|||
|---|---|---|---|
|
|||
Открыт ли Отчёт |
|||
|
#18+
А какая у вас версия Access? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
09.04.2002, 12:07
|
|||
|---|---|---|---|
|
|||
Открыт ли Отчёт |
|||
|
#18+
Я просто переделал известную функцию из базы "Борей", вроде так тоже работает. Public Function ReportIsLoaded(ByVal strReportName As String) As Boolean ' Возвращает значения True, если отчет открыт Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acReport, strReportName) <> conObjStateClosed Then 'If Repots(strReportName).CurrentView <> conDesignView Then ReportIsLoaded = True 'End If End If End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&tablet=1&tid=1683612]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
154ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
45ms |
get tp. blocked users: |
1ms |
| others: | 13ms |
| total: | 258ms |
| 0 / 0 |
