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