Office中国论坛/Access中国论坛

标题: 单价定期更新，老记录中单价信息也被更新 [打印本页]

作者: 山前灯火 时间: 2016-10-26 16:21
标题: 单价定期更新，老记录中单价信息也被更新
本帖最后由山前灯火于 2016-10-26 16:25 编辑

问题：
1、单价会随着实际情况调整，比如9月份单价是10块，到10月份可能变为15块；
2、因为单价信息比较多，不想手工录入，通过查询获取。
3、当10月份更新单价表中的数据时，9月份的记录中单价信息也变成了15，总金额也变了，汇总分析9、10月份的总金额等数据也就错了。

请大神帮忙，这样的数据库如何设计比较合理？问题如何解决？多谢

作者: Henry D. Sy 时间: 2016-10-26 16:32
更新你不设定条件吗？也就是where子句

作者: 山前灯火 时间: 2016-10-26 18:32
感谢版主秒答。本人菜鸟一枚。
是这样的，比如一年的数据中某些项目的单价可能变更多次，手工录入表格的只有产品名称，数量，而单价是查询出来的，也没有保存到某个地方，到下个月做汇总数据时，上个月的单价信息已经被更新了，再通过查询得到的单价就是本月的单价，应该怎么搞，才能避免这个问题，请明示一个解决办法。

作者: wzl8007 时间: 2016-10-26 19:43
创建临时表

作者: liuwanzhou 时间: 2016-10-26 20:37
建一单价表，设置生效日期，查询单价时按生效日期查询：Sql = "select top 1 单价 from 物料价格信息 where #" & 录入日期 & "#>= 生效日期 and 物料ID =" & Me.物料ID & " order by 生效日期 desc"

作者: Henry D. Sy 时间: 2016-10-27 12:15

山前灯火发表于 2016-10-26 18:32
感谢版主秒答。本人菜鸟一枚。
是这样的，比如一年的数据中某些项目的单价可能变更多次，手工录入表格的只 ...

个人感觉表设计有问题
你应该是有两个表
1.货品表（此表中有单价）
2.销售表（此表中无单价）
是不是这样的。
如是，建议销售时把单价保存在销售表中（录入时可以利用dlookup或其他办法来查询货品表中的单价，自动输入）
将来，
更新价格时，只要更新货品表中的单价就可以了，这样就不影响以前的销售额。

作者: 风中漫步 时间: 2016-10-27 13:32
在*中再加个单价或金额字段

作者: zyp 时间: 2016-10-27 23:27
你的记录（比如订单、出货等）在产生当时，就需要从当时的单价表中提取当前的价格，并保存到这条记录中，这样，这个价格就不会随单价表的调整而调整了

作者: xinrenq 时间: 2016-10-28 17:56
正确的方式就是为单价(或金额）建立字段，存在表里，这样就能保存了，互不影响了，
但对于每次(或行)要输入价格,较为麻烦怎么办呢，可以设立价格档案表管理，在录入数据时，默认抓取即时价格(或者某些条件下的价格）返回到当前记录行上，就省去了每次都要写价格的问题，但有一点，你要先建档，再去录入交易记录数据
如果你是每期末（比如每月底或一段时间后）再维护价格信息的，那也没关系，你建立价格档案，有支程序，可以依据你价档案中设立的时间段，再去更新你已录入的信息记录的价格（或金额）就行了，
当然，以上可以两种方式并举，有价格档时就抓取价格，没价格档时，就等下次更新时刷新价格就行了

从理论上，是可以不用建立价格（或金额）这个这段的，可以子查询嵌套来解决取价的问题，如果记录量不大，可以采购这一方法，但记录量大时，一些数据计算会占很大的资源，没有前面的方案方便

作者: 山前灯火 时间: 2016-10-28 19:07
标题: 奥比奥
本帖最后由山前灯火于 2016-10-28 19:08 编辑

Henry D. Sy 发表于 2016-10-27 12:15
个人感觉表设计有问题
你应该是有两个表
1.货品表（此表中有单价）

1、基本是这样。
2、解决方案，用dlookup查出来的数据存储在销售表中。
3、之前好像用dlookup查询过，但是制作报表时，分组，合计时这个字段提示错误。具体我试过以后发个文件给版主看一下。

作者: 山前灯火 时间: 2016-10-31 19:35
本帖最后由山前灯火于 2016-10-31 19:37 编辑

做了一个test示例，用
Private Sub 产品_AfterUpdate()
Me.单价 = DLookup("单价", "价格表", "产品='" & Me.产品 & "'")
End Sub
，可以查询出单价，但是不会保存，什么原因啊。求助，菜鸟，真心请教。

作者: Henry D. Sy 时间: 2016-11-1 16:18

山前灯火发表于 2016-10-31 19:35
做了一个test示例，用
Private Sub 产品_AfterUpdate()
Me.单价 = DLookup("单价", "价格表", "产品= ...

[attach]60217[/attach]

窗体上的单价要绑定表中单价字段

作者: 山前灯火 时间: 2016-11-1 17:20
多谢版主和各位的帮助

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