选项卡模糊查找

王萌萌　发表于：2013-03-05 10:54:43 　

复制

我想在选项卡中进行模糊查找，是否可以实现。

Top

煮江品茶发表于：2013-03-05 12:29:29

可以

Top

麥田发表于：2013-03-06 13:39:07

选项卡也只是个工具模糊查询做好了可以放在选项卡控件里面的

Top

王岚发表于：2013-03-08 11:57:45

我上传了例子。要求是在三个选项卡中同时查找，输一个关键字后能同时在三个选项卡中显示结果。谢谢。��ش˸��

Top

殷小宝发表于：2013-03-08 12:14:50

查询条件为：

strwhere = Trim$(Me.关键字.Text)
If Len(strwhere) > 0 Then
strwhere = " [ID] & [外出人] & [外出时间] & [外出日期] & [返回时间] & [地点] & [车牌号] & [驾驶员] & [请假人]" _
& " & [请假时间起] & [请假时间止] & [请假天数] Like '*" & strwhere & "*'"
End If

Top

王岚发表于：2013-03-08 14:21:08

好像查不了，能改在附件里吗?

Top

殷小宝发表于：2013-03-09 12:13:32

Private Sub 关键字_Change()
Dim strwhere As String
strwhere = Trim$(Me.关键字.Text)
If Len(strwhere) > 0 Then
If Me.选项卡控件2.Value = 0 Then
strwhere = " [ID] & [外出人] & [外出时间] & [返回时间] & [地点] Like '*" & strwhere & "*'"
Me.出门申请明细.Form.Filter = strwhere
Me.出门申请明细.Form.FilterOn = True
ElseIf Me.选项卡控件2.Value = 1 Then
strwhere = " [ID] & [外出人] & [外出日期] & [车牌号] & [驾驶员] Like '*" & strwhere & "*'"
Me.派车申请明细.Form.Filter = strwhere
Me.派车申请明细.Form.FilterOn = True
ElseIf Me.选项卡控件2.Value = 2 Then
strwhere = " [ID] & [请假人] & [请假时间起] & [请假时间止] & [请假天数] Like '*" & strwhere & "*'"
Me.请假申请明细.Form.Filter = strwhere
Me.请假申请明细.Form.FilterOn = True
End If
ElseIf Me.选项卡控件2.Value = 0 Then
Me.出门申请明细.Form.Filter = ""
Me.出门申请明细.Form.FilterOn = False
ElseIf Me.选项卡控件2.Value = 1 Then
Me.派车申请明细.Form.Filter = ""
Me.派车申请明细.Form.FilterOn = False
ElseIf Me.选项卡控件2.Value = 2 Then
Me.请假申请明细.Form.Filter = ""
Me.请假申请明细.Form.FilterOn = False
End If

End Sub

具体请看附件点击下载此附件

Top

殷小宝发表于：2013-03-09 12:16:00

查询子窗体需子窗体获得焦点方能查询，所以三个子窗体同时查询不行。

Top

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

Access交流中心

选项卡模糊查找