ник: SergeyKV
Private Sub ShowResult(IdRec As Long, IdTable As String)
'On Error Resume Next
Select Case IdTable
Case "поле"
Forms.Form_Главная.Подчиненная.Filter = "Id_поля=" & IdRec 'Ошибка! Объект не поддерживает данное свойство или метод
Forms. .. .FilterOn = True
Forms. .. .Requery
End Select
End Sub
|
Разобрался СПАСИБО osmor за идею!
Рабочее обращение выглядело так
Form_Главная.Подчиненная.Form.Filter = "Id_поля=" & IdRec
|
