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

goto2008

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

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

一点通

所谓的导入,其实就是一个追加查询,使用追加查询就行了

goto2008

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

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

Henry D. Sy

追加后
重新刷新一下主子窗体

goto2008

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

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

goto2008

这个问题。。麻烦大家看一下哦，
很着急的。。。整个库就在这个地方卡住了

t小宝

不知道为什么要这样设计

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

hi-wzj

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