Question

我正试图在2010年的访问中建立一个以逆风风格的订购系统，但稍微复杂一点！当从组合框中选择产品时，我需要将产品的价格从库存带到订单详细信息子窗口，因此作为新手，我的代码无法正常工作...

Private Sub Product_AfterUpdate()
Dim PriceX As Currency, UnitX As Currency
PriceX = DLookup("Unit Price", "ProductInventory", "[ProductInventory].[Product]=" & [Product].Value)
UnitX = DLookup("Unit", "ProductInventory", "[Product] =" & [Product].Value)
Unit_Price.Value = PriceX
Unit.Value = UnitX
End Sub

Answer 1

我怀疑错误消息的全文是查询表达式'单价'中的“语法错误（缺少运算符）。”

您在名为单价的字段中查找值。由于字段名称包含空格，因此请将其括在方括号中以消除错误。

PriceX = DLookup("[Unit Price]", "ProductInventory", "[Product]=" & [Product].Value)

如果在此之后出现其他错误，请向我们提供错误消息的全文，并指出代码中的哪一行触发了错误。

根据您报告的当前错误，似乎[Product]是文本而不是数字数据类型。因此，请在DLookup表达式的最后一部分的值周围添加单引号。

PriceX = DLookup("[Unit Price]", "ProductInventory", "[Product]='" & [Product].Value & "'")

运行时3075语法错误

1 个答案: