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