ник: Анатолий (Киев)
docmd.GotoRecord, ,acNext применяется к текущей форме.
Надо docmd.GotoRecord, "Форма2" ,acNext
Вероятно код должен выглядеть так:
If CurrentProject.AllForms(Форма2).IsLoaded = False Then
DoCmd.OpenForm "Форма2", acNormal
Else
DoCmd.GotoRecord, "Форма2" ,acNext
End If
With Forms("Форма2")
.Поле1 = Me.Поле1
.Поле2 = Me.Поле2
End With
|