Office中国论坛/Access中国论坛

标题: 模糊查询的功能 [打印本页]

作者: copycopy0323 时间: 2009-12-25 10:54
标题: 模糊查询的功能
本帖最后由 copycopy0323 于 2009-12-25 10:55 编辑

我需要在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 时间: 2009-12-25 11:26
文件上来

作者: copycopy0323 时间: 2009-12-25 12:43
文件上来了。

作者: copycopy0323 时间: 2009-12-25 14:05
楼上那位朋友呢?可否指点一下

作者: tz-chf 时间: 2009-12-25 16:15
看下

作者: copycopy0323 时间: 2009-12-26 12:36
貌似查询时报错阿。。。

作者: asklove 时间: 2009-12-26 14:18
“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 时间: 2009-12-28 17:41
参考下

作者: copycopy0323 时间: 2009-12-30 09:31
谢谢，搞定了！！

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