ник: Lukas
Вот что предлагает мастер элементов управления по этой теме:
Private Sub ПолеСоСписком8_AfterUpdate()
' Поиск записи, соответствующей этому элементу управления.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[IDProduct] = " & Str(Nz(Me![ПолеСоСписком8], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
|