请教如何将五个表格数据合并到一个表中

小小鸟　发表于：2011-11-14 09:20:51 　

在实际工作中，我要将输入数据的表分发给五个不同部门输入，最后自动合并。请教如何将五个具有相同字段的表格数据合并到一个表中

叶海峰发表于：2011-11-14 13:20:24

运行以下代码

Sub a()
    Dim i      As Byte
    CurrentDb.Execute "delete * from 总表"
    For i = 0 To CurrentDb.TableDefs.Count - 1
        If CurrentDb.TableDefs(i).Name <> "总表" And Left(CurrentDb.TableDefs(i).Name, 4) <> "Msys" Then
            CurrentDb.Execute " INSERT INTO 总表 select * from " & CurrentDb.TableDefs(i).Name
        End If
    Next

End Sub

Top

huangjing 发表于：2012-02-22 15:16:11

用SQL试图写查询：例子：

SELECT 委托方,收货方,分发货单号,客户采购单位,延误,破损,整件缺失,退货,货物受潮,未带质保书,代收票据异常,送货地址错误,装运条款,代收现金上缴收据号,运输注意事项,代收现金运费上缴收据号,非运输发票结费,退货情况说明,保险单单号
FROM 发货单信息总表2 UNION SELECT 委托方,收货方,分发货单号,客户采购单位,延误,破损,整件缺失,退货,货物受潮,未带质保书,代收票据异常,送货地址错误,装运条款,代收现金上缴收据号,运输注意事项,代收现金运费上缴收据号,非运输发票结费,退货情况说明,保险单单号
FROM 发货单信息总表3;
在用做好的查询做一个输出查询就可以了。

Top

麥田发表于：2014-04-19 14:39:37

用追加查询

汇总表中记录及追加记录步骤
http://www.accessoft.com/article-show.asp?id=384

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

请教如何将五个表格数据合并到一个表中