Office中国论坛/Access中国论坛

标题: 如何实现这样的查询? [打印本页]

作者: bonne 时间: 2006-9-18 07:01
标题: 如何实现这样的查询?
[attach]20380[/attach]

希望查询"编号"为1,2,4,9 四条记录里"内容"为a的记录

比如说可以设定一个分号 ; 为分隔符号

在编号里输入1;2;4;9 内容里输入a点击查询后,从这四条记录中筛选出满足条件的记录

作者: andymark 时间: 2006-9-18 08:09
Dim StrWhere As String
StrWhere = "[编号] in (" & Me.编号 & ")"
StrWhere = StrWhere & " and [内容]='" & Me.内容 & "'"
Me.表1_子窗体.Form.Filter = StrWhere
Me.表1_子窗体.Form.FilterOn = True

作者: wwwwa 时间: 2006-9-18 16:55
加入分隔符号文本框，比如为文本7

TRY：

Dim StrWhere As String
DD1 = ""
DD = Split(Me.编号, Me.文本7)
For I = LBound(DD) To UBound(DD)
DD1 = DD1 & DD(I) & ","
Next
DD1 = Mid(DD1, 1, Len(DD1) - 1)
StrWhere = "[编号] in (" & DD1 & ")"
StrWhere = StrWhere & " and [内容]='" & Me.内容 & "'"
Me.表1_子窗体.Form.Filter = StrWhere
Me.表1_子窗体.Form.FilterOn = True

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)