Office中国论坛/Access中国论坛

标题: 求救，急死我了，这个代码错在哪里？ [打印本页]

作者: laiguiyou 时间: 2004-12-24 17:50
标题: 求救，急死我了，这个代码错在哪里？
我在产品代号更新后事件里写：

产品名称.Value = DLookup("[产品名称]", "产品表", "[产品代号]='" & 产品代号.Value & "'")

if Me.工序名称 = "开模" Then

单价.Value = DLookup("[开模]", "产品表", "[产品代号]='" & 产品代号.Value & "'")

End If

请教各位，这段代码错在哪里？

[attach]8266[/attach]

[attach]8267[/attach]

[attach]8268[/attach]

作者: 方漠 时间: 2004-12-24 19:19
设置好关系用查询，而不是DLOOKUP。

作者: laiguiyou 时间: 2004-12-24 19:22
在这里很查询可能无法实现，因为每个产品有十几个工序，每个工序的单价又不同用Dlookup会方便些

作者: Trynew 时间: 2004-12-24 20:44
[attach]8270[/attach]

产品名称.Value = DLookup("[产品名称]", "产品表", "[产品编号]=" & 产品代号.Value )

单价.Value = DLookup(Me.工序名称, "产品表", "[产品编号]=" & 产品代号.Value )

要注意查阅型字段[产品代号]显示的值和实际的值不同，产品代号.Value 是538，即产品的编号。

另外也不需要用那么多条件语句判断工序名称。

作者: laiguiyou 时间: 2004-12-24 21:57
谢谢，解决了我的问题，这样的代码很简洁，多向你学习

作者: 静儿 时间: 2004-12-24 22:26
还能再简单一些的。单价= DLookup(Me.工序名称, "产品表", "[产品编号]=" & 产品代号)

作者: laiguiyou 时间: 2004-12-26 01:14
谢谢静儿

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