关于进库单录入和库存单关联的问题！

yyinfo

最近在看实例学习，在论坛找了个例子学习。
  看到进库单录入时，有段更新库存表的程序运行总是报错 我试了下 在进库单输入完数据后点保存按钮会报错 不知道程序如何修改恳请各位指点下 ！谢谢 如有不方便可以pm我或qq联系我 再次谢谢！！

yyinfo

我的qq274778492

zyz218

'更新在库状况
    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

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