Обновление записей в форме

@Aeronaut · Регистрация: 23.04.2009

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

Есть табличная форма в которой присутствуют поля [Препарат], [Цена за единицу]. Поле [Препарат] - это раскрывающийся список, данные для которого забераются из таблици "Прайс". Нужно что бы при выборе в этой форме в поле [Препарат] в поле [Цена за единицу] подставлялось сооветствующее значение цены (из той же таблицы) для выбранного препарата. В VBA выполнил следующий код:

Visual Basic

Private Sub Form_Load()
Me.[Препарат].Value = Me.[Препарат]
[ПолеЦенаЗаЕдиницу].Value = [Препарат].Column(2)
End Sub

Но выставляется цена одна единая, соответствующая первой записи на все записи. А мне как понимаете нужно для каждой записи свою цену. Ответе пожалуйста (по подробнее), я уже устал с этой проблемой биться!

@БурундукЪ · 12.05.2009, 12:33

не правилно. нужно не ч/з Form_Load
хорошо, что форма вообще после этого открывается )))
а вот эта строчка

Visual Basic

1	Me.[Препарат].Value = Me.[Препарат]

- это "масло масленное". Супер - вдохновило жить дальше ))), а то думал - умру со скуки

теперь серьезно: на чем базируется форма: а) на запросе, б) на таблице?

@Aeronaut · 12.05.2009, 13:36 **[ТС]**

Бурундук, Форма базируется на таблице "Прайс". Строчку:

Visual Basic

1	Me.[Препарат].Value = Me.[Препарат]

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

А форма работает правильно, и открывается корректно. Почему именно Form_Load, так потому что, нужно что бы обновление формы происходило при загрузке. Иначе в VBA не было бы этого пункта пункта.

@Aeronaut · 12.05.2009, 14:59 **[ТС]**

Ребята, спасибо большое за помощь, решение нашлось. Код в топку все делается в построителе выражений: "=[Препарат].[Column](2)"

@Aeronaut 0 / 0 / 0 Регистрация: 23.04.2009 Сообщений: 27
	12.05.2009, 14:59 [ТС]	4
	Ребята, спасибо большое за помощь, решение нашлось. Код в топку все делается в построителе выражений: "=[Препарат].[Column](2)" 0