这个更新查询中的用变量如何调用？

laiguiyou

Dim qc As Integer
Dim jy As Integer
qc = Me.库存 - Me.订单量

If Me.库存 <> 0 Or Not IsNull(Me.库存) Then

   If qc < 0 Then
   jy = 0
   Else
   jy = qc
   End If
End If
DoCmd.SetWarnings False
DoCmd.RunSQL " UPDATE 半成品库存表 INNER JOIN 生产订单_库存查询 ON (半成品库存表.库存类型 = 生产订单_库存查询.库存类型) AND (半成品库存表.客户编号 = 生产订单_库存查询.客户编号) AND (半成品库存表.产品代号 = 生产订单_库存查询.产品代号) SET 半成品库存表.库存数量 = jy"
DoCmd.SetWarnings Tru

这个变量jy如何用在这个更新查询中？

主要想实现这个功能：就是在下订单时，能够自动半成品的库存调到订单中去，然后自动扣除库存表中的数据，

开始是在子窗体的更新事件中直接运行一个更新查询，好象可以实现，但速度太慢，现在想在订单量更新后事件中直接用更新查询，不知如何实现这个功能，如下图

[此贴子已经被作者于2007-2-7 11:41:12编辑过]

andymark

try:

DoCmd.RunSQL " UPDATE 半成品库存表 INNER JOIN 生产订单_库存查询 ON (半成品库存表.库存类型 = 生产订单_库存查询.库存类型) AND (半成品库存表.客户编号 = 生产订单_库存查询.客户编号) AND (半成品库存表.产品代号 = 生产订单_库存查询.产品代号) SET 半成品库存表.库存数量 = " & Jy & ""

laiguiyou

谢谢

laiguiyou

Dim qc As Integer
Dim jy As Integer
qc = Me.库存 - Me.订单量

If Me.库存 <> 0 Or Not IsNull(Me.库存) Then

   If qc < 0 Then
   jy = 0
   Else
   jy = qc
   End If
End If
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE 半成品库存表, 生产订单明细表 SET 半成品库存表.库存数量 = " & jy & " WHERE (((半成品库存表.产品代号)=[生产订单明细表]![产品代号]) AND ((半成品库存表.客户编号)=[生产订单明细表]![客户编号]));"

DoCmd.SetWarnings True

为什么我用上面的方法得到的结果是库存表中所有的数据都改变了，我在订单明细中输入客户编号12345，产品代号为MCH0121A，库存显示为800PCS，当我输入订单量为600PCS时，库存表中的数据全部都减了600PCS，可我的条件就是要符合客户编号和产品代号的啊，为什么？

[此贴子已经被作者于2007-2-7 13:45:39编辑过]

laiguiyou

解决了。

DoCmd.RunSQL "UPDATE 半成品库存表, 生产订单明细表 SET 半成品库存表.库存数量 = " & jy & " WHERE 半成品库存表.产品代号=" & 产品代号.Value & " AND 半成品库存表.客户编号='" & 客户编号.Value & "'"

[此贴子已经被作者于2007-2-7 14:05:24编辑过]