| Korban_dv |
| Есть форма. В ней список1, взятый из таблицы1. В таблице1 каждому значению этого списка1 соответствует своё число1. Есть таблица2, в ней находится число x=0. Как сделать так, чтобы при двойном нажатии элемента списка1 к числу x прибавлялось число1, соответствующее эл-ту списка1 в табл1? |
Я так пониамю, что число1 не представлено в списке и его надо найти по коду соответствия. Если так, то пишете, скажем, такой код в процедуре на даблклик (если число1 в списке, то задача становится тривиальной)
Dim s, t
t = "(select [число1] from [таблица1] where [Код]=" & Me.список1 & ")"
s = "update таблица2 set x=x + " & t & " where pole=" & Me.список2
CurrentDb.Execute s
Здесь pole это имя поля в списке2, которое надо обновить. Поле Код это поле из таблицы1, помещенное в список1.
Переменные t и s введены для того, чтобы вы могли контролировать себя, например, распечатав их и проверив в конструкторе запросов
И еще. Если поле Код не уникально, то запрос не сработает, поскольку выведется набор значений, а не одно число.