列表框和文本框混合一起，如何实现查询？

snryga

又出新问题，不在查询中设置参数查询后，导出的数据不是查询的结果，是整表内容。

这个需要怎么整呢？

roych

那个不是查询，是筛选，OK？导出的话，当然得导出筛选后的数据，你在论坛搜索下“刘小军常用窗体查询”看看，印象中应该是第二个文件，看看别人是怎么处理的。

snryga

刘小军的查询导出代码如下:
Private Sub 导出_Click()
On Error GoTo Err_导出_Click

    Dim qdf As DAO.QueryDef 'qdf
    Dim strWhere, strSQL As String
   
    strWhere = Me.子窗体.Form.Filter
    If strWhere = "" Then
        '没有条件
        strSQL = "SELECT * FROM [查询1]"
    Else
        '有条件
        strSQL = "SELECT * FROM [查询1] WHERE " & strWhere
    End If
   
    Set qdf = CurrentDb.QueryDefs("查询结果")
    qdf.Sql = strSQL
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True

   
Exit_导出_Click:
    Exit Sub

Err_导出_Click:
    MsgBox Err.Description
    Resume Exit_导出_Click
End Sub

以上运用到有列表框的窗体查询中无法实现筛选后的数据导出，导出是全部数据。

但在没有列表框的窗体查询中，则能正确导出筛选后的数据。

这是怎么回事呢？

roych

snryga 发表于 2019-5-15 21:24
刘小军的查询导出代码如下:
Private Sub 导出_Click()
On Error GoTo Err_导出_Click

你要把修改后的筛选条件加到预设的查询里才能完成的。