nauf,
Ошибка наступает потому, что событие On Current наступает раньше, чем загружается главная форма. Можно, конечно, огород городить с проверкой загружена ли форма уже и тогда обращаться к ней, а можно, просто, объявить глобальный для формы флаг (булеан - по умолчанию - фльшь) и поставить его в true на событии OnLoad. А в процедуре на текущей записи, просто проверить, что флаг не фальшь
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Dim flg As Boolean
...
Private Sub Form_Unload(Cancel As Integer)
....
Set flg = True
End Sub
Private Sub Form_Current()
On Error GoTo err_Form_Current
If flg Then Me.Parent.[подчиненная форма ф2].Form.Requery
exit_Form_Current:
Exit Sub
err_Form_Current:
MsgBox Err.Description
Resume exit_Form_Current
End Sub
