[求助]在access里怎么实现模糊查询阿？

ctcyrgb

[求助]在access里怎么实现模糊查询阿？

onlyfish

代码如下：

Private Sub Command143_Click()

On Error GoTo Err_Command143_Click    Dim strWhere As String

   

    strWhere = ""

   

   

    If Not IsNull(Me.FINDBL) Then

        

        strWhere = strWhere & "([OBL] like '*" & Me.FINDBL & "*') AND "

    End If

   

   

   

    If Len(strWhere) > 0 Then

        

        strWhere = Left(strWhere, Len(strWhere) - 5)

    End If

   

   

    Debug.Print strWhere

   

   

   

    Me.Filter = strWhere

    Me.FilterOn = True

   

   

    Exit_Command143_Click:

    Exit SubErr_Command143_Click:

    MsgBox Err.Description

    Resume Exit_Command143_Click

    End Sub

ctcyrgb

thanks

dakota

不错啊.