Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не обновляются формы из кода / 7 сообщений из 7, страница 1 из 1
19.10.2004, 19:16:44
    #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, 20:13:46
    #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:23:01
    #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
| Ответить | Цитировать | Написать  
20.10.2004, 11:40:16
    #32745997
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не обновляются формы из кода
ЧТО-то нифига не выходит есть подозрение, что Recalc в ADP не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.10.2004, 11:48:56
    #32746025
ДАВИД
ДАВИД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не обновляются формы из кода
А .Repaint работает? Проверте. Давид
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.10.2004, 11:58:32
    #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, 12:37:08
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не обновляются формы из кода / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 371ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1670967]:
 0ms
get settings:
 11ms
get forum list:
 23ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 223ms
total:  371ms
x
x
Закрыть


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