Access培训招生
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

把交叉表中的数据追加到一个完整的表中参与计算

时 间:2007-10-09 19:17:48
作 者:VictorDuane   ID:70  城市:闵行
摘 要:把交叉表中的数据追加到一个完整的表中,参与计算,特别是在计算列与列之间的运算逻辑关系时特别有效
正 文:

有时候做交叉表的时候知道表中有多少的字段,要计算字段与字段之间运算关系的时候,因为交叉表列数是不稳定的,所以我把得到的数据追加到一个固定的表\的字段中然后计算字段之间的关系,这个函数也适合用于追加表标题相同的数据到另一个表中


sub uf_InsertTable(strFromTable As String, strIntoTable As String)
''追加数据到一个完整的表里,strfromtable为数据来源表,strintotabel为要插入数据的表
Dim rst As DAO.Recordset
Dim fld As Field
Dim fldName As String
Set rst = CurrentDb.OpenRecordset(strFromTable, dbOpenDynaset)
For Each fld In rst.Fields
        fldName = fldName & fld.Name & ","
Next
fldName = Left(fldName, Len(fldName) - 1)
''Debug.Print fldName
strSQL = "Insert INTO " & strIntoTable & "(" & fldName & " ) Select " & fldName & " FROM " & strFromTable & ";"
docmd.setwarnings false
DoCmd.RunSQL strSQL

docmd.setwarnings true

End sub



Access软件网QQ交流群 (群号:115180141)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助