ник: Анатолий (Киев)
>Проблема со списком SarakstsEng_AfterUpdate
>Не находит запись (см. предыдущий ответ)
Ну так и я об этом. :) Форма, открытая в режиме acFormAdd не имеет записей.
Private Sub SarakstsEng_AfterUpdate()
' Поиск записи, соответствующей этому элементу управления.
Dim rs As Object
Set rs = Me.Recordset.Clone
'Здесь вы получаете пустой Recordset
rs.FindFirst "[IDeng] = " & Str(Me![SarakstsEng])
'Здесь вы ничего не находите
Me.Bookmark = rs.Bookmark
'А здесь вы, не проверив rs.NoMatch, получаете ошибку 3021 ("No current record.")
End Sub
|