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

snryga

如何将列表框和文本框（或组合框）混合在一起查询子窗体，请大侠帮忙改写一下查询语句？谢谢！！！

附件中前3个是列表框，最后一个是文本框。

roych

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

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

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

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

snryga

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

这个需要怎么整呢？

snryga

谢谢！！！

roych

snryga 发表于 2019-5-13 23:33
再问一个问题，如果是在查询中参数查询条件。在窗体代码中就只需一句进行更新语句，查询中条件如下：
Like ...

建议统一吧。
要么用查询，要么有筛选（这个例子用的是筛选），而不要混着用。虽然从程序的角度来看，这并不存在做不到的情况，但从业务逻辑理解上来看，很容易引起混乱。

snryga

再问一个问题，如果是在查询中参数查询条件。在窗体代码中就只需一句进行更新语句，查询中条件如下：
Like IIf(IsNull([Forms]![统计]![型号]),'*','*' & [Forms]![统计]![型号] & '*')

如果是这样，那么在窗体中又要使用“列表框”，该如何写代码呢？

snryga

这个还真是抄的

roych

snryga 发表于 2019-5-13 09:07
If Me.使用单位.ItemsSelected.Count > 0 Then
        Set ctl = Me.使用单位
        strWhere = ""

你放if里面是几个意思？不是应该另起一行直接判断文本框的吗？看来你并没有理解这段代码啊（不会是抄别人的吧？）。