Private Sub ПоискПоПолям()
  Dim strSQL As String
  Dim rst As Recordset

On Error GoTo ErrNumber
  strWHERE1 = "": strWHERE2 = ""
  ...
  ...
  strSQL = "SELECT * FROM звПоиск"
  If Not strWHERE1 = "" Then
    If Not strWHERE2 = "" Then
      strWHERE = strWHERE1 & " AND " & strWHERE2
    Else
      strWHERE = strWHERE1
    End If
    strSQL = strSQL & " WHERE " & strWHERE
    Set rst = CurrentDb.OpenRecordset(strSQL)
    If rst.RecordCount <> 0 Then
      Me.фпПоискЗаявок.Form.RecordSource = "SELECT DISTINCT * FROM звПоискЗаявок WHERE " & strWHERE1
'???как обновить RecordSource "фпПоискМИЦОВИВ"
'      Form_фпПоискМИЦОВИВ.RecordSource = strSQL '- не работает,т.е.обновление не происходит
'      Me!фпПоискЗаявок.Controls!фпПоискМИЦОВИВ.Form.RecordSource = strSQL 'ошибка 2455 - Введенное выражение содержит недопустимую ссылку на свойство "Form/Report"
'      Me.фпПоискЗаявок.Parent!фпПоискМИЦОВИВ.Form.RecordSource = strSQL 'ошибка 2455
    Else
      Me.фпПоискЗаявок.Form.RecordSource = "SELECT DISTINCT * FROM звПоискЗаявок WHERE [КодЗаявки] Is Null"
    End If
  ElseIf Not strWHERE2 = "" Then
    strWHERE = strWHERE2
    strSQL = strSQL & " WHERE " & strWHERE
    Set rst = CurrentDb.OpenRecordset(strSQL)
    If rst.RecordCount <> 0 Then
      rst.MoveFirst
      strWHERE1 = "[КодЗаявки] = " & rst.Fields("КодЗаявки").Value
      Do Until rst.EOF
        strWHERE1 = strWHERE1 & " OR " & "[КодЗаявки] = " & rst.Fields("КодЗаявки").Value
        rst.MoveNext
      Loop
      Me.фпПоискЗаявок.Form.RecordSource = "SELECT DISTINCT * FROM звПоискЗаявок WHERE " & strWHERE1
'???как обновить RecordSource "фпПоискМИЦОВИВ"
'      Form_фпПоискМИЦОВИВ.RecordSource = strSQL '- не работает,т.е.обновление не происходит
'      Me!фпПоискЗаявок.Controls!фпПоискМИЦОВИВ.Form.RecordSource = strSQL 'ошибка 2455 - Введенное выражение содержит недопустимую ссылку на свойство "Form/Report"
'      Me.фпПоискЗаявок.Parent!фпПоискМИЦОВИВ.Form.RecordSource = strSQL 'ошибка 2455
    Else
      Me.фпПоискЗаявок.Form.RecordSource = "SELECT DISTINCT * FROM звПоискЗаявок WHERE [КодЗаявки] Is Null"
    End If
  End If
  rst.Close
'  Call Form_фпПоискЗаявок.ПоискПоПолям(strSQL)
'  Call Form_фпПоискМИЦОВИВ.ПоискПоПолям(strSQL)
'  Me!фпПоискЗаявок.Controls!фпПоискМИЦОВИВ.Requery 'ошибка 2455 - Введенное выражение содержит недопустимую ссылку на свойство "Form/Report"
'  Me.фпПоискЗаявок.Parent!фпПоискМИЦОВИВ.Requery 'ошибка 2455
'  Form_фпПоискМИЦОВИВ.Requery '- не работает,т.е.обновление не происходит
  Me.фпПоискЗаявок.Requery

ExitHeare:
  Set rst = Nothing
  Erase arrWHERE2
  Erase arrWHERE1
Exit Sub

ErrNumber:
  Select Case Err.Number
    Case 2455 'Введенное выражение содержит недопустимую ссылку на свойство "Form/Report"
      MsgBox "Процедура: ПоискПоПолям. Форма: " & Me.Name & vbCrLf & _
        Err.Description, , "№ " & Err.Number
      
