Private Sub Report_Open(Cancel As Integer)
dim strsql$
 strSQL = "УСЛОВНЫЙ ЗАПРОС без фильтра"
Me.RecordSource = strSQL
End Sub

Private Sub Ф_изделие_Click()
dim filtr$
filtr = InputBox("Введите название изделия")
If filtr="" then exit sub
zakr_otkr filtr
End Sub

Private Sub zakr_otkr (filtr$)
        Me.Filter = "[Наименование9] like '*" & filtr & "*'"
        Me.FilterOn = True
End Sub

        strSQL = "SELECT Склады_Наличие_Технические.Код_изделия, Склады_Наличие_Технические.Наименование9, Склады_Наличие_Технические.ТС AS Кол_во, 'Технологический сектор' AS Склад, 11 AS № " _
& "FROM Склады_Наличие_Технические WHERE (((Склады_Наличие_Технические.ТС)>0)); " _
& "union SELECT Склады_Наличие.Код_изделия, Склады_Наличие.Наименование9, Склады_Наличие.Проводки, 'Проводки' AS Склад, 0 AS № FROM Склады_Наличие WHERE (((Склады_Наличие.Проводки)>0));" _
& "Union SELECT Склады_Наличие_Технические.Код_изделия, Склады_Наличие_Технические.Наименование9, Склады_Наличие_Технические.ИЦ, 'Испытательный центр' AS Склад, 30 AS № " _
& "FROM Склады_Наличие_Технические WHERE (((Склады_Наличие_Технические.ИЦ)>0)); " _
& "Union SELECT Склады_Наличие_Технические.Код_изделия, Склады_Наличие_Технические.Наименование9, Склады_Наличие_Технические.ОКК AS Кол_во, 'Отдел контроля качества' AS Склад, 6 AS № " _
& "FROM Склады_Наличие_Технические WHERE (((Склады_Наличие_Технические.ОКК)>0)); " _
& "Union SELECT Склады_Наличие.Код_изделия, Склады_Наличие.Наименование9, Склады_Наличие.ОСиМЗК AS Кол_во, 'Отдел сбыта и межзаводской кооперации' AS Склад, 25 AS № " _
& "FROM Склады_Наличие WHERE (((Склады_Наличие.ОСиМЗК)>0)); " _
& "Union SELECT Склады_Наличие_СМП1.Код_изделия, Склады_Наличие_СМП1.Наименование9, Склады_Наличие_СМП1.УК_СМП AS Кол_во, 'СМП Участок комплектации' AS Склад, 4 AS № " _
& "FROM Склады_Наличие_СМП1 WHERE (((Склады_Наличие_СМП1.УК_СМП)>0)); " _
& "Union SELECT Склады_Наличие_СМП1.Код_изделия, Склады_Наличие_СМП1.Наименование9, Склады_Наличие_СМП1.МУ_СМП AS Кол_во, 'СМП Монтажный участок' AS Склад, 1 AS № " _
& "FROM Склады_Наличие_СМП1 WHERE (((Склады_Наличие_СМП1.МУ_СМП)>0)); " _
& "Union SELECT Склады_Наличие_СМП1.Код_изделия, Склады_Наличие_СМП1.Наименование9, Склады_Наличие_СМП1.СУ_СМП AS Кол_во, 'СМП Сборочный участок' AS Склад, 2 AS № " _
& "FROM Склады_Наличие_СМП1 WHERE (((Склады_Наличие_СМП1.СУ_СМП)>0)); " _
& "Union SELECT Склады_Наличие_СМП1.Код_изделия, Склады_Наличие_СМП1.Наименование9, Склады_Наличие_СМП1.МехУ_СМП AS Кол_во, 'СМП Механический участок' AS Склад, 34 AS № " _
& "FROM Склады_Наличие_СМП1 WHERE (((Склады_Наличие_СМП1.МехУ_СМП)>0)); " _
& "Union SELECT Склады_Наличие_СМП2.Код_изделия, Склады_Наличие_СМП2.Наименование9, Склады_Наличие_СМП2.СМП AS Кол_во, 'СМП Сборочно-монтажное производство' AS Склад, 31 AS № " _
& "FROM Склады_Наличие_СМП2 WHERE (((Склады_Наличие_СМП2.СМП)>0)); " _
& "UNION SELECT Склады_Наличие_СМП2.Код_изделия, Склады_Наличие_СМП2.Наименование9, Склады_Наличие_СМП2.МУ2_СМП AS Кол_во, 'СМП Монтажный участок №2' AS Склад, 9 AS № " _
& "FROM Склады_Наличие_СМП2 WHERE (((Склады_Наличие_СМП2.МУ2_СМП)>0)); " _
& "UNION SELECT Склады_Наличие_СМП2.Код_изделия, Склады_Наличие_СМП2.Наименование9, Склады_Наличие_СМП2.РСУ_СМП AS Кол_во, 'СМП Регулировочно-сдаточный участок' AS Склад, 3 AS № " _
& "FROM Склады_Наличие_СМП2 WHERE (((Склады_Наличие_СМП2.РСУ_СМП)>0)); " _
& "UNION SELECT Склады_Наличие_СМП2.Код_изделия, Склады_Наличие_СМП2.Наименование9, Склады_Наличие_СМП2.УУ_СМП AS Кол_во, 'СМП Участок упаковки' AS Склад, 5 AS № " _
& "FROM Склады_Наличие_СМП2 WHERE (((Склады_Наличие_СМП2.УУ_СМП)>0)); "
    End If