请帮我看看VBA代码。

高处不胜寒

请教。以下是商品进货数据录入窗体中的一段VBA代码，当在“TEXT19”文本框中输入一个货号按回车键后，货号如果存在与“库存数据记录表中则在”进货货名“等几个文本框内显示对应的商品数据，如不存在则弹出一个对话框。我在窗体设计视图中设计了窗体，在设计视图中创建了表。在TEXT19设置了如下的代码，运行却总是提示错误。大家帮我看看是什么问题啊。谢谢。
private sub text19_afterupdate()
on error goto err_text19_afterupdate
    me![货号].setfocus
   docmd.findrecord me![text19],,true,,true
   if me![货号]<>me![text19] then
      if msgbox("增加一种新商品！",vbokcancel,"请确定")=vbok then
     docmd.gotorecord,,acnewrec
     me![货号]=me![text19]
     me![库存数量]=0
         else
               exit sub
         end if
end if        
me![text21]=me![货名]
me![text25]=me![进货单价]
me![text27]=0
me.refresh
exit_text19_afterupdate:
   exit sub
err_test19_afterupdate:
   msgbox err.description
   resume exit_text19_afterupdate
end sub

风鸣

可以上传你的文件吗？
楼上的代码有点让人“丈二和尚，摸不着头脑”。




-----------------
如有雷同，并非巧合！

高处不胜寒

Password:963

[此贴子已经被作者于2003-9-21 13:16:42编辑过]

风鸣

    Dim str As String
   
    str = "SELECT 库存数据记录.货号, 库存数据记录.货名 FROM 库存数据记录" '自己添加

    If IsNull(DLookup("[货号]", "库存数据记录", "[货号]=" & "'" & 货号 & "'")) Then
        
        MsgBox "自己添加", , "提示"
        
    Else
   
        货号 = DLookup("[货号]", "库存数据记录", "[货号]=" & "'" & 货号 & "'")
        货名 = DLookup("[货名]", "库存数据记录", "[货号]=" & "'" & 货号 & "'")
        
        '以下自己添加
        
        str = str & " where 货号=' " & 货号 & "'"
        Me.库存数据记录子窗体.Form.RecordSource = str
        
    End If
   

-----------------
如有雷同，并非巧合！