Выбор фильтра из поля со списком

[Eвгений]

Здравствуйте.

на форме, по нажатию клавиши, пытаюсь выполнить команду:

...
'stLinkCriteria = "[Страна] = Forms!Главная!ПолеС.Value"
stLinkCriteria = "[Страна] = Forms!Главная!Стр.Column(1)"

DoCmd.OpenForm stDocName, , , stLinkCriteria
...
т.е. открыть другую форму с фильтром, указанным в поле со списком

получаю сообщение
Неопределенная функция 'Forms!Главная!Стр.Column'
неправильно написал (1) ???
делаю обычное поле =Стр.Column(1) все проходит...
подскажите пожалуйста, где я ошибся...

Заранее спасибо.

[Abrakadabra]

Сообщение от Eвгений

подскажите пожалуйста, где я ошибся....

Вот здесь:

Сообщение от Eвгений

Forms!Главная!Стр.Column(1)

[Eвгений]

хм... ну да, каков вопрос, таков ответ....

[Eвгений]

а в чем ошибка-то?

[Teslenko_EA]

Здравствуйте Eвгений.
"..в чем ошибка..?" - Ваша ошибка в логике построения условия отбора записей при открытии формы.
переменная stLinkCriteria должна содержать строчное выражение содержащее условие отбора по полю (полям) без предиката (слова) WHERE
в Вашем случае в поле [Страна] наверняка нет текста Forms!Главная!ПолеС.Value,
а значит сначала необходимо получить значение поля Forms!Главная!ПолеС.Value, и с этим значением формировать условие отбора:

Dim s$
s = Forms!Главная!ПолеС & ""
'текстовое значение, должно быть заключено в апострофы (кавычки)
s = "'" + s + "'"
stLinkCriteria = "[КодСтрана] = " + s

или "упрощенный" вариант:

stLinkCriteria = "[КодСтрана] = '" & Forms!Главная!ПолеС & "'"

но помните слова упрощенный и хороший не синонимы.
Евгений.

[Eвгений]

нет. "те же грабли, только в профиль"

при описании проблеммы, я немного поторопился и написал непонятно..
итак:
есть таблица (справочник) Страна(длинное целое - ключ и текстовое - название)
есть форма, в которой надо показать записи по какой-либо стране
есть другая форма.
на ней кнопка и поле со списком (источник строк -
SELECT Страна.КодСтрана, Страна.Страна FROM Страна ORDER BY [Страна] DESC

выбираю в этом поле Россию и по нажатию кнопки хочу, чтобы выполнился код:

Dim stDocName As String
Dim stLinkCriteria As String
Dim s As String

stDocName = "ОбщийПросмотр"
s = "Forms!Главная!ПолеСоСписком26.Colu mn(1)"
stLinkCriteria = "[Страна] = " + s
Надпись39 = stLinkCriteria ' посмотрим чего там в строке критерии
DoCmd.OpenForm stDocName, , , stLinkCriteria

вываливается ошибка run-time error 3085
неопределенная функция 'Forms!Главная!ПолеСоСписком26.Colu mn' в выражении
НО при этом в надписи39
: [КодСтрана] = Forms!Главная!ПолеСоСписком26.Colum n(0).
(0) нолик как-то потерялся
Опять же для проверки делаю на форме поле
в свойстве данные =ПолеСоСписком26.Column(1)
подправляю переменную s="Forms!Главная!ПолеС.Value" и все работает.....
а с полем со списком никак....
в чем проблемма?

[Eвгений]

примечание в слове column на самом деле пробелов нет!!!!!

[Eвгений]

Большое спасибо Teslenko_EA
разобрался...

[Teslenko_EA]

Здравствуйте Eвгений.
информация по Column(x)
обращение к Column(x) - это обращение к столбцу данных контрола с индексом x (нумерация начинается с нуля). У элементов управления Список и ПолеСоСписком есть свойство Присоединенный столбец (BoundColumn), при выборе значения контролу присваивается(передается) значение присоединенного столбца
подобные конструкции абсолютно идентичны

v = Forms!Главная!ПолеС.Value
v = Forms!Главная!ПолеС
v = Forms!Главная!ПолеС.Column(x)  'x -номер присоединенного столбца -1

а подобная конструкция:

s = "Forms!Главная!ПолеСоСписком26.Colu mn(1)"

присваивает переменной текст содержащий имя контрола.
Евгений.
P.S.
выкладываемый код для удобочитаемости заключайтев тэги [соde]...[/соde]
все свои сообщения я подписываю в надежде, что обращаться ко мне будут по имени.