Есть 2 таблицы price_t( type , value) и type_t( id , name).
Есть форма:
в Combo0 пользователь выбирает тип топлива из type_t(name). После того как контрол обновился в Text1 он должен увидеть цену топлива взятую из price_t(value)
Связь таблиц [price_t]!.[type]=[type_t]!.[id]
Вообщем
Дайте пожайлуста совет в какому свойству или событию Text необходимо присвоить результат запроса
SELECT [Price_T]!.[Value] FROM [Price_T] WHERE [Price_T]!.[ID]= " & Me!Combo0 & "

А теперь пользователь изменил в text1 и нажал кнопку
Необходимо чтобы помле события онклик проапдейтелось price_t.value

Private Sub Command6_Click()
CurrentDb.Execute "Update Price_t(Value) Where [price_t].[type]= " & Me!combo0 VALUES (" & Me!Text4 & ")", dbFailOnError
End Sub
вообщем я не знаю синтаксиса пока еще что тут необходимо изменить

CurrentDb.Execute "Update Price_t Set Value= " & Me!Text4 " Where type= " & Me!Combo0 "", dbFailOnError
или как-то так?

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

Я сделал еще один текстбокс Text5 в него пользователь вбивает новую цену потом нажимает кнопку я вставил ваш код только поменял Text4 на Text5 и .... обджект реквайред

в коде при наведении мышкой на конторлы подвечивается значения после отработки процедуры так вот и Text5=3.3 и Combo0=1 где то ошибка чисто синтаксическая наверное

апосторофы убрал та же ошибка

Private Sub Command6_Click()
CuurentDb.Execute = "Update Price_t Set Value= " & Me!Text5 & " Where type= " & Me!Combo0 & ";"
End Sub

Все нормально но теперь ругается на combo Argument not optinal

Combo0.Row Source="Select t.id, t.name from type t
Combo0.Bound Column=1
Text4=Dlookup("value", "price_t", "type="&Me!Combo0)

Не могу понять почему выскакивает ошибка Argument not optinal на метод Execute.

Сначала свойства контролов
--------------------------------------
Combo0:

Row Source=SELECT [Type_T].[ID], [Type_T].[Name] FROM Type_T;
Column Count=2
Column Width=0;2.54
Bound Column=1

Private Sub Combo0_AfterUpdate()
Text4 = DLookup("value", "price_t", "type= " & Me!Combo0)
End Sub
--------------------------
Text4
Ни каких свойств ничего нет просто отображается текущее значение цены

Text5
пользоваnель вводит значение и нажимает энтер

Private Sub Text5_AfterUpdate()
CurrentDb.Execute = "Update Price_t Set Value= " & Me!Text5 & " Where type=" & Me!Combo0 & ";"
End Sub

Все нормально при выборе типа топлива автомат появляется значение цены в Text4
Ввожу в Text5 новое значение и Argument not optinal

не помогает все равно Argument not Optinal

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


У меня такой еще вопрос вообщем есть теперь 3 комбо справочника (ID,name)
В тектсбоксе выводим значение из таблицы по следуюющему запросу таблица
Main содержит соотвественно 3 поля со значениями ID соответств спраовчников и 4 поле некое значение все записи уникальны то есть комбинация значения полей всегда одна единственная
Как теперь такой запрос встватить я думаю Dlookup вряд ли может спразу три кртитерия поддерживать

Select Value from Main Where fl1=Combo1 and fl2=combo2 and fl3=combo3

Private Sub Command9_Click()
Text6 = DLookup("Value", "New_Rates", elev = " & Me!Combo0 & " And operation = " & Me!Combo2 & " And crop = " & Me!combo4 & ")
End Sub
ничего не выводит!