窗体查询的联合查询，同时在几个文本框和组合框里查询筛选

小小99　发表于：2014-04-21 10:45:20 　

Private Sub Command59_Click()
Dim str As String
str = ""
If Not IsNull(Me.名称) Then
str = str & "([名称] LIKE '*" & Me.名称 & "*') AND "
End If
If Not IsNull(Me.规格) Then
str = str & "([规格] LIKE '*" & Me.规格 & "*') AND "
End If
If Not IsNull(Me.单位) Then
str = str & "([单位] LIKE '*" & Me.单位 & "*') AND"
End If
If Not IsNull(Me.标志) Then
str = str & "([标志] LIKE '" & Me.标志 & "') AND"
End If
If Not IsNull(Me.部门) Then
str = str & "([部门] LIKE '" & Me.部门 & "') AND"
End If
If Not IsNull(Me.开始日期) Then
str = str & "([日期] >= # " & Format(Me.开始日期, "YY-MM-DD") & "#) AND"
End If
If Not IsNull(Me.结束日期) Then
str = str & "([日期]<= # " & Format(Me.结束日期, "YY-MM-DD") & "#) AND"
End If
If Not IsNull(Me.数量开始) Then
str = str & "([数量]>=" & Me.数量开始 & ") AND "
End If
If Not IsNull(Me.数量结束) Then
str = str & "([数量]<=" & Me.数量结束 & ") AND"
End If
If Len(str) > 0 Then
str = Left(str, Len(str) - 5)
End If
'Debug.Print strWhere
Me.Child32.Form.Filter = str
Me.Child32.Form.FilterOn = True
只能单独查询名称可规格等，不能同时联合查询筛选名称和规格等，运行后出现

这们的问题

Top

落尘_小新发表于：2014-04-21 14:05:35

问题出在字符串写法上

由于这一句 str = Left(str, Len(str) - 5) 决定了最终的字符串要去掉最后的几个字符.也就是去掉"AND"及前后的两个空格.

而有几个 AND 的后面少了一个空格(黄色背景的那几句),这样最终得到的结果就会少一个")"小括号字符.这样就会出错.

修改后如下:
Dim str As String

str = ""
If Not IsNull(Me.名称) Then
str = str & "([名称] LIKE '*" & Me.名称 & "*') AND "
End If
If Not IsNull(Me.规格) Then
str = str & "([规格] LIKE '*" & Me.规格 & "*') AND "
End If
If Not IsNull(Me.单位) Then
str = str & "([单位] LIKE '*" & Me.单位 & "*') AND "
End If
If Not IsNull(Me.标志) Then
str = str & "([标志] LIKE '" & Me.标志 & "') AND "
End If
If Not IsNull(Me.部门) Then
str = str & "([部门] LIKE '" & Me.部门 & "') AND "
End If
If Not IsNull(Me.开始日期) Then
str = str & "([日期] >= # " & Format(Me.开始日期, "YY-MM-DD") & "#) AND "
End If
If Not IsNull(Me.结束日期) Then
str = str & "([日期]<= # " & Format(Me.结束日期, "YY-MM-DD") & "#) AND "
End If
If Not IsNull(Me.数量开始) Then
str = str & "([数量]>=" & Me.数量开始 & ") AND "
End If
If Not IsNull(Me.数量结束) Then
str = str & "([数量]<=" & Me.数量结束 & ") AND "
End If
Debug.Print str
If Len(str) > 0 Then
str = Left(str, Len(str) - 5)
End If
Debug.Print str
Me.Child32.Form.Filter = str
Me.Child32.Form.FilterOn = True

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

窗体查询的联合查询，同时在几个文本框和组合框里查询筛选