VPF::Передать значение запроса в переменную VBA

Freazeek

Дата 30.4.2010, 10:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 8.9.2009

Репутация: нет
Всего: нет

День добрый.

Есть две таблицы: первая - имена людей, вторая - значения для имен.

Есть форма: на форме комбобокс и текстбокс.
Список комобобокса формируется из таблицы Имена людей.

Надо: при выборе имени в комбобоксе - подставить в текстбокс максимальное значение для этого имени из таблицы Значения для имен.
По возможности на VBA.

Сам смог нарисовать

Код


Private Sub Cmbx_People_Change()
Dim s As Long
Dim i As Long
Dim sql As String

s = Cmbx_People.Column(0, Cmbx_People.ListIndex) ' получаем ID выбранного человека
sql = "SELECT max(val) from znach where idpeople=" & s ' формирует SQL запрос
'DoCmd.RunSQL sql   'это не работает и вообще не уверен что это из этой оперы.
'i =  ' должно получать максимальное значение для выбранного человека
Txbx_Values = i ' вывод на форму полученное значение
End Sub

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

Заранее спасибо. Извините если вопрос обсуждался. Пока формулировать вопросы не научился)

Присоединённый файл ( Кол-во скачиваний: 4 )

test.rar 14,06 Kb

Akina

Дата 30.4.2010, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Код


Private Sub Cmbx_People_Change()
Dim s As Long
Dim dbs As Database
Dim rst As Recordset

s = Nz(Cmbx_People.Column(0, Cmbx_People.ListIndex), 0)
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT max(val) as mval from znach where idpeople=" & CStr(s))
Txbx_Values = rst!mval
End Sub

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Freazeek

Дата 30.4.2010, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 8.9.2009

Репутация: нет
Всего: нет

большое спасибо.

Akina

Дата 30.4.2010, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Freazeek, пометьте вопрос как решённый (справа вверху).

--------------------

bopoha

Дата 1.5.2010, 01:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

DMax рулит.

Код


Txbx_Values = DMax("Val", "znach", "idpeople=" & CStr(s))

--------------------

Как создавать приложения на MS Access

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »