запрос select а коде VB возвращает нуль значений

@regint · Регистрация: 04.07.2013

Author24 — интернет-сервис помощи студентам

Код(картинка, кода мало)

Кликните здесь для просмотра всего текста

https://downloader.disk.yandex... XXL&crop=0

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

Set temp = .... Написан в программе в одну строку, на картинке перевел, чтобы удобнее было
Переменную Me.данные_названия_фирмы.Value проверял, значение выдает, какое требуется (точка в этом выражении тоже есть, на скриншоте пропущена просто, увидел, исправил, проблему не решило)

Выдает ошибку, что запрос возвращает слишком мало значений. требуется 1.
Таблицы проверял, все в таблице есть, что надо. Название полей списываю с распичатанного скриншота схемы данных, также все их перепроверял, ошибок нету.

Собственно вопрос, почему запрос возвращает нуль записей? очень нужна помощь, уже мозг себе сломал. Часа 2 пытаюсь проблему решить.

@ikki · 08.06.2014, 23:19

вот влом мне перенабирать текст вашего запроса.
вам копипаст сделать лень, а мне целых две строчки набрать.

Добавлено через 46 секунд
пс. еслечо - по картинкам гадалки и экстрасенсы хорошо работают

@regint · 08.06.2014, 23:24 **[ТС]**

Код:

Visual Basic

Private Sub данные_название_фирмы_AfterUpdate()
    Dim temp As Recordset
    Set temp = CurrentDb.OpenRecordset("Select номер_поставщика from поставщики" _ 
"where название_фирмы = Me.данные_название_фирмы.Value;")
    temp.MoveFirst
    Me.данные_номер_поставщика.Value = temp.Fields(0).Value
    
End Sub

П.С. прошу прощения за лень, прост если копировать по обычному из редактора кода и вставлять, то он кириллицу портит, а переписывать все названия очень лень было.
П.С.С. это было бы как то глупо, копипаст лень сделать, а скриншот делать и в интернет лить не лень ((=

@ikki · 08.06.2014, 23:30

Сообщение от regint

он кириллицу портит

при включённой русской раскладке надо копировать.

вообще-то я ваш access не знаю совершенно.
но есть подозрение, что так должно сработать:

Visual Basic

1
2

Set temp = CurrentDb.OpenRecordset("Select номер_поставщика from поставщики" _ 
& " where название_фирмы = """ & Me.данные_название_фирмы.Value & """;")

@regint · 08.06.2014, 23:39 **[ТС]**

Сработало!
За русскую раскладку запомню, спасибо!

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

@ikki · 08.06.2014, 23:44

Visual Basic

Set temp = CurrentDb.OpenRecordset("Select номер_поставщика from поставщики where название_фирмы = """ & Me.данные_название_фирмы.Value & """;")

@regint · 08.06.2014, 23:46 **[ТС]**

И еще одно, почему кавычек аж по 3 штуки, исходя из чего такое количество?

@ikki · 08.06.2014, 23:58

нам нужно, чтобы ваш запрос выглядел примерно так:
Select номер_поставщика from поставщики where название_фирмы = "Аист белобрысый";
в поле Me.данные_название_фирмы.Value содержится просто Аист белобрысый
вот чтобы добавить по одной кавычке до и после названия, приходится писать аж по три.

кстати, ахтунг: если фирма будет называться ООО "Аист белобрысый", то запрос опять не сработает

ибо кавычки из названия перемешаются с кавычками в запросе и будет беда

исправляем так:

Visual Basic

1
2
3

s = Replace(Me.данные_название_фирмы.Value, """", """""")
Set temp = CurrentDb.OpenRecordset("Select номер_поставщика from поставщики" _ 
& " where название_фирмы = """ & s & """;")

и стучим три раза по дереву

@regint · 09.06.2014, 00:38 **[ТС]**

Ну ты просто шаман ((= все работает, видимо толково по дереву стучал.
Но мой мозг поломался окончательно, когда я посмотрел на исправленный код и кавычки, которые множаться с невероятной силой хД

запрос select а коде VB возвращает нуль значений

Решение

Решение

@regint 2 / 2 / 3 Регистрация: 04.07.2013 Сообщений: 30
		1
	запрос select а коде VB возвращает нуль значений 08.06.2014, 23:13. Показов 1356. Ответов 8 Метки нет (Все метки) Код(картинка, кода мало) Кликните здесь для просмотра всего текста https://downloader.disk.yandex... XXL&crop=0 Суть проблемы, есть поле со списком, мы выбираем нужное значение, а после выбора должен сработать данный код и основываясь на выбранном значении подставить данные, полученные из таблицы, в другое поле. Set temp = .... Написан в программе в одну строку, на картинке перевел, чтобы удобнее было Переменную Me.данные_названия_фирмы.Value проверял, значение выдает, какое требуется (точка в этом выражении тоже есть, на скриншоте пропущена просто, увидел, исправил, проблему не решило) Выдает ошибку, что запрос возвращает слишком мало значений. требуется 1. Таблицы проверял, все в таблице есть, что надо. Название полей списываю с распичатанного скриншота схемы данных, также все их перепроверял, ошибок нету. Собственно вопрос, почему запрос возвращает нуль записей? очень нужна помощь, уже мозг себе сломал. Часа 2 пытаюсь проблему решить. 0

@ikki призрак 3262 / 890 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	08.06.2014, 23:19	2
	вот влом мне перенабирать текст вашего запроса. вам копипаст сделать лень, а мне целых две строчки набрать. Добавлено через 46 секунд пс. еслечо - по картинкам гадалки и экстрасенсы хорошо работают 1

@regint 2 / 2 / 3 Регистрация: 04.07.2013 Сообщений: 30
	08.06.2014, 23:39 [ТС]	5
	Сработало! За русскую раскладку запомню, спасибо! Если не составит труда, можешь эти 2 строчки записать в одну, чтобы я понял в чем была ошибка, а также понял как работает перенос строк таким образом. 0

@regint 2 / 2 / 3 Регистрация: 04.07.2013 Сообщений: 30
	08.06.2014, 23:46 [ТС]	7
	И еще одно, почему кавычек аж по 3 штуки, исходя из чего такое количество? 0

@regint 2 / 2 / 3 Регистрация: 04.07.2013 Сообщений: 30
	09.06.2014, 00:38 [ТС]	9
	Ну ты просто шаман ((= все работает, видимо толково по дереву стучал. Но мой мозг поломался окончательно, когда я посмотрел на исправленный код и кавычки, которые множаться с невероятной силой хД 0