ник: kot_k_k
че сложного в № 1 пишем
Private Sub Form_Current()
Flag_G = 1
Kod_G = Me.Поле_Кода
Forms!Форма_Главная!Форма_2.SetFocus
End Sub
|
в форме_2 пишем
Private Sub Поле_Кода_GotFocus()
If Flag_G = 1 Then
Flag_G = 0
DoCmd.FindRecord Kod_G
End If
End Sub
|
работат аналогично пишем для
Private Sub Поле_Кода_GotFocus() формы_1
и Private Sub Form_Current() - для формы_2
только с флагами нужно аккуратно ато зациклит
Flag_G , Kod_G конечно глобальные переменные