2015-11-24 2 views
2

Я пытаюсь запустить запрос Access, который фильтрует таблицу RawData по сайту.MS Access Set Parameter Query

При запуске запроса обычно он работает нормально, я настроил запрос следующим образом

Picture of Relevant Fields from Query

У меня есть таблица подменю в базе данных, содержащей имена сайтов, и я с помощью VBA для запуска списка сайтов в этой таблице и выполнения определенных действий, включая фильтрацию таблицы Raw Data (через Query) и копирование необработанных данных на лист excel.

Я пытаюсь включить мой запрос доступа в Access VBA и он падает здесь

DoCmd.SetParameter "[Enter the Site:]", rs!DimensionSite 
DoCmd.OpenQuery "Raw Data Filtered by Site" 

RS! DimensionSite является соответствующее поле в столбце «DimensionSite» в таблице сайта

I я получаю сообщение об ошибке в первой строке, говоря, что «введенное выражение содержит недопустимый синтаксис»

Я не уверен в тексте setparameter, если я должен ссылаться на (1) «DimensionSite» (то есть имя столбца в таблице) или (2) 'Введите t он Сайт: ', то есть критерий текстового поля, который я использую в запросе.

Я был бы признателен за любую помощь, с тем, что происходит не так

Благодаря

J

+0

Ваш код выглядит нормально ли все еще возникают проблемы, если вы используете.„Простой“параметр имя, например «[Site]» вместо «[Enter the Site:]»? (обратите внимание, что вам нужно изменить его как в запросе, так и в вашем коде.) – Heinzi

+0

Попробуйте заменить «rs! DimensionSite» на существующее значение. Если это выполняется (оно должно), запись не имеет никакого существующего значения, если таковое имеется. – Gustav

+0

Привет Хайнци. DoCmd.SetParameter «[Сайт]», rs! DimensionSite и изменен на [Сайт] в Запросить также, но все равно получить то же сообщение – JDT

ответ

0

После удара с той же проблемой. Я обнаружил, что пример, предоставленный Microsoft, бросает вас в неправильном направлении.

Вы должны окружать в "при использовании параметров строки

Для примера использования:.

DoCmd.SetParameter "[Enter the Site:]", """" & rs!DimensionSite & """"