ник: час
Спасибо!!!
Я в момент создаеия клонов нахожусь в сторонней форме.
Хотя открытой остаётся и основная форма и подчинённая в ней.
А зазатем мне подчинённую форму необходимо открыть на записи, согласно коду , выбранному на сторонней форме.
вот есть покруче, но не хочет работать.....
Public Function SetFormRecord(frm As Object, Optional strCriteria As String, _
Optional blToFirst As Boolean = False)
'es 22.11.04
'Производит поиск записи по заданным критериям в форме(подчиненной форме)
'и ставит фокус на найденную запись - если оно найдено конечно
'если искомое не найдено - переход на Первую|Последнюю запись в зависимости
'от аргумента blToFirst (по умолчанию переход на последнюю запись)
'------------------------------------------------------------------------------
On Error GoTo SetFormRecordErr
With frm
.RecordsetClone.FindFirst strCriteria
If .RecordsetClone.NoMatch Then
If blToFirst = False Then
.RecordsetClone.MoveLast
Else
.RecordsetClone.MoveFirst
End If
End If
.Bookmark = .RecordsetClone.Bookmark
End With
SetFormRecordBye:
On Error Resume Next
Set frm = Nothing
Exit Function
SetFormRecordErr:
Err.Clear
Resume SetFormRecordBye
End Function
|