Question

你好，今天早上你帮我解决了一个ACCESS的问题，谢谢你，我还有个问题请教。怎么导出这两个查询记录，

你好，今天早上你帮我解决了一个ACCESS的问题，谢谢你，我还有个问题请教。怎么导出这两个查询记录，现在是能出两个中的一个，或者两个同时导出，不知道该怎么弄才能把当前窗体显示的查询给导出来？在此感谢你

Answer 1

我不太清楚你是要怎样导出查询的，不过这里可以给你一个大概的方法，如果你要导出当前窗体的查询资料，选取可见性为“真”的那个子窗体的相关查询进行导出即可。至于具体实施方案要视你的ACCESS程序和导出要求而定。
如果你能将你导出其中一个查询或两个同时导出的具体做法告诉我，我可以为你给出具体方案。

追问

你好，还是昨天的问题，两个查询，想将查询结果想导成EXCEL格式的，在导出命令里只能添加一个对象，如果要导出另外一个对象，就必须添加一个新的导出命令，想在一个控件下导出所显示的查询结果数据，该怎么去做？谢谢你

追答

现在忙，请稍候，晚些时候给你答复。顺便请告诉我，请问你的子窗体的数据源用的是查询名还是SQL语句？

追问

你好，子窗体数据源用的是查询名

追答

'下面代码以两个子窗体同一时间只有一个是可见的为前提
'添加一个导出命令按钮CmdExportExcel

'如果你的子窗体数据源是固定不变的，你可以导出窗体为EXCEL格式
'下面代码导出窗体为EXCEL文件
Private Sub CmdExportExcel_Click()
Dim FrmName As String
If Me.[子窗体1].Visible = True Then
FrmName = Me.[子窗体1].SourceObject
ElseIf Me.[子窗体2].Visible = True Then
FrmName = Me..[子窗体2].SourceObject
End If
DoCmd.OutputTo acOutputForm, FrmName, acFormatXLS, , True
'系统会提示要求保存位置和文件名，并自动打开该导出文件
End Sub

'如果你的子窗体数据源因不同条件而变化，建议导出作为子窗体数据源的查询为EXCEL格式
'下面代码导出查询为EXCEL文件
Private Sub CmdExportExcel_Click()
Dim QryName As String
If Me.[子窗体1].Visible = True Then
QryName = "Query1" '假设子窗体1数据源用的查询名为：Query1
ElseIf Me.[子窗体2].Visible = True Then
QryName = "Query2" '假设子窗体2数据源用的查询名为：Query2
End If
DoCmd.OutputTo acOutputQuery, QryName, acFormatXLS, , True
End Sub