ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка - открыта ли форма.
8 сообщений из 8, страница 1 из 1
Проверка - открыта ли форма.
    #34468446
alt5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alt5000
Участник
Не подскажите, как мне в условии проверить открыта ли конкрентная форма?

авторIf Форма_открыта Then
...
Else
...
End If
...
Рейтинг: 0 / 0
18.04.2007, 09:48
| Ответить | Цитировать | Написать  
Проверка - открыта ли форма.
    #34468560
alt5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alt5000
Участник
Совершенно забыл указать. Процедура нужна для работы с Access. И еще один вопрос. Что-то не пойму каким образом мне передать значение в поле/надпись другой формы. В хелпах что-то не то.
...
Рейтинг: 0 / 0
18.04.2007, 10:14
| Ответить | Цитировать | Написать  
Проверка - открыта ли форма.
    #34468764
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
1.
If CurrentProject.AllForms("...").IsLoaded Then
Forms!...!надпись.Caption = ""
...
Рейтинг: 0 / 0
18.04.2007, 11:02
| Ответить | Цитировать | Написать  
Проверка - открыта ли форма.
    #34468809
alt5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alt5000
Участник
vkodor
Код: plaintext
1.
If CurrentProject.AllForms("...").IsLoaded Then
Forms!...!надпись.Caption = ""


Я так понял здесь должно идти имя самой формы? А если так

vkodor
Код: plaintext
1.
If Форма.IsLoaded Then
Forms!...!надпись.Caption = ""


Будет работать?
...
Рейтинг: 0 / 0
18.04.2007, 11:09
| Ответить | Цитировать | Написать  
Проверка - открыта ли форма.
    #34808217
Dick Johnson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dick Johnson
Гость
Тот же вопрос, но только не для VBA, а для обычного VB 6.
...
Рейтинг: 0 / 0
18.09.2007, 14:48
| Ответить | Цитировать | Написать  
Проверка - открыта ли форма.
    #34808302
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Проверьте коллекцию Forms .
...
Рейтинг: 0 / 0
18.09.2007, 15:04
| Ответить | Цитировать | Написать  
Проверка - открыта ли форма.
    #34808446
Dick Johnson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dick Johnson
Гость
big-duke, спасибо.
...
Рейтинг: 0 / 0
18.09.2007, 15:30
| Ответить | Цитировать | Написать  
Проверка - открыта ли форма.
    #34816209
RUSYA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RUSYA
Участник
Код: plaintext
1.
2.
3.
4.
5.
Public Function IsFormLoaded(ByVal sFormName As String) As Boolean
    Dim i_l As Integer
    For i_l = cNull To Forms.Count - vbNull
        If sFormName = Forms(i_l).Name Then IsFormLoaded = True: Exit Function
    Next
End Function
...
Рейтинг: 0 / 0
20.09.2007, 23:48
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проверка - открыта ли форма.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/moderation_log.php?user_name=%D0%9C%D0%B8%D0%BC%D0%BE+%D1%88%D0%B5%D0%BB...]:
 0ms
get settings:
 10ms
get forum list:
 30ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 685ms
total:  847ms
созд. / загр.: 847ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]