ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не обновляются формы из кода
7 сообщений из 7, страница 1 из 1
Не обновляются формы из кода
    #32745265
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
Есть форма, у неё есть подформа. После различных преобразований, открывание и закрывание других форм в коде, необходимо обновить все открытые формы, написал простой код, но что не обновляется ничего, вот код,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function Requery_forms()
Dim i As Integer
Dim db As CurrentProject
Set db = CurrentProject
For i =  1  To db.Application.Forms.Count -  1 
    If db.Application.Forms.Item(i).Caption <> "Ввод пароля" Or db.Application.Forms.Item(i).Caption <> "CR" Then
        db.Application.Forms.Item(i).Requery
        db.Application.Forms.Item(i).Recalc
    End If
Next
End Function
, мож кто подскажет, где неправ. ВСЁ написано в ПРОЕКТЕ Акса.
...
Рейтинг: 0 / 0
19.10.2004, 19:16:44
| Ответить | Цитировать | Написать  
Не обновляются формы из кода
    #32745341
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
а по детски не пробовал ?
Код: plaintext
1.
2.
3.
4.
5.
Dim myform As Form
For Each myform In Forms
    Debug.Print myform.Name
    myform.Refresh
Next myform
...
Рейтинг: 0 / 0
19.10.2004, 20:13:46
| Ответить | Цитировать | Написать  
Не обновляются формы из кода
    #32745350
Фотография ДАВИД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДАВИД
Участник
ProgaЕсть форма, у неё есть подформа. После различных преобразований, открывание и закрывание других форм в коде, необходимо обновить все открытые формы, написал простой код, но что не обновляется ничего, вот код,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Function Requery_forms()
Dim i As Integer
Dim db As CurrentProject
Set db = CurrentProject
For i =  1  To db.Application.Forms.Count -  1 
    If db.Application.Forms.Item(i).Caption <> "Ввод пароля" Or db.Application.Forms.Item(i).Caption <> "CR" Then
        db.Application.Forms.Item(i).Requery
         'db.Application.Forms.Item(i).RecalcNext 
end if
End Function
, мож кто подскажет, где неправ. ВСЁ написано в ПРОЕКТЕ Акса.

[quot Давид
Вставте в if <---> end if
Код: plaintext
  db.Application.Forms.Item(i).Repaint
Может быть все переcчитывается, но не происходит обновление экрана (отложенные обновления- у меня такое было!)
[/quot]
...
Рейтинг: 0 / 0
19.10.2004, 20:23:01
| Ответить | Цитировать | Написать  
Не обновляются формы из кода
    #32745997
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
ЧТО-то нифига не выходит есть подозрение, что Recalc в ADP не работает.
...
Рейтинг: 0 / 0
20.10.2004, 11:40:16
| Ответить | Цитировать | Написать  
Не обновляются формы из кода
    #32746025
Фотография ДАВИД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДАВИД
Участник
А .Repaint работает? Проверте. Давид
...
Рейтинг: 0 / 0
20.10.2004, 11:48:56
| Ответить | Цитировать | Написать  
Не обновляются формы из кода
    #32746055
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
Проверил не работает.
А вот Recalc у меня должен запускать, вот это
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
If ApplyType =  1  Then
    msg = "Включен режим фильтрации записей"
    Me.Parent.Form.FLTR_INFO = msg
End If
End Sub
но что-то не запускается.
...
Рейтинг: 0 / 0
20.10.2004, 11:58:32
| Ответить | Цитировать | Написать  
Не обновляются формы из кода
    #32746179
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
Мож кто подскажет, как это код вызвать
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
If ApplyType =  1  Then
    msg = "Включен режим фильтрации записей"
    Me.Parent.Form.FLTR_INFO = msg
End If
End Sub
...
Рейтинг: 0 / 0
20.10.2004, 12:37:08
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не обновляются формы из кода
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32745997&tid=1670967]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 178ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 234ms
total:  508ms
созд. / загр.: 508ms
x
x
Закрыть


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