ник: SergeyKV
Ребят , а можно вопрос в тему ? Где то вкралась ошибка и не работает:( Мне нужно что бы наложенный фильтр копировался из текущей формы (она подчиненная) в другую подчиненную форму (подчиненная_1) при этом передавая полю "ID_поля" значение поля "IdRec". Что то где то не так делаю. Подскажите где 
Private Sub ShowResult(IdRec As Long, IdTable As String)
On Error Resume Next
Select Case IdTable
Case "название_поля"
Forms("подчиненная_1").Filter = "ID_поля =" & IdRec
Forms("подчиненная_1").FilterOn = True
Forms("подчиненная_1").Requery
End Select
End Sub
|