0

Access 2007 にデータベースがあり、現在、テキスト検索ボックスに次のコードを使用しています。私の問題は、検索ボックスに名前全体を入力した場合にのみレコードが検索されることです。ビジネス名の場合、ユーザーがビジネスの最初の単語を入力して、フォームのレコードを取得できるようにしたいと考えています。現在、名を入力すると、レコードが見つからないと表示されます。会社名全体を入力する必要があります。誰かがこのコードを必要に応じて調整するのを手伝ってくれますか?

プライベート サブ 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

サブ終了

ありがとうございました。

4

1 に答える 1

0

あなたはできる：

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

txtsrch で始まる、txtsrch で終わる、または図のように名前に txtsrch を含むワイルドカード (DAO の場合は *) を配置する場所を変えることができます。

于 2012-03-06T15:00:24.120 に答える