| |
|
|
| | Forms![FRM_Channel]- основная форма
[territory]. - подчинённая
id_territory поле идентификатор
Forms![FRM_Channel]![territory].RecordsetClone.FindFirst "id_territory = " & Me![KOD]
Forms![FRM_Channel]![territory].Bookmark = "id_territory = " & Me![KOD].RecordsetClone.Bookmark
|
почему ов ответ - бъект не поддерживает это свойство или метод? | |
| |
| |
| |
|
|
| | Вот что предлагает мастер элементов управления по этой теме:
Private Sub ПолеСоСписком8_AfterUpdate()
' Поиск записи, соответствующей этому элементу управления.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[IDProduct] = " & Str(Nz(Me![ПолеСоСписком8], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
|
| |
| |
| |
| |
|
|
| | Спасибо!!!
Я в момент создаеия клонов нахожусь в сторонней форме.
Хотя открытой остаётся и основная форма и подчинённая в ней.
А зазатем мне подчинённую форму необходимо открыть на записи, согласно коду , выбранному на сторонней форме.
вот есть покруче, но не хочет работать.....
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
|
| |
| |
| |
|
|
| |
|
|
| | Ой чё эт я такое написал...... 
может так надо:
Dim RSt As DAO.Recordset
Set RSt = CurrentDb.OpenRecordset(Forms![FRM_Channel].[territory].Form.RecordSource)
RSt.FindFirst "id_territory = " & Me!KOD
RSt.Bookmark = RSt.Bookmark
|
| |
| |
| |
| |
 37 Кб. |
|
| | Так не надо, надо так как в Zip. | |
| |
| |
| |
37 Кб. |
|
| | Или так для Сторонней формы | |
| |
| |
| |
|
|
| | Спасибо Вам - так, как в Zip чудесно работает.
SetFormRecord Forms![FRM_Channel].[territory].Form, "[id_territory] = 60", False | |
| |
| |
| |
|
|
| | Да не за что.
 | |
| |
| |
|
|
| |
|
|
| | А если ещё глубже возможно?
Если - да - тогда скажите как?
Call SetFormRecord(Forms![FRM_Channel].Form![territory].Form![FRM_Region_Period].Form, "[Region_Air] = " & Me!Region_Air, False)
|
| |
| |
| |
| |
|
|
| | А если ещё глубже возможно?
Если - да - тогда скажите как?
Call SetFormRecord(Forms![FRM_Channel].Form![territory].Form![FRM_Region_Period].Form, "[Region_Air] = " & Me!Region_Air, False) | |
| |
| |
| |
|
|
| | А если ещё глубже возможно? | |
| |
| |
| |
|
|
| | Если Sub форма на форму лезет, значит возможно. Где-то видел ограничение
на количество уровней вложений. | |
| |
| |
| |
|
|
| | Lukas, тогда подскажите как?
Как во второе вложение влезть, и установить курсор на искомом? | |
| |
| |
| |
|
|
| | Обратиться ко второму вложению просто:
SetFormRecord Me.frmMain.Form.frmProductSub.Form, "[IDProduct] = " & Str(Nz(Me![ПолеСоСписком8], 0)), False
|
Кстати это должно быть во втором примере. | |
| |
| |
|
|
