| |
|
|
| | Для удобства перемещения по записям в форме добавил выпадающий список со значением поля ToolTypeDescr в алфавитном порядке. Подразумевается, что при выборе в этом списке нужного элемента, текущей записью в форме должна стать запись, содержащая выбранное значение (уникальное).
В обработчик списка накидал такой код:
Dim sQuery As String
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
sQuery = "SELECT * FROM ToolTypes WHERE ToolTypes!ToolTypeDescr=""" + ToolTypeDescrList.Value + """"
Set rst = dbs.OpenRecordset(sQuery)
If (rst!ToolTypeDescr = ToolTypeDescrList.Value) Then
DoCmd.GoToRecord acForm, "ToolList", acGoTo, NNNN
End If
rst.Close
dbs.Close
|
Не понятно что вместо NNNN ставить. В свойствах Recordset не нашел как узнать какой записи соответствует текущая позиция в Recordset .
Или это как то по другому решается?
P.S.
Access 2003 | |
| |
| |
| |
|
|
| | Вот что предлагает встроенный мастер добавления поля со списком:
' Поиск записи, соответствующей этому элементу управления.
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
|
| |
| |
| |
| |
|
|
| | Спасибо ! Получилось.
P.S.
т.к. параметр строковый, мое выражение имеет вид:
rs.FindFirst "[ToolTypeDescr] = '" + Nz(Me![ToolTypeDescrList], "") + "'" | |
| |
| |
