【发布时间】：2012-02-29 20:14:51
【问题描述】：
我有一个带有组合框的表单，该组合框链接到一个表 (TblProduct)，该表显示产品描述并按产品 ID 排序
我还有一个名为 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个表中的所有项目，其中项目ID与从组合框中选择的产品相同，然后将新的库存值插入库存表。
第二点是，在删除数据之前，应将其更新为两个 Excel 文件进行存储（一个名为 Stock 的股票 Excel 文件和一个名为 sales 的销售 Excel 文件）。这个我想我可以做到，但我想把它包括在内。
【问题讨论】：
-
如果你发现乔伊解决了这个问题，你应该接受这个答案。这对 Joey、SO 和你都有好处 :)
-
这是我项目的最后一部分。我有两张表，一张称为库存，一张称为总销售额。我正在尝试将其用作库存更新，以便将以前的销售和库存作为商店导出到 excel，并从数据库中删除。这适用于酒吧的 Epos 系统，因此盘点将每月进行一次 - 每季度一次。