如何解决VB函数给出错误-查询表达式'[!D]'= 123 AND [POID] =&MfrOrderID&3075中的语法错误缺少运算符–
我试图获取履行生产订单所需的原材料的值,使用此简单函数从查询中获取值,产品配方以所需的数量im存储在另一个表中
Function GetRMWt(ProductID) As Long
GetRMWt = DLookupNumberWrapper("[RM Req]","RMCalc","[ID]=" & ProductID & " AND [POID] = & MfrOrderID &")
End Function
Private Sub Product_ID_AfterUpdate()
If Not IsNull(Me![Product ID]) Then
Me![Quantity] = GetRMWt(Me![Product ID])
Me.Quantity.Locked = False
Me![Unit Price] = GetListPrice(Me![Product ID])
Me![discount] = 0
Me![Status ID] = None_OrderItemStatus
Else
eh.TryToruncommand acCmdDeleteRecord
End If
End Sub
SELECT Products.ID,ProductReceipe.PID,ProductReceipe.[Product ID],[Mfr Order Details].Quantity AS [Item Qty],ProductReceipe.Quantity AS [RM Qty],([Item Qty] * [RM Qty] / 1000) AS [RM Req],[Mfr Order Details].[Mfr Order ID] AS POID,IGROrders.[IGR Order ID]
FROM ProductReceipe,[Mfr Order Details],[Mfr Orders],IGROrders,Products
WHERE ProductReceipe.PID ) = [Mfr Order Details].[Product ID]
AND [Mfr Orders].[Mfr Order ID] = [Mfr Order Details].[Mfr Order ID]
AND [Mfr Orders].[Mfr Order ID] = [IGROrders].[Mfr Order ID]
AND Products.ID = ProductReceipe.[Product ID]
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。