Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Обновить субформу....
 
 автор: SONAR   (25.04.2007 в 14:58)   личное сообщение
 
 

Есть главная форма: 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
Но код не работает...
т.е. субформа не обновляется в главной форме...
в чтом трабла?
Спасибо!

  Ответить  
 
 автор: Explorer   (25.04.2007 в 15:19)   личное сообщение
 
 

>Из формы ввода при добавлении новой записи и её закрытии пытаюсь обновить субформу


на какие именно события основной формы обновляете подчиненную?

  Ответить  
 
 автор: SONAR   (25.04.2007 в 15:33)   личное сообщение
 
 

не на события основной формы, а на событие нажатие кнопки КНОПКИ "Добавить" из формы ввода...

  Ответить  
 
 автор: Explorer   (25.04.2007 в 15:43)   личное сообщение
 
 

так...

я пас...

  Ответить  
 
 автор: osmor   (25.04.2007 в 15:27)   личное сообщение
 
 

если мои мозги не окончательно отрофировались, то подчиненные формы не попадают в коллекцию forms
пройдите по шагам свою функцию

  Ответить  
 
 автор: SONAR   (26.04.2007 в 09:38)   личное сообщение
 
 

Во, ребятки, надыбал, как обратиться к субформе находящейся в основной из кода в модуле, или из третей формы (как в моём случае, форме ввода)
Forms("FRM_REESTR_FX").SUBF_FX_SK_BUY.Form.Requery
Здесь ("FRM_REESTR_FX") - основная форма
а SUBF_FX_SK_BUY - подчиненная, находящаяся в основной...
мож кому понадобится...
всегда у меня орфография хромала

  Ответить  
 
 автор: osmor   (26.04.2007 в 10:18)   личное сообщение
 
 

без обид.
Вопрос был: "В чем трабла" т.е. почему не работает функция...
вот если бы бы вопрос звучал "Как обновить поформу", то
http://hiprog.com/index.php?option=com_content&task=blogcategory&id=119&Itemid=159
Q15

  Ответить  
 
 автор: SONAR   (26.04.2007 в 11:07)   личное сообщение
 
 

Ага, извиняюсь, скорее просто не прально сформулировал свой вопрос...

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList