Office中国论坛/Access中国论坛

标题: 【Access小品】通用选择字段导出示例 [打印本页]

作者: todaynew 时间: 2013-7-19 16:56
标题: 【Access小品】通用选择字段导出示例
本帖最后由 todaynew 于 2013-7-19 17:20 编辑

　　版友kelly同志问：如何选择字段打印报表？这个问题直接在Access动态创建报表应该可以实现，或许用PrintOut也可实现（不敢肯定PrintOut对隐藏列可以不输出），是否存在其他直接输出报表的方法不得而知。不过我是编好将这类问题导入到Excel中处理，原因在于其灵活性大很多。

　　导出一个表或者查询中的部分数据到EXCEL表中，其方法也有很多。无论如何处理，首先必须要构造出一个SQL查询语句。根据窗体的RecordSource属性，我们可以得到From子句的部分。而根据窗体的Filter属性，我们可以得到Where子句的部分。如果是输出所有字段有这两部分就足够了。但是要输出部分字段，就需要想办法得到Select子句的部分了。

Private Function GetSql(ByVal OpA As String, listctrl As ListBox) As String
'功能：返回SQL字符串
'参数：OpA -- Me.OpenArgs (写为：me.name & "子窗体控件名称")
'    listctrl--存放所选字段的ListBox控件
Dim frm As Form
Dim A
Dim ssql As String, tb As String, wh As String
Dim i As Long
If listctrl.ListCount > 0 Then
      A = Split(OpA, ";")
      Set frm = Forms(A(0)).Controls(A(1)).Form

      tb = Replace(frm.RecordSource, ";", "") 'From子句部分

      wh = "True "
      If Nz(frm.Filter, "") <> "" Then
         wh = wh & " and " & frm.Filter    'Where子句部分
      End If

      ssql = "select "
      For i = 0 To listctrl.ListCount - 1
         ssql = ssql & listctrl.Column(0, i) & ","  '拼接Select子句部分
      Next
      ssql = Left(ssql, Len(ssql) - 1)    'select子句部分
      ssql = ssql & " from (" & tb & ") where " & wh
Else
      ssql = ""
End If
GetSql = ssql
End Function

　　本例描述了处理这个问题的一种方法，其中【输出窗体】是相对独立的，可以拷贝到任何系统中使用。

示例文件：[attach]52201[/attach]

视图：
[attach]52202[/attach]

作者: ycxchen 时间: 2013-7-19 17:22
感谢分享！

作者: weidunw 时间: 2013-7-19 22:08
谢谢分享。顶起。

作者: admin 时间: 2013-7-20 10:25
谢谢分享，很好！！

作者: tmtony 时间: 2013-7-20 16:27
赞一个

作者: roych 时间: 2013-7-21 14:53
貌似红尘曾经写过一个，多了导出字段排序部分（上移或下移）。

作者: 李力军2 时间: 2013-9-22 19:27
多谢谢

作者: 戚继光 时间: 2013-12-19 21:38
终于找到组织了。。。

作者: tzh1600 时间: 2013-12-20 10:57
学习学习

作者: shenqiulo 时间: 2014-2-14 10:20
代码很好用很实用。本着共享人的义务，不顶贴不回帖就不是人。

作者: wuchao5460 时间: 2015-1-6 19:42
Thanks for sharing

作者: p51219 时间: 2015-4-11 00:15
好好好好好好好好好好好好好好

作者: Alashome 时间: 2015-6-26 15:19
good

作者: Alashome 时间: 2015-6-26 15:20
good

作者: nncchh 时间: 2015-7-20 11:30
学习一下

作者: nncchh 时间: 2016-1-31 12:54
谢谢分享

作者: owen2016 时间: 2016-8-20 16:42
已经阅读，谢谢

作者: andliu 时间: 2019-6-2 09:33

终于找到组织了。。。

作者: yxrlqy 时间: 2021-11-22 10:03
终于找到组织了

作者: yxrlqy 时间: 2021-11-22 22:27
哪位大侠知道，怎么合并到office 中国，

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