Private Sub НАШИ_Click()
me.filter = "SELECT *" 
FROM [SELECT [Простынь1].[Дата записи], [Простынь1].[№района], [Простынь1].[№Источника], [Простынь1].[№обс],[Простынь1].[Доформлен]
FROM (ТипыОбс INNER JOIN Обследующие ON [ТипыОбс].[№ТипаОбс]=[Обследующие].[№ТипаОбс])
INNER JOIN Простынь1 ON [Обследующие].[№обс]=[Простынь1].[№обс]; ]. AS ОбследованияПоТипам
WHERE (((ОбследованияПоТипам.Результат)= 1  Or (ОбследованияПоТипам.Результат)= 2 ) AND ((ОбследованияПоТипам.ТипОбс)= "Наши" ));"
End Sub

Private Sub НАШИ_Click()
Me.Filter =  "WHERE (((ОбследованияПоТипам.Результат)=1  Or (ОбследованияПоТипам.Результат)= 2 ) AND ((ОбследованияПоТипам.ТипОбс)=" "НАШИ"  "));" 

End Sub

Private Sub НАШИ_Click()
Me.Filter =  "(((Результат)=1  Or (Результат)= 2 ) AND ((ТипОбс)=" "НАШИ"  "))" 
Me.FilterOn = True
End Sub

Private Sub НАШИ_DblClick(Cancel As Integer)
Me.FilterOn = False
End Sub