文本框“喜欢”搜索

时间:2011-03-10 15:34:00

标签: ms-access search textbox access-vba

我有一个表单,我想搜索包含输入到文本框中的内容的任何内容。现在,搜索只会获取完全匹配的数据(即MDD),但我希望它能自动捕获包含搜索项目的任何内容(即*MDD*

理想情况下,我希望用户输入他们搜索的内容并获取包含该搜索的内容。

我写的代码(部分有效)是:

`

If Me.tbIni = "" Or IsNull(Me.tbIni) Then
    stCriteria = ""
Else
        If InStr(1, Me.tbIni, "LIKE ") Then
        stCriteria = "CURQCDB.DT_ini '" & Me.tbIni & "'"
    Else
            stCriteria = "CURQCDB.DT_ini = '" & Me.tbIni & "'"

非常感谢帮助。

2 个答案:

答案 0 :(得分:1)

只需搜索*MDD*而不是MDD

答案 1 :(得分:1)

请尝试以下方法。我也冒昧地对输入进行了消毒,以便正确处理双引号和单引号:

If Me.tbIni = "" Or IsNull(Me.tbIni) Then
    stCriteria = ""
Else
    stCriteria = "CURQCDB.DT_ini LIKE ""*" & Replace(Me.tbIni, """", """""") & "*"""
End If