模糊查询的功能

copycopy0323

我需要在access里面做个模糊查询的功能

如图：

我的数据库里面有300多个缺陷描述，为了查找的时候方便，我想通过第一个文本框，点"Search"模糊查询。缩小我在Defect栏中，下拉框数据的范围。就是这样功能。

在网上找了一段程序，不过好象有错，大侠们能不能帮我看看什么问题。01Defect是我的缺陷库，text6是模糊查询的那个文本框

Private Sub Command8_Click()

    Dim rsTemp As Recordset
    Dim dbTemp As Database
    Dim astr As String
   
    Set dbTemp = DBEngine(0).OpenDatabase("D:\work\Once inspection situation\Once inspection situation.mdb", _
dbOpenSnapshot)
    astr = "SELECT [Defect] FROM [01Defect] WHERE Defect LIKE '*text6*'"
    Set rsTemp = dbTemp.OpenRecordset(astr)
    If rsTemp.RecordCount > 0 Then
        rsTemp.MoveFirst
        Do Until rsTemp.EOF
            Defect.Requery rsTemp![Defect]
            rsTemp.MoveNext
        Loop
    End If

End Sub

tz-chf

文件上来

copycopy0323

文件上来了。

copycopy0323

楼上那位朋友呢?可否指点一下

tz-chf

看下

copycopy0323

貌似查询时报错阿。。。

asklove

“text6是模糊查询”
想通过查询[01Defect]表中[Defect type]字段，从而来缩小[Defect]组合框的下拉内容？
如果是这样的话(假设是查询[Defect type]，如是查询[Defect]的话，只是条件不同)
[Defect]行来源：
SELECT [01Defect].Defect
FROM 01Defect
WHERE ((([01Defect].[Defect type]) Like "*" & [forms]![data].[data2 subform].[form]![text6] & "*"));

chaojianan

参考下

copycopy0323

谢谢，搞定了！！