请帮我修改一个这个查找代码

何锋　发表于：2009-03-13 16:49:50 　

我在做一个系统，就是界面中进入后，按查找按钮，跳出来的窗体中，输入其中几个条件，能够筛选出指定的内容，请问如何实现，谢谢！

何锋发表于：2009-03-13 20:56:16

请高手帮帮忙拉！谢了！

赵文斌发表于：2009-03-13 21:14:15

If Not IsNull(Me.车号) Then
            strWhere = strWhere & "([车号] =' '*'& Me.车号 & '*') AND "

        End If
多了引号。"([车号] ='*" & Me.车号 & "*')

天行健客发表于：2009-03-13 21:50:05

Me.frmRenYuanBianDongMingXiSub.Form.Filter = "个人编号=" & "'" & Me.个人编号 & " ' "
Me.frmRenYuanBianDongMingXiSub.Form.FilterOn =

天行健客发表于：2009-03-13 22:07:44

Dim strWhere As String
strWhere = "沪A89969"
Forms.车辆信息.车辆信息_child.Form.Filter = "车号=" & "'" & strWhere & " ' "

Forms.车辆信息.车辆信息_child.Form.FilterOn = True

何锋发表于：2009-03-13 22:21:08

放在主窗体中运行,好象还是报错,找不到指定对象!怎么办呀,

天行健客发表于：2009-03-14 01:20:40

我的测试方法为：启动窗体“车辆信息”，然后点击“查找”，然后输入“车号”值，即可筛选出相应的车号。
你的启动窗体，设定为控制面板，如果要在控制面板中使用查找，更换代码中相应的窗体名称即可，但是，你的控制面板中的child0子窗体，好像有其他设置，不能筛选，我也看不出来，你仔细找找，

何锋发表于：2009-03-14 20:15:10

是的，用“车辆信息”窗体确实能够筛选，但放到控制面板中的child0子窗体中使用，就不行，不知道我是不是表达错误！。。。真的很郁闷！

何锋发表于：2009-03-14 22:16:01

有办法拉，是表达有问题，应该是

Forms!主控面板.Child0.Form.车辆信息_child.Form.Filter = strWhere
Forms!主控面板.Child0.Form.车辆信息_child.Form.FilterOn = True

这样就可以了！

同时感谢各位的热心帮忙！

再附个问题，例子中的时间限定好象我没写对，谁帮忙看看！

青苹发表于：2009-03-15 22:29:07

看看，这是不是你要的

何锋发表于：2009-03-16 19:31:18

对了！就是这个意思，非常感谢！

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

Access交流中心