Question

关于在access窗体中利用组合框筛选数据？

首先我在查询里面建立了一个查询，查询条件为：出行时耗下限为0，上限为5，中区代码为1，交通方式为1至13的13个数据。
接着基于上述查询表建立一个窗体，窗体显示结果中包括需要计算，我希望能在窗体中，创建一个组合框，使我只需要输入出行时耗区间以及中区代码，然后再出来的窗体中利用建立的组合框选择交通方式分别为1至13的选项，并在窗体中显示所需信息。
如果说不清楚，你也有时间的话，能不能QQ上聊~

Answer 1

请参考多条件查询如下：
Private Sub cmdReferCdition_Click()
On Error GoTo Err_cmdReferCdtion_Click:
Dim strWhere As String

strWhere = ""
'起始日期有条件输入
If Not IsNull(Me.txtStartDate) Then
strWhere = strWhere & "([日期]>=# " & Format(Me.txtStartDate, "yyyy-mm-dd") & "#) AND "
End If
'结束日期有条件输入
If Not IsNull(Me.txtFinishDate) Then
strWhere = strWhere & "([日期]<=# " & Format(Me.txtFinishDate, "yyyy-mm-dd") & "#) AND "
End If
'部门有条件输入
If Not IsNull(Me.cobBranch) Then
strWhere = strWhere & "([部门] like '*" & Me.cobBranch & "*') AND "
End If
'投产单号有条件输入
If Not IsNull(Me.txttcdh) Then
strWhere = strWhere & "([投产单号] like '*" & Me.txttcdh & "*') AND "
End If
'测量项目有条件输入
If Not IsNull(Me.cobclxm) Then
strWhere = strWhere & "([测量项目] like '*" & Me.cobclxm & "*') AND "
End If
'型号有条件输入
If Not IsNull(Me.txtModel) Then
strWhere = strWhere & "([型号] like '*" & Me.txtModel & "*') AND "
End If
'有条件输入的时候，清楚末尾5个字符串
If Len(strWhere) > 0 Then
strWhere = Left(strWhere, Len(strWhere) - 5)
End If
'查找符合条件的记录集
Me.cldrqLCMOQC.Form.Filter = strWhere
Me.cldrqLCMOQC.Form.FilterOn = True

Exit_cmdReferCdtion_Click:
Exit Sub
Err_cmdReferCdtion_Click:
MsgBox Err.Description
Resume Exit_cmdReferCdtion_Click

End Sub

追问

有清楚一点的吗？这个看不懂 而且也不懂用啊！！

追答

这个是比较简单啊，哪里难啊。

追问

搞不懂，我就是刚自己看了一本书学得，只懂得基础的东西，这个对我来说太难了~

追答

原理很简单，就是对结果进行条件复制，然后刷新窗体，显示符合条件的记录，
代码上的是多条件查询。

追问

代码写哪里啊，没写过，还有，上面代码全部输入吗？要改的是哪些？

追答

画一个按钮，然后填入代码。

Answer 2

没搞明白的问题在哪...
qq148070452