Office中国论坛/Access中国论坛

标题: 如何实现复制别窗体上的记录和对应的明细资料到新窗体里 [打印本页]

作者: goto2008 时间: 2007-8-30 22:50
标题: 如何实现复制别窗体上的记录和对应的明细资料到新窗体里
如何实现复制别的记录和对应的明细资料到新窗体里
它们的数据都一样
唯独新的记录。。“成本ID”要换成新的，以示区别

[ 本帖最后由 goto2008 于 2007-9-2 09:27 编辑 ]

作者: 一点通 时间: 2007-8-30 23:17
所谓的导入,其实就是一个追加查询,使用追加查询就行了

作者: goto2008 时间: 2007-8-31 10:18

原帖由 一点通 于 2007-8-30 23:17 发表
所谓的导入,其实就是一个追加查询,使用追加查询就行了

大哥,,,,,它是可以追加到表里了...但是在主窗和子窗上,,,显示不出来....

作者: Henry D. Sy 时间: 2007-8-31 10:21
追加后
重新刷新一下主子窗体

作者: goto2008 时间: 2007-8-31 14:56

原帖由 dddddd 于 2007-8-31 10:21 发表
追加后
重新刷新一下主子窗体

大哥..有空在库上改改哦.......我弄刷新了...但还是这样...

作者: goto2008 时间: 2007-8-31 23:12
这个问题。。麻烦大家看一下哦，
很着急的。。。整个库就在这个地方卡住了

作者: t小宝 时间: 2007-8-31 23:38
不知道为什么要这样设计
[attach]26080[/attach]

作者: goto2008 时间: 2007-9-4 08:31
小宝大哥你好...
这个库我把主窗体上的文本框改为未绑定的.....
不知怎么的,把你的代码搬进去......只能复制子窗体的记录......主窗体上的记录在表里有出现,
但在主窗体上显示不出来?????

郁闷...请大哥再次指点下....谢谢..

作者: goto2008 时间: 2007-9-4 08:48
还有个问题......这个保存按扭代码不知怎么了,,,,一旦点击保存,,,,,,,,,,整个ACCESS就会"死机"

=========================================================

Private Sub 保存_Click()

If Nz([工厂货号]) = "" Or Nz([下单日期]) = "" Or Nz([数量]) = "" Then

MsgBox "工厂货号、下单日期、数量不能为空！", 64, "信息提示"

Else

If MsgBox("你确定要保存吗？", vbYesNo + 32, "提示信息") = vbYes Then

      DoCmd.SetWarnings False

         If IsNull(Me.ID) = False Then

         DoCmd.RunSQL "UPDATE 成本主表 set 下单日期='" & [Forms]![成本录入窗]![下单日期] & "', 客户='" & [Forms]![成本录入窗]![客户] & "',性别='" & [Forms]![成本录入窗]![性别] & "',成本ID='" & [Forms]![成本录入窗]![成本ID] & "' ,工厂货号='" & [Forms]![成本录入窗]![工厂货号] & "' ,客户货号='" & [Forms]![成本录入窗]![客户货号] & "',颜色='" & [Forms]![成本录入窗]![颜色] & "',码段='" & [Forms]![成本录入窗]![码段] & "',照片='" & [Forms]![成本录入窗]![照片] & "',计划制单人='" & [Forms]![成本录入窗]![计划制单人] & "',计划日期='" & [Forms]![成本录入窗]![计划日期] & "',实际制单人='" & [Forms]![成本录入窗]![实际制单人] & "',实际日期='" & [Forms]![成本录入窗]![实际日期] & "',数量=" & [Forms]![成本录入窗]![数量] & "," & _
                        " 销售单价='" & [Forms]![成本录入窗]![销售单价] & "',成本分析备注='" & [Forms]![成本录入窗]![成本分析备注] & "' WHERE (((成本主表.ID)=" & [Forms]![成本录入窗]![ID] & "));"

         Else

            DoCmd.RunSQL "INSERT INTO 成本主表 ( 成本ID,下单日期, 客户,工厂货号,客户货号, 性别,码段,号码,颜色,数量,照片,销售单价,计划制单人,计划日期,实际制单人,实际日期,成本分析备注) SELECT [成本ID], [下单日期], [客户], [工厂货号], [客户货号], [性别],[码段], [号码], [颜色],[数量], [照片], [销售单价],[计划制单人], [计划日期], [实际制单人],[实际日期], [成本分析备注]"

         End If

      DoCmd.SetWarnings True

End If
End If

End Sub

作者: hi-wzj 时间: 2007-9-4 08:52
goto2008 您想想，您的窗体和表是没有绑定的，那您向表里追加数据和窗体显示没有任何联系的呀？同理如果您要修改记录怎么办？想过了没？是否会存在多人同时更改同一记录的可能？如果有，那该以谁的为准？

作者: goto2008 时间: 2007-9-4 12:21
....大哥，我被你说得有点晕晕的。。。。窗体和表，，是用成本ID来关联。。
目前想到的是让它单机版。。轮流使用这个库。。。

作者: goto2008 时间: 2007-9-4 12:30
这个保存按扭。。。要把主窗上的文本框内容，和子窗体内容，，保存到表里。。
很重要的一个按扭。。。

乍办呀。。不知哪句代码。怎么了。。。才会这样。。

作者: t小宝 时间: 2007-9-6 21:38
如果没有什么特别需要，建议绑定主窗体，不然会增加很多工作量。

保存按钮的代码错在这句：
DoCmd.RunSQL "INSERT INTO 成本主表 ( 成本ID,下单日期, 客户,工厂货号,客户货号, 性别,码段,号码,颜色,数量,照片,销售单价,计划制单人,计划日期,实际制单人,实际日期,成本分析备注) SELECT [成本ID], [下单日期], [客户], [工厂货号], [客户货号], [性别],[码段], [号码], [颜色],[数量], [照片], [销售单价],[计划制单人], [计划日期], [实际制单人],[实际日期], [成本分析备注]"
大概要改成这样子：
DoCmd.RunSQL "INSERT INTO 成本主表 ( 成本ID,下单日期, 客户,工厂货号,客户货号, 性别,码段,号码,颜色,数量,照片,销售单价,计划制单人,计划日期,实际制单人,实际日期,成本分析备注) SELECT " & [成本ID] & " ," & [下单日期] & ",'" & [客户] & "','" & [工厂货号] & "','" & [客户货号] & "','" & [性别] & "','" & [码段] & "','" & [号码] & "','" & [颜色] & "','" & [数量] & "'," & [照片] & ",'" & [销售单价] & "','" & [计划制单人] & "'," & [计划日期] & ",'" & [实际制单人] & "'," & [实际日期] & ",'" & [成本分析备注] & "'"

言之不尽……，这个窗体最好重新构思一下！

作者: goto2008 时间: 2007-9-6 22:17
嗯.......我好好消化哦

作者: unico 时间: 2008-10-30 14:41
您想想，您的窗体和表是没有绑定的，那您向表里追加数据和窗体显示没有任何联系的呀？同理如果您要修改记录怎么办？想过了没？是否会存在多人同时更改同一记录的可能？如果有，那该以谁的为准？

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