2

我正在尝试在 access 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
4

1 回答 1

4

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

您正在一个名为Unit Price的字段中查找一个值。由于字段名称包含空格，请将其括在方括号中以消除错误。

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

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

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

PriceX = DLookup("[Unit Price]", "ProductInventory", "[Product]='" & [Product].Value & "'")
于 2013-08-22T02:10:07.367 回答