帮忙看看这个IN查询错在哪?

毒舌

帮忙看看这个IN查询错在哪?

这个是按照andymark的那个例子做的,但是点击查询后,提示输入参数~但是参数已经输入了 啊~

谢谢




帮忙看看应该修改什么地方~

kangking

Private Sub Command2_Click()
Dim strText As String

If IsNull(Me.名称1) Then Exit Sub

strText = Me.名称1

Do While True
    If Len(strText) = 0 Then Exit Do
    strwhere = strwhere & ",'" & Mid(strText, 1, 1) & "'"
    strText = Right(strText, Len(strText) - 2)
Loop

strwhere = Right(strwhere, Len(strwhere) - 1)

'Debug.Print strwhere

Me.表1查询子窗体.Form.Filter = "[名称] in (" & strwhere & ")"
Me.表1查询子窗体.Form.FilterOn = True
End Sub

毒舌

谢谢楼上的回复~



但是这样的代码为什么只能查询"英文"字母啊?汉字怎么查询不了?

毒舌

Private Sub Command2_Click()
If Not IsNull(Me.名称1) Then
   StrWhere = Mid(Me.名称1, 1, Len(Me.名称1) - 1)
End If

'Debug.Print StrWhere

Me.表1查询子窗体.Form.Filter = "[名称] in (" & StrWhere & ")"
Me.表1查询子窗体.Form.FilterOn = True
End Sub


这个代码能查询数据类型为"数字"的字段~但是怎么改才能可以查询数据类型为文本的文字和字母组合啊?



这个是附件,帮忙看看,谢谢

[此贴子已经被作者于2006-11-17 18:18:06编辑过]