Дмитрич

Может кто подскажет почему не работает? Надо фильтровать форму Продажа (от таблиы Продажа) по районам "бс" и "сг" .

Dim StrA1 As String, Strb1 As String, Strb2 As String, Strb3 As String

StrA1 = "продажа"
Strb1 = "([продажа]![район]=""бс"")"
Strb2 = "([продажа]![район]=""сг"")"
Strb3 = Strb1 Or Strb2

DoCmd.OpenForm StrA1, acNormal, "", Strb3, , acNormal