Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Указать VBA использовать переменную  (Прочитано 6062 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Пашка
Гость
« : 17-12-2008 22:00 » 

Как дать понять VBA, что нужно использовать значение переменной, а не символ, который является именем переменной.
Простите за этот вопрос. Мне стыдно.

Имеем код:

Код:
Dim a,b,c As string, z As QueryDef
a = Pole1 'считал начало интервала
b = Pole2 'конец интервала
с = "SELECT * FROM ИмяТаблицы WHERE Поле BETWEEN " + a + " AND " + b ' склеиваем запрос из строчек

Вот этот запрос мне нужно выполнить в MS Access

Пытаюсь это сделать так:

S
Код:
et d = CurrentDb.CreateQueryDef("имязапроса", c)
' естественно здесь "с" прочлось не как строковая переменная, а просто как-то, что должно быть SQL запросом. И очень часто у меня возникают такие ситуации, когда нужно объяснить Access, что здесь нужно читать переменную, а не символ

Код:
RefreshDatabaseWindow
DoCmd.OpenQuery "имязапроса"

Благодарю всех, кто ответит.
Записан
Пашка
Гость
« Ответ #1 : 20-12-2008 15:44 » new

Спасибо, задачу решил, тему можно закрывать.

Если хотим указать в качестве запроса склеенную строку, то делаем это так:

Код:
Dim a,b,c As string, z As QueryDef
a = Pole1 'считал начало интервала
b = Pole2 'конец интервала
Set d = db.CreateQueryDef("имязапроса")
d.SQL = "SELECT * FROM МоиСотрудники  WHERE Начислено BETWEEN " + a + " AND " + b + ";"
RefreshDatabaseWindow
DoCmd.OpenQuery "имязапроса"
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines