帮忙看看如何实现他的模糊查询，清除功能

小蓓

帮帮忙吧，我已经为此烦恼了半天了，试了半天还是不行，帮我看一下吧，附件里是做的简单例子，希望能看出点什么来，拜托了

小蓓

现在可以用了，谢谢啊。

sgrshh29

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click
       Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.地区) Then
         strWhere = strWhere & "[地区] like '" & "*" & Me.地区 & "*' And"
    End If
If Not IsNull(Me.公司名称) Then
          strWhere = strWhere & "[公司名称] like '" & "*" & Me.公司名称 & "*' And"
    End If
     If Not IsNull(Me.公司地址) Then
          strWhere = strWhere & "[公司地址] like '" & "*" & Me.公司地址 & "*' And"
    End If
     If Not IsNull(Me.联系人) Then
           strWhere = strWhere & "[联系人] like '" & "*" & Me.联系人 & "*' And"
    End If
     If Not IsNull(Me.联系方式) Then
           strWhere = strWhere & "[联系方式] like '" & "*" & Me.联系方式 & "*' And"
    End If
     If Not IsNull(Me.机型) Then
           strWhere = strWhere & "[机型] like '" & "*" & Me.机型 & "*' And "
    End If
     If Not IsNull(Me.出厂机型) Then
           strWhere = strWhere & "[出厂机型] like '" & "*" & Me.出厂机型 & "*' and"
    End If
           strWhere = Left(strWhere, Len(strWhere) - 4)
           Debug.Print strWhere
    '让子窗体应用窗体查询
    Me.资料查询子窗体.Form.Filter = strWhere
    Me.资料查询子窗体.Form.FilterOn = True
   
Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd查询_Click
   
End Sub
试试看？

[此贴子已经被作者于2005-12-7 17:14:51编辑过]

小蓓

谢谢啊，我改了，还有点问题，该怎么改呀。

sgrshh29

1、你的每一句strWhere = strWhere & ................中尾巴少了 & "and" 你再仔细对照原来论坛上的代码改一下
2、把这句  Me.资料查询子窗体.Requery 改为  Me.资料查询子窗体.Form.FilterOn = False

小蓓

问题还没有完全解决，请大家再帮帮忙呀。还有他到底改了什么地方呀。拜托了。

Dragxixi

我也是菜鸟！我知道哪里有问题，但不会改！

如过是我，就用 select  ...from ....where 了！

小蓓

是呀，还有，如果同时输入两项的话，也会出错，该如何修改才好呢

一点通

没有输入数据时,按查找键还会出错

小蓓

对了，为什么说没有完全解决呢，我把正式的表重新导入后，重新建立关系，还能用呀。告诉我一下好吗？谢谢了。