2013-05-04 2 views
0

Я разрабатываю систему транзакций для столов в MS Access 2007. В моей форме «Добавить элемент питания:» у меня есть серия текстовых полей и comboboxes, кнопка «Добавить элемент» и список. Названия текста и полей со списком следующим образом:Как вычесть значения из текстового поля в форме из поля в таблице (Access '07 VBA)?

имен TextBox: txtRate, txtQty

имен COMBOBOX: cbxICode, cbxItems

На нажатии кнопки Add Item, выбранные элемент с его количеством, ставкой и т. д. переходит в список. (Я задал вопрос о передаче here)

Теперь, в моем tblItems есть поле «QtyAvailable», которое указывает доступное количество существующих в настоящее время продуктов питания. Как я:

  • Вычитает количество товара, которое пользователь вводит из поля QtyAvailable в tblSampleData?

Продвинутая помощь признательна.

Спасибо,

S Sandeep

+0

Какой у вас код до сих пор? – Chris

+0

Гиперссылка находится в вопросе, не так ли? Я спросил некоего мистера Горда Томпсона, вопрос о переносе ценностей из комбо в список. Если бы вы могли рассказать мне свой идентификатор электронной почты, я мог бы сразу отправить вам весь accdb. – 2013-05-04 14:46:40

+0

[email protected] :) – Chris

ответ

0

Написать размораживание запроса, который выполняет задание на столе. Вы можете настроить параметры в определении запроса, заключая их в квадратные скобки. Когда MS Access не распознает имя в квадратных скобках, он будет запрашивать у пользователя значение.

После того, как это правильно работает, выполните поиск NET для примеров VBA при использовании ADO или DAO, чтобы получить копию запроса def в памяти, установить значения параметров и выполнить запрос. Recordset для SELECT, EXECUTE для INSERT, UPDATE и DELETE

+0

, пожалуйста, сообщите мне код, который вы запланировали ... – 2013-05-06 13:51:48

1

ниже код помог мне:

Dim cdb as CurrentDb, rst As DAO.Recordset, qtySelected as Long 
qtySelected = Me.txtQty.Value 
Set rst = cdb.OpenRecordset ("tblItems", dbOpenDynaset) 
With rst 
.Edit 
!QtyAvailable = rst!QtyAvailable - qtySelected 
.Update 
.Close 
End With 

Для получения более подробной информации, посетите этот вопрос я задал и увидеть последние комментарии here