ACCESS如梦将组合框作为条件进行条件查询？即为何WHERE (((表.字段)=[Forms]![窗体1]![Combo0]))无效？

Question

如题所述

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