Office中国论坛/Access中国论坛

标题: 关于进库单录入和库存单关联的问题！ [打印本页]

作者: yyinfo 时间: 2011-4-14 21:23
标题: 关于进库单录入和库存单关联的问题！
最近在看实例学习，在论坛找了个例子学习。
看到进库单录入时，有段更新库存表的程序运行总是报错我试了下在进库单输入完数据后点保存按钮会报错不知道程序如何修改恳请各位指点下！谢谢如有不方便可以pm我或qq联系我再次谢谢！！
[attach]45348[/attach]
[attach]45349[/attach]

作者: yyinfo 时间: 2011-4-14 21:26
我的qq274778492

作者: zyz218 时间: 2011-4-14 22:40
本帖最后由 zyz218 于 2011-4-14 22:43 编辑

'更新在库状况
Dim ym As String
DoCmd.SetWarnings False
ym = Format(Me.indate, "yyyy-mm")
If IsNull(DLookup("onqty", "stock", "yearmonth='" & ym & "'and codeno='" & Me.codeno & "'and area='" & Me.area & "'")) Then
      STemp = "INSERT INTO stock"
      STemp = STemp & "(yearmonth,codeno,inqty,onqty,area,distri)"
      STemp = STemp & " VALUES ('" & ym & "','" & Me.codeno & "',"
      STemp = STemp & "'" & Me.inqty & "','" & Me.inqty & "','" & Me.area & "','" & Me.inqty & "')"
      DoCmd.RunSQL STemp
Else
      STemp = "update stock set inqty=inqty+" & Me.inqty & ",onqty=onqty+" & Me.inqty & " "
      STemp = STemp & "where yearmonth='" & ym & "'and codeno='" & Me.codeno & "'and area='" & Me.area & "'"
      DoCmd.RunSQL STemp
End If
本月这个图番所在库区没有则新增一行,有则更新入库数与在库数,这样处理

作者: yyinfo 时间: 2011-4-15 22:18
谢谢zyz前辈的解答帮助，不知能否做个简单的实例这样便于理解我是刚开始学谢谢您了
另请问下程序中area字段是什么意思。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)