Как выгрузить значение полей из запроса.

@M_27 · Регистрация: 18.10.2011

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

Мне необходимо осуществить поиск по базе, и если такая запись существует, то значение полей, которые возвращает этот запрос помещаются в значения полей формы.

Visual Basic

1
2
3

Private Sub Кнопка9_Click()
DoCmd.OpenQuery "KlientЗапрос", acViewPreview
End Sub

Запрос:

SQL

1
2
3

SELECT Klient.klientID, Klient.familia, Klient.imia, Klient.otchestvo, Klient.nomerDok, Klient.tipDokID
FROM Klient
WHERE Klient.familia=[forms]![Клиент]![familia];

Не подскажете?

@Ameli · 19.10.2011, 07:33

Сделайте этот запрос источником для формы:

Visual Basic

1	Forms![Название формы].RecordSource = "KlientЗапрос"

@Agapov_stas · 19.10.2011, 09:37

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

Не подскажете?

Почему VBA не устраивает?

Visual Basic

Private Sub Кнопка_Click()
Dim sQ1 as String
sQ1 = " SELECT Klient.klientID, Klient.familia, Klient.imia, Klient.otchestvo, Klient.nomerDok, Klient.tipDokID " & _
      " FROM Klient " & _
      " WHERE ((Klient.familia=[Forms]![Клиент]![familia] OR [Forms]![Клиент]![familia] Is Null) "
Me![ПодчиненнаяФорма].Form.RecordSource = sQ1 'предположу, что имеется подчиненная форма, если нет, то: Me.RecordSource = sQ1 
End Sub

@M_27 · 19.10.2011, 11:10 **[ТС]**

Не работает ни в первом случае, ни во втором. Когда нажимаю на кнопку ничего не происходит(
Может необходимо как-нибудь присваивать значения запроса полям...

Добавлено через 13 минут
Спасибо) получилось)

@Agapov_stas · 19.10.2011, 11:12

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

Не работает ни в первом случае, ни во втором. Когда нажимаю на кнопку ничего не происходит(

..не верю..

@M_27 · 19.10.2011, 11:34 **[ТС]**

Я ошиблась просто) извините) все работает!)

@M_27 3 / 3 / 0 Регистрация: 18.10.2011 Сообщений: 24
	19.10.2011, 11:10 [ТС]	4
	Не работает ни в первом случае, ни во втором. Когда нажимаю на кнопку ничего не происходит( Может необходимо как-нибудь присваивать значения запроса полям... Добавлено через 13 минут Спасибо) получилось) 0

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	19.10.2011, 11:12	5
	Сообщение от M_27 Не работает ни в первом случае, ни во втором. Когда нажимаю на кнопку ничего не происходит( ..не верю.. 0

@M_27 3 / 3 / 0 Регистрация: 18.10.2011 Сообщений: 24
	19.10.2011, 11:34 [ТС]	6
	Я ошиблась просто) извините) все работает!) 0