Office中国论坛/Access中国论坛

标题: 请版主帮忙加代码让子窗体数据相互移动，谢谢！ [打印本页]

作者: ysh5858 时间: 2011-10-11 23:09
标题: 请版主帮忙加代码让子窗体数据相互移动，谢谢！
A子窗体中的一列信息能否做到移动到B子窗体列中的信息当中去？请问如何做？
http://www.office-cn.net/forum.p ... &fromuid=194626
前面版主给我一些指导，因我实在太菜，没能完成我想要的效果，现附上附件请版主再次帮忙，谢谢！

作者: ysh5858 时间: 2011-10-12 11:17
顶一顶{:soso_e182:}

作者: aslxt 时间: 2011-10-12 11:46
改为2003格式吧！

作者: yanghua1900363 时间: 2011-10-12 14:28
在“待加工”表里加一个是否的字段，当满足一定条件时，是否字段的值设为“是”。使用代码把待加工表中的数据写入“已完成”表中

作者: yanghua1900363 时间: 2011-10-12 14:34
[attach]46936[/attach] 已经转换为2003格式的没有再做深入处理

作者: ysh5858 时间: 2011-10-12 20:08
5楼朋友已转换出来，请版主帮忙，谢谢！

作者: ysh5858 时间: 2011-10-15 19:57
再顶{:soso_e182:}{:soso_e183:}{:soso_e185:}{:soso_e179:}

作者: ysh5858 时间: 2011-10-16 21:38
还顶{:soso_e182:}{:soso_e183:}

作者: Henry D. Sy 时间: 2011-10-17 14:25
本帖最后由 Henry D. Sy 于 2011-10-18 16:49 编辑

ysh5858 发表于 2011-10-16 21:38
还顶

作者: yanghua1900363 时间: 2011-10-17 16:51

Henry D. Sy 发表于 2011-10-17 14:25

牛！不用ado或dao照样可以在两表间迁移记录

作者: Henry D. Sy 时间: 2011-10-17 17:48
还是有错误，当前事件有时不触发。
晚点修改！

作者: Henry D. Sy 时间: 2011-10-17 17:50
还是有错误，当前事件有时不触发。
晚点修改！

作者: Henry D. Sy 时间: 2011-10-17 20:02
还是有错误,有时当前事件不触发
等会儿等会改改！

作者: Henry D. Sy 时间: 2011-10-17 22:53
[attach]47008[/attach]

这个应该没有问题了

作者: Henry D. Sy 时间: 2011-10-18 16:53
或者直接这样
：

Private Sub 后退_Click()
strSQL = "insert into 已完成 select * from 待加工 where 工序id='" & Me.待加工_子窗体.Form.工序ID & "'"
CurrentDb.Execute strSQL
strSQL = "delete from 待加工 where 工序id='" & Me.待加工_子窗体.Form.工序ID & "'"
CurrentDb.Execute strSQL
strID = ""
Me.Recalc
End Sub
Private Sub 完成_Click()
strSQL = "insert into 待加工 select * from 已完成 where 工序id='" & Me.已完成_子窗体.Form.工序ID & "'"
CurrentDb.Execute strSQL
strSQL = "delete from 已完成 where 工序id='" & Me.已完成_子窗体.Form.工序ID & "'"
CurrentDb.Execute strSQL
strID = ""
Me.Recalc
End Sub

复制代码

作者: ysh5858 时间: 2011-10-18 21:15
谢谢版主！{:soso_e179:}{:soso_e183:}{:soso_e182:}

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