'      Me.фпПоискЗаявок.Parent!фпПоискМИЦОВИВ.Form.RecordSource = strSQL
'      Me.фпПоискЗаявок.Parent!фпПоискМИЦОВИВ.Requery
'      Me.фпПоискЗаявок.Requery
      
      Resume ExitHeare
    Case Else
      MsgBox "Процедура: ПоискПоПолям. Форма: " & Me.Name & vbCrLf & _
        Err.Description, , "№ " & Err.Number
      Resume ExitHeare
  End Select
End Sub

Private Sub RefreshRecordSourse(SQL As String, Query As String)
On Error GoTo ErrNumber
  Application.Echo False 'отключить обновление экрана Access

  Me.фпПоискЗаявок.Form.RecordSource = Query
  With Me.фпПоискЗаявок.Form.Recordset
    .MoveFirst
    Do Until .EOF
      Me.Controls("фпПоискЗаявок").Form.Controls("фпПоискМИЦОВИВ").Form.RecordSource = SQL 'Ошибка 2455
      .MoveNext
    Loop
    .MoveFirst
  End With
  Me.фпПоискЗаявок.Requery
  Me.НадписьКоличествоЗаявок.Caption = Me.фпПоискЗаявок.Form.Recordset.RecordCount
  DoCmd.GoToControl "фпПоискЗаявок"
ExitHeare:
  Application.Echo True 'включить обновление экрана Access
Exit Sub

ErrNumber:
  If Error <> 0 Then
    MsgBox "Процедура: RefreshRecordSourse. Форма: " & Me.Name & vbCrLf & _
      Err.Description, , "№ " & Err.Number
    Resume ExitHeare
  End If
End Sub
________________________
'SQLзапрос Скрыть все
Private Sub HideAll()
On Error GoTo ErrNumber
  Me.фпПоискЗаявок.Form.RecordSource = "SELECT DISTINCT * FROM звПоискЗаявок WHERE [КодЗаявки] Is Null"
  Me.НадписьКоличествоЗаявок.Caption = Me.фпПоискЗаявок.Form.Recordset.RecordCount
ExitHeare:
  Exit Sub

ErrNumber:
  If Error <> 0 Then
    MsgBox "Процедура: HideAll. Форма: " & Me.Name & vbCrLf & _
      Err.Description, , "№ " & Err.Number
    Resume ExitHeare
  End If
End Sub
________________________
'SQLзапрос Показать все
Private Sub ShowAll()
  Dim strSQL As String
On Error GoTo ErrNumber
  Application.Echo False 'отключить обновление экрана Access

  Me.Controls("фпПоискЗаявок").Form.Controls("фпПоискМИЦОВИВ").LinkMasterFields = ""
  Me.Controls("фпПоискЗаявок").Form.Controls("фпПоискМИЦОВИВ").LinkChildFields = ""

  strSQL = "SELECT DISTINCT * FROM звПоискЗаявок"
  Me.фпПоискЗаявок.Form.RecordSource = strSQL

  Call OpenQuery(strSQL) 'получим данные в глобальную переменную "strКодЗаявки" - для отчетов и диаграмм

  strWHERE = strКодЗаявки
  Me.Controls("фпПоискЗаявок").Form.Controls("фпПоискМИЦОВИВ").LinkMasterFields = "КодЗаявки"
  Me.Controls("фпПоискЗаявок").Form.Controls("фпПоискМИЦОВИВ").LinkChildFields = "КодЗаявки"

  Me.НадписьКоличествоЗаявок.Caption = Me.фпПоискЗаявок.Form.Recordset.RecordCount
  DoCmd.GoToControl "фпПоискЗаявок"
ExitHeare:
  Application.Echo True 'включить обновление экрана Access
Exit Sub

ErrNumber:
  If Error <> 0 Then
    MsgBox "Процедура: ShowAll. Форма: " & Me.Name & vbCrLf & _
      Err.Description, , "№ " & Err.Number
    Resume ExitHeare
  End If
End Sub

Private Sub Form_Load()

On Error GoTo ErrNumber
  Me.RecordSource = "SELECT * FROM звПоиск"
ExitHeare:
  Exit Sub

ErrNumber:
  If Error <> 0 Then
    MsgBox "Процедура: Form_Load. Форма: " & Me.Name & vbCrLf & _
      Err.Description, , "№ " & Err.Number
    Resume ExitHeare
  End If
End Sub