Office中国论坛/Access中国论坛

标题: 请帮我看看VBA代码。 [打印本页]

作者: 高处不胜寒 时间: 2003-9-21 01:44
标题: 请帮我看看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

作者: 风鸣 时间: 2003-9-21 19:31
可以上传你的文件吗？
楼上的代码有点让人“丈二和尚，摸不着头脑”。

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

作者: 高处不胜寒 时间: 2003-9-21 21:05
[attach]1777[/attach]
Password:963

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

作者: 风鸣 时间: 2003-9-22 02:46

Dim str As String

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

If IsNull(DLookup("[货号]", "库存数据记录", "[货号]=" & "'" & 货号 & "'")) Then

      MsgBox "自己添加", , "提示"

Else

      货号 = DLookup("[货号]", "库存数据记录", "[货号]=" & "'" & 货号 & "'")
      货名 = DLookup("[货名]", "库存数据记录", "[货号]=" & "'" & 货号 & "'")

      '以下自己添加

      str = str & " where 货号=' " & 货号 & "'"
      Me.库存数据记录子窗体.Form.RecordSource = str

End If

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

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