powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / использование select в vba
6 сообщений из 6, страница 1 из 1
использование select в vba
    #32819568
nalbat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Такая проблема:
необходимо "вытащить" значения двух полей из таблицы по признаку равенства одного из полей(Trunk текстовое) значению переменной (TrunkIn текстовая). На команду Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = TrunkIn ") выдается ошибка "Слишком мало параметров.Требуется1"
К слову такие команды проходят нормально
S = "Trunk= " & "'" & TrunkIn & "'"
idSrcType = DLookup("idSrcType", "tTrunks", S)
Пробовал
S="'" & TrunkIn & "'"
Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = S") - тот же результат.
Кто может - поможите...
...
Рейтинг: 0 / 0
использование select в vba
    #32819581
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
текстовая константа - надо окружить кавычками (одиночными)
& "'" & ... & ''"
select * from T1 where Id_Text='ляляля' выльется в
"select * from T1 Where Id_text=" & "'" & контрол & "'"
...
Рейтинг: 0 / 0
использование select в vba
    #32819584
nalbat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk ="&"'"&TrunkIn&"'" ") - такая строчка не компилится из-за двойных кавычек после WHERE Trunk ="
Я пробовал избежать,как я написал таким образом
S="'" & TrunkIn & "'"
Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = S") - тот же результат.
...
Рейтинг: 0 / 0
использование select в vba
    #32819598
nalbat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
хотя так
Set rsts = CurrentDb.OpenRecordset("SELECT * FROM tTrunks WHERE Trunk = 'блаблабла' ") он ,безусловно, понимает :(
...
Рейтинг: 0 / 0
использование select в vba
    #32819945
remblyn2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
автор
Set rsts = CurrentDb.OpenRecordset("SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = TrunkIn ")

а не пробовал вот так:
Код: plaintext
1.
2.
S="SELECT idSrcType, idClient FROM tTrunks WHERE Trunk = " + "'" + TrunkIn + "'""
Set rsts = CurrentDb.OpenRecordset(S) 
...
Рейтинг: 0 / 0
использование select в vba
    #32820107
nalbat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо! так пошло, только кавычка последняя лишняя :)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / использование select в vba
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]