У меня есть форма со списком, которая связана с таблицей (TblProduct), в которой показано описание продукта, и упорядочена по идентификатору продукта
У меня также есть текстовое поле с именем txtStockValue.
Я хочу, чтобы пользователи выбирали продукт из поля со списком, делали подсчет запаса и вводили стоимость запаса в поле txtStockValue.
Затем есть кнопка, которая подтверждает обновление.
У меня есть следующая кодировка для кнопки, но я поставил проблему в этом разделе форума, потому что я думаю, что моя проблема в запросе ... Я никогда раньше не использовал поля со списком
кодировка следующая
Private Sub StockOK_Click()
Dim SQLDelete1 As String
Dim SQLDelete2 As String
Dim SQLUpdate As String
SQLDelete1 = "DELETE * FROM TblStock WHERE TblStock.ProductID = CboStockItem.ProductID"
SQLDelete2 = "DELETE * FROM TblTotalSales WHERE TblTotalSales.ProductID = CboStockItem.ProductID"
SQLUpdate = "INSERT INTO TblStock (ProductID, StockLevel) SELECT ProductID FROM CboStockItem.ProductID AND SELECT StockLevel FROM TxtStockValue"
If IsNull(Me.TxtStockValue) Then MsgBox "Please Select An Item To Update Stock And Ensure A Value Has Been Entered" Else:
DoCmd.RunSQL SQLDelete1
DoCmd.RunSQL SQLDelete2
DoCmd.RunSQL SQLUpdate
End Sub
Я пытался ссылаться на поле со списком как CboStockItem (имя поля со списком), но я не думаю, что сделал это правильно.
Код, как правило, должен удалять все элементы из 2 таблиц, в которых идентификатор элемента такой же, как в продукте, выбранном в поле со списком, и затем вставлять новое значение для запаса в таблицу запасов.
Вторым моментом является то, что перед удалением данные должны быть обновлены в два файла Excel для хранения (стандартный файл Excel с именем Stock и коммерческий файл Excel с названием sales). Я думаю, что могу это сделать, но я подумал включить это для интереса.