подчиненая форма на основе запроса. Пытаюсь делать фильтр
strFilter = "Наименование = " & ФильтКлиента.Column(1)

*********
- (в списке ФильтКлиента.Column(1) есть названия Клиент1, Клиент2, Клиент3)
- Список - "ФильтКлиента.Column(1)" находится в главной форме и фильтр срабатывает на его изменение.
*********

Попытка применить фильтр strFiler приводит к тому, что появляется поле где меня просят ввести значение для "значения поля" то-есть для "Клиент1" ??!!

Чтобы это значило, и где я допустил ошибку ?

Спасибо.

Хочу заметить, что абсолютно такойже фильтр но в подчиненной форме источник таблица - все работает.

Также в подчиненной форме работает фильтр по выделенному.

strFilter получает следующее

Наименование = Клиент1

(любое выбранное из списка)

И после этого присваивания фильтра он выдает "введите значение Клиент1"

... ?

Такое поле есть.

Привожу код.

Option Compare Database

' Эта отмена фильтра работает...
+++++++++++++++++++++++++
Private Sub ОтменитьФильтр_Click()
ФильтрКодКлиента = ""
Me!Продажи.Form.FilterOn = False
End Sub


' А вот это уже нет
++++++++++++++++++++++++
Private Sub ФильтКлиента_Change()
strFilter = "Наименование = " & ФильтКлиента.Column(1)

MsgBox (strFilter)

On Error GoTo Ошибка

Me.Продажи.Form.Filter = strFilter
Me.Продажи.Form.FilterOn = True

Выход:
Exit Sub
Ошибка:
MsgBox "Ошибка фильтра"
Resume Выход
End Sub

РекорСурс подчиненной формы

SELECT Продажи.КодПродажи, Клиенты.Наименование, Продажи.НомерПродажи, Продажи.Дата, Продажи.СостояниеТовара, Продажи.СводнаяЗаявка
FROM Клиенты INNER JOIN Продажи ON Клиенты.КодКлиента = Продажи.КодКлиента;

Так в том то и дело !!! Клиент1 Это записмь в этом рекордсурсе и он ее почему-то и просит ввести ???


!!!Введите Клиент1 ?!!!

Это мне наказание свыше за использование нелицензионной версии аксеса ?)

С ковычками пробовал ругалась на нименование поля ... в общем решил проблему (как мне кажется)

Я это поле для фильтра скопировал из другогй формы в которой тоже делается схожий фильтр (ну лень было два поля создать вручную) и вот после такого переноса этот фильтр как-то странно себя и стал вести.

Только что удалил это поле заново его сделал и все заработало

в виде strFilter = "Наименование = '" & ФильтКлиента.Column(1) & "'"

Большое спасибо за помощь