设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 11582|回复: 21
打印 上一主题 下一主题

[模块/函数] 【Access小品】通用选择字段导出示例

[复制链接]
跳转到指定楼层
1#
发表于 2013-7-19 16:56:07 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
本帖最后由 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

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

示例文件:

视图:



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

本帖被以下淘专辑推荐:

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享1 分享淘帖1 订阅订阅
22#
发表于 2021-11-22 22:27:09 | 只看该作者
哪位大侠知道,怎么合并到office 中国,
21#
发表于 2021-11-22 10:03:05 | 只看该作者
终于找到组织了
20#
发表于 2019-6-2 09:33:37 | 只看该作者

终于找到组织了。。。
19#
发表于 2016-8-20 16:42:25 | 只看该作者
已经阅读,谢谢
18#
发表于 2016-1-31 12:54:44 | 只看该作者
谢谢分享
回复

使用道具 举报

17#
发表于 2015-7-20 11:30:48 | 只看该作者
学习一下
回复

使用道具 举报

16#
发表于 2015-7-20 11:30:08 | 只看该作者
学习一下
回复

使用道具 举报

点击这里给我发消息

15#
发表于 2015-6-26 15:20:27 | 只看该作者
good
回复

使用道具 举报

点击这里给我发消息

14#
发表于 2015-6-26 15:20:11 | 只看该作者
good
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 09:48 , Processed in 0.109727 second(s), 38 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表