Иммем таблицу Table1 с ключом Key1
На форме ParentForm TabCtrl1 а на ее страницах SubF1 и SubF2,
которые оба опираються на таблицу Table1 ( ТО есть представляють разные части той же записи ).
После вода в поле SubF1.LastField1 нужно перейти на форму SubF2.FirstField1 . значение ключа Key1 определяеться в SubF1 .
Переходя на SubF2 должны стоять на том же записи.
Сделал так :
m_IsFromSubF1 as Boolean
Private SubF1.LastField1_LostFocus ()
m_IsFromSubF1 = True
me.Parent.TabCtrl1.Pages(2).Controls("SubF2").Select
End Sub
Private SubF2.FirstField1_GotFocus ()
dim rs as recordset
if m_IsFromSubF1 = True
Set rs = me.Parent.TabCtrl1.Pages(1).Controls("SubF1").Recordset
nKey = rs.Fieds("ID")
DoCmd.GoToRecord ,, acGoTo , nKey
endif
End Sub
|
|
Но она иногда выдает ошибку. Как будто DoCmd работает не для SubF2 Формы.
Потому как под Debug всегда правильно работает,
Может для активации SubForm нехватит только устанавить на них фокус ?