Office中国论坛/Access中国论坛

标题: 如何在连续窗体中修改同一个字段下2个不同数据 [打印本页]

作者: Y9X 时间: 2011-9-17 22:29
标题: 如何在连续窗体中修改同一个字段下2个不同数据
请路过的高手教教我，谢谢了。具体请见下图：

我想在连续窗体中拆分1个记录，我用的办法是：
首先，复制产生一条新记录
然后，修改老记录的数据
最后，修改新记录的数据，我不会改新记录，我没有办法定位

[attachimg]46712[/attachimg

作者: roych 时间: 2011-9-17 23:22
为什么要拆分呢？
如果全部都是固定拆成100和50的话，可以做两个追加查询就可以了。
用IIF来截开（大于100的，拆成100，否则为原值），做一个追加查询。
然后用同样原理把大于100那部分追加上去。

作者: Y9X 时间: 2011-9-18 08:18
多谢版主加班解答。我的意思不是每条记录都拆分，而是把某条记录拆成2个，其余内容一样，就是某个字段的数字不一样，例如我圈着的那条记录。麻烦再看下，多谢。

作者: Y9X 时间: 2011-9-18 11:04
有莫有人看到呀，教教我，谢谢了。

作者: Y9X 时间: 2011-9-18 11:57
本帖最后由 Y9X 于 2011-9-18 11:59 编辑

我感觉问题是不是出现在这里，我的赋值有问题，我该怎么样才能把临时的变量赋值给表呢
Dim 分割数据, 剩余数据, 新id As Double

分割数据 = InputBox("请输入打算分割出去的数据")

剩余数据 = Me.入库重量.Value - 分割数据
Me.入库重量.Value = 剩余数据

新id = DLast("id", "卸货-原料鱼入库明细表")

DoCmd.RunSQL "Update [卸货-原料鱼入库明细表] set 入库重量='" & 分割数据 & "' where id='" & 新id & "'" ‘我想实现id=新id条件下把“分割数据”这个临时变量赋值给[卸货-原料鱼入库明细表] 的[入库重量],这该怎么表示呢？烦请会的朋友教我，谢谢

作者: IT新世界 时间: 2011-9-19 11:56
Dim 分割数据, 剩余数据, 新id As Double

分割数据 = InputBox("请输入打算分割出去的数据")
剩余数据 = Me.入库重量.Value - 分割数据
Me.入库重量.Value = 剩余数据
干吗要用 Update? 用 Insert 嘛!

DoCmd.RunSQL "insert into [卸货-原料鱼入库明细表] (入库重量,XXX,YYY,ZZZ) values (" & 分割数据 & ",XXX,YYY,ZZZ)

或者,
你就用 Docmd.GotoRecord ,, acNew
Me!入库重量=分割数据
... = ...
... = ...
Docmd.RunCommand ... SaveRecord

不过这样会在画面新增一条记录, 尽管不符合当前窗体的 Filter 条件.

作者: Y9X 时间: 2011-9-19 12:45
看到，多谢了。

作者: Y9X 时间: 2011-9-30 14:51
这个问题解决了，变量就是像第5楼这样表示的，'" & 临时变量名称 &"'。

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