Question

我在Access 2007中有一个数据库，我目前正在使用以下代码进行文本搜索框。我的问题是，如果在搜索框中输入整个名称，它只会找到记录。在商家名称的情况下，我希望用户能够键入业务的第一个单词并检索表单上的记录。目前，如果我输入名字，则表示无法找到记录。我必须输入整个公司名称。有人可以帮我调整我需要的代码吗？

Private Sub txtsrch_AfterUpdate（）

If (txtsrch & vbNullString) = vbNullString Then Exit Sub
    Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[lastname]=""" & txtsrch & """"
If rs.NoMatch Then
    MsgBox "Sorry, no such record '" & txtsrch & "' was found.", _
           vbOKOnly + vbInformation
Else
    Me.Recordset.Bookmark = rs.Bookmark
End If
rs.Close
txtsrch = Null

End Sub

谢谢。

Answer 1

你可以：

rs.FindFirst "[lastname] Like '*" & Replace(txtsrch,"'","''") & "*'"

您可以改变通配符的位置（*表示DAO），以txtsrch开头，以txtsrch结尾，或者如图所示，名称中包含txtsrch。

如何创建一个搜索Access 2007中条件的任何部分的文本搜索框？

1 个答案: