如何实现复制别窗体上的记录和对应的明细资料到新窗体里

goto2008

如何实现复制别的记录和对应的明细资料到新窗体里
它们的数据都一样
唯独新的记录。。“成本ID”要换成新的，以示区别

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

unico

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

goto2008

嗯.......我好好消化哦

t小宝

如果没有什么特别需要，建议绑定主窗体，不然会增加很多工作量。

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

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

goto2008

这个保存按扭。。。要把主窗上的文本框内容，和子窗体内容，，保存到表里。。
很重要的一个按扭。。。

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

goto2008

....大哥，我被你说得有点晕晕的。。。。窗体和表，，是用成本ID来关联。。
目前想到的是让它单机版。。轮流使用这个库。。。

hi-wzj

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

goto2008

还有个问题......这个保存按扭代码不知怎么了,,,,一旦点击保存,,,,,,,,,,整个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

goto2008

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


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

t小宝

不知道为什么要这样设计