Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Не обновляются формы из кода  [new]
Proga
Member

Откуда: МО
Сообщений: 3042
Есть форма, у неё есть подформа. После различных преобразований, открывание и закрывание других форм в коде, необходимо обновить все открытые формы, написал простой код, но что не обновляется ничего, вот код,
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
, мож кто подскажет, где неправ. ВСЁ написано в ПРОЕКТЕ Акса.
19 окт 04, 19:16    [1046378]     Ответить | Цитировать Сообщить модератору
 Re: Не обновляются формы из кода  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
а по детски не пробовал ?
Dim myform As Form
For Each myform In Forms
    Debug.Print myform.Name
    myform.Refresh
Next myform
19 окт 04, 20:13    [1046470]     Ответить | Цитировать Сообщить модератору
 Re: Не обновляются формы из кода  [new]
ДАВИД
Member

Откуда: г. Одесса
Сообщений: 348
Proga
Есть форма, у неё есть подформа. После различных преобразований, открывание и закрывание других форм в коде, необходимо обновить все открытые формы, написал простой код, но что не обновляется ничего, вот код,
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
  db.Application.Forms.Item(i).Repaint 
Может быть все переcчитывается, но не происходит обновление экрана (отложенные обновления- у меня такое было!)
[/quot]
19 окт 04, 20:23    [1046482]     Ответить | Цитировать Сообщить модератору
 Re: Не обновляются формы из кода  [new]
Proga
Member

Откуда: МО
Сообщений: 3042
ЧТО-то нифига не выходит есть подозрение, что Recalc в ADP не работает.
20 окт 04, 11:40    [1047568]     Ответить | Цитировать Сообщить модератору
 Re: Не обновляются формы из кода  [new]
ДАВИД
Member

Откуда: г. Одесса
Сообщений: 348
А .Repaint работает? Проверте.
Давид
20 окт 04, 11:48    [1047618]     Ответить | Цитировать Сообщить модератору
 Re: Не обновляются формы из кода  [new]
Proga
Member

Откуда: МО
Сообщений: 3042
Проверил не работает.
А вот Recalc у меня должен запускать, вот это
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
но что-то не запускается.
20 окт 04, 11:58    [1047667]     Ответить | Цитировать Сообщить модератору
 Re: Не обновляются формы из кода  [new]
Proga
Member

Откуда: МО
Сообщений: 3042
Мож кто подскажет, как это код вызвать
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
20 окт 04, 12:37    [1047914]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить