|
|
|
| Есть главная форма: 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
Но код не работает...
т.е. субформа не обновляется в главной форме...
в чтом трабла?
Спасибо! | |
|
| |
|
|
|
| >Из формы ввода при добавлении новой записи и её закрытии пытаюсь обновить субформу
на какие именно события основной формы обновляете подчиненную? | |
|
| |
|
|
|
| не на события основной формы, а на событие нажатие кнопки КНОПКИ "Добавить" из формы ввода... | |
|
| |
|
|
|
| так...
я пас... | |
|
| |
|
|
|
| если мои мозги не окончательно отрофировались, то подчиненные формы не попадают в коллекцию forms
пройдите по шагам свою функцию | |
|
| |
|
|
|
| Во, ребятки, надыбал, как обратиться к субформе находящейся в основной из кода в модуле, или из третей формы (как в моём случае, форме ввода)
Forms("FRM_REESTR_FX").SUBF_FX_SK_BUY.Form.Requery
Здесь ("FRM_REESTR_FX") - основная форма
а SUBF_FX_SK_BUY - подчиненная, находящаяся в основной...
мож кому понадобится...
всегда у меня орфография хромала | |
|
| |
|
|
|
| без обид.
Вопрос был: "В чем трабла" т.е. почему не работает функция...
вот если бы бы вопрос звучал "Как обновить поформу", то
http://hiprog.com/index.php?option=com_content&task=blogcategory&id=119&Itemid=159
Q15 | |
|
| |
|
|
|
| Ага, извиняюсь, скорее просто не прально сформулировал свой вопрос... | |
|
| |