ник: Анатолий (Киев)
Не понимаю, почему у вас пропадает 1-я запись.
Команда DoCmd.GotoRecord, "Форма2" ,acNext выполняется? Переход на новую выполняется?
Я, кстати, уже много лет не пользуюсь этой командой. Она выполняет переход с последней на новую запись? Или возникает ошибка, которую вы игнорируете? Может здесь нужна константа acNew, а не acNext?
Вообще, я бы сделал так:
If CurrentProject.AllForms(Форма2).IsLoaded = False Then
DoCmd.OpenForm "Форма2", acNormal
End If
With Forms("Форма2").Recordset
.AddNew
!Поле1 = Me.Поле1
!Поле2 = Me.Поле2
.Update
End With
|
Здесь предполагается, что в Форме2 имена полей формы те же, что и имена связанных с ними полей таблицы/запроса.