为什么导出到Excel上没有数据？

网络蜘蛛

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

玉树TMD临风

上附件吧，光这种描述谁都不知道怎么回事

t小宝

Outputto宏 是怎样设置参数的

网络蜘蛛

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

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

t小宝

Outputto不能导出子窗体，这样实际上是导出子窗体作为一个单独的窗体打开时所显示的数据

t小宝

Outputto不能导出子窗体，这样实际上是导出子窗体作为一个单独的窗体打开时所显示的数据

网络蜘蛛

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

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

tzh1600

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

网络蜘蛛

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

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