设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1225|回复: 2
打印 上一主题 下一主题

[查询] 销售单窗体中想调用价格查询中的价格,结果全部都是“4.4”!!大侠们救命啊!

[复制链接]
跳转到指定楼层
1#
发表于 2006-12-5 00:12:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式




Me.单价 = CCur(DLookup("[吨价]", "SS-最新价格查询L", "产品编号='" & Me.产品编号 & "'") / 1000)


库中建有两个新价格查询“SS-最新价格查询L”和“SS-最新价格查询”,用上述语句中用前一个查询结果销售单子窗体中的单价全部都是“4.4”。[em06]用后一个显示数据类型不匹配。

我快死了……谁来救救我……

[此贴子已经被作者于2006-12-4 16:49:31编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-12-5 08:06:00 | 只看该作者
首先,"SS-最新价格查询L”语句要改为如下:

SELECT P产品5明细表.产品ID AS 编号, Max([SS-销售价格扩展查询].实施日期) AS 实施日期, Last([SS-销售价格扩展查询].吨价) AS 吨价
FROM [SS-销售价格扩展查询] INNER JOIN P产品5明细表 ON [SS-销售价格扩展查询].产品编号 = P产品5明细表.产品ID
GROUP BY P产品5明细表.产品ID;


然后改VBA如下:

Private Sub 产品编号_AfterUpdate()
    If IsNull([产品编号]) Then Exit Sub
    Me.单价 = DLookup("吨价", "SS-最新价格查询L", "编号=" & Me.产品编号) / 1000
End Sub

如果我没有理解错的话。

3#
 楼主| 发表于 2006-12-5 22:17:00 | 只看该作者
问题搞定,真是太感谢牛虫老师了!![em07]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 17:48 , Processed in 0.101737 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表