Office中国论坛/Access中国论坛

标题: 为什么导出到Excel上没有数据？ [打印本页]

作者: 网络蜘蛛 时间: 2014-1-23 20:10
标题: 为什么导出到Excel上没有数据？
一个查询用的主窗体，上面有多个文本框，用来输入查询条件，一个子窗体用来显示查询结果，子窗体一开始没有数据源，点击主窗体上的查询按钮之后，会将一个SQL语句赋值给子窗体的数据源属性，子窗体也能显示正确的查询结果。主窗体上还有一个导出按钮，用来将查询结果导出为Excel文件，我用的是Outputto宏，但导出后表中只有表头，没有数据，就和一开始没点击查询，直接点导出按钮一样，请问这是怎么回事？要如何解决？

作者: 玉树TMD临风 时间: 2014-1-23 20:13
上附件吧，光这种描述谁都不知道怎么回事

作者: t小宝 时间: 2014-1-23 20:59
Outputto宏是怎样设置参数的

作者: 网络蜘蛛 时间: 2014-1-23 21:15

t小宝发表于 2014-1-23 20:59
Outputto宏是怎样设置参数的

对象类型：窗体
对象名称：子窗体的名字
输出格式：Excel工作薄（*.xlsx）
自动启动：是
输出质量：打印

作者: t小宝 时间: 2014-1-23 23:26
Outputto不能导出子窗体，这样实际上是导出子窗体作为一个单独的窗体打开时所显示的数据

作者: 网络蜘蛛 时间: 2014-1-23 23:40

t小宝发表于 2014-1-23 23:26
Outputto不能导出子窗体，这样实际上是导出子窗体作为一个单独的窗体打开时所显示的数据

那怎么办？
主窗体是用来查询的，所以没有数据源。在“查询”的点击事件加一条语句，让主窗体的数据源也赋值那个SQL语句。点击“导出”时导出主窗体可以吗？
这样的效果版主一定也做过吧！版主是怎么实现的？

作者: tzh1600 时间: 2014-1-26 12:28
Dim Qdf As DAO.QueryDef
Dim Str As String
Set Qdf = CurrentDb.QueryDefs("子窗体数据源查询")
Str="子窗体数据源查询SQL语句"
Qdf.SQL = str
DoCmd.OutputTo acOutputQuery, "子窗体数据源查询", acFormatXLS
Qdf.Close
Set Qdf = Nothing

作者: 网络蜘蛛 时间: 2014-1-27 21:17

tzh1600 发表于 2014-1-26 12:28
Dim Qdf As DAO.QueryDef
Dim Str As String
Set Qdf = CurrentDb.QueryDefs("子窗体数据源查询")

试了一下，问题解决，多谢。

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