ник: SONAR
Есть главная форма: FRM_REESTR_FX
в ней субформа: SUBF_FX_SK_BUY
Есть функция по рефрешу формы находящаяся в модуле mdl_Functions
Public Function IsFormOpen(NAME As String) As Boolean
'====================================================
Функция обновления формы
'====================================================
Dim FP As Form
For Each FP In Forms
If FP.NAME = NAME Then
IsFormOpen = True
'Forms![FRM_SDELKI_FX].Requery
FP.Requery
End If
If FP.NAME = NAME Then
IsFormOpen = True
'Forms![FRM_SDELKI_FX].Requery
End If
Next
IsFormOpen = False
End Function
Из формы ввода при добавлении новой записи и её закрытии пытаюсь обновить субформу
If Me.Операция.Value = "Покупка" Then
Call mdl_Functions.IsFormOpen("SUBF_FX_SK_BUY")
Else
Call mdl_Functions.IsFormOpen("SUBF_FX_SK_SELL")
End If
Но код не работает...
т.е. субформа не обновляется в главной форме...
в чтом трабла?
Спасибо!