设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[窗体] 如何在连续窗体中修改同一个字段下2个不同数据

[复制链接]
跳转到指定楼层
1#
发表于 2011-9-17 22:29:24 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
请路过的高手教教我,谢谢了。具体请见下图:

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

[attachimg]46712[/attachimg

本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
8#
 楼主| 发表于 2011-9-30 14:51:18 | 只看该作者
这个问题解决了,变量就是像第5楼这样表示的,'" & 临时变量名称 &"'。
7#
 楼主| 发表于 2011-9-19 12:45:06 | 只看该作者
看到,多谢了。
6#
发表于 2011-9-19 11:56:11 | 只看该作者
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 条件.
5#
 楼主| 发表于 2011-9-18 11:57:28 | 只看该作者
本帖最后由 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条件下把“分割数据”这个临时变量赋值给[卸货-原料鱼入库明细表] 的[入库重量],这该怎么表示呢?烦请会的朋友教我,谢谢

点评

用DAO的Bookmark属性定位,代码写起来简单些,详见:http://www.access-cn.com/thread-105545-1-1.html  发表于 2011-9-19 21:47
4#
 楼主| 发表于 2011-9-18 11:04:54 | 只看该作者
有莫有人看到呀,教教我,谢谢了。
3#
 楼主| 发表于 2011-9-18 08:18:33 | 只看该作者
多谢版主加班解答。我的意思不是每条记录都拆分,而是把某条记录拆成2个,其余内容一样,就是某个字段的数字不一样,例如我圈着的那条记录。麻烦再看下,多谢。
2#
发表于 2011-9-17 23:22:53 | 只看该作者
为什么要拆分呢?
如果全部都是固定拆成100和50的话,可以做两个追加查询就可以了。
用IIF来截开(大于100的,拆成100,否则为原值),做一个追加查询。
然后用同样原理把大于100那部分追加上去。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-18 07:24 , Processed in 0.117331 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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