ник: час
вот совет,но не мой
Вопрос: Выделение записи в подчиненной форме
Совет:
Выделение записи в подчиненной форме
Dim rst As Recordset, strCriteria As String
strCriteria = "[MyFieldName] =" & MyValue'для числовых значений
'или strCriteria = "[MyFieldName] = '" & MyValue & "'"
' - для Текстовых значений
Set rst = Forms![MyFormName]![MySubFormName].Form.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
MsgBox "Записи не найдены"
Else
Forms![MyFormName]![MySubFormName].Form.Bookmark = rst.Bookmark
End If
rst.Close