ACCESS　万能の検索フィールドを作成

万能の検索フィールド

こんにちは。伊川(@naonaoke)です。

最強の検索フォームの簡易版になるのでしょうか？

1つの検索フィールドを万能であればいいと思いませんか？

これは、ご視聴者さまからの質問になります。

問題提起

解決策

回答

・メンテナンスを考えて、ワイルドカードを使って検索フィールドを万能にする。

検索フィールドを万能にする

色々なことをWEB上で検索しましたが、今回紹介する方法がベストです。

あえて難しいコードは紹介しません。

一応サンプルファイルには、フォームを2つ用意しておきます。

検索フィールドを万能にする　作成手順その1　データベース確認

上のようなデータベースがあります。

名前、電話番号、会社名の3つのフィールドを1つの検索ボックスで検索をします。

検索フィールドを万能にする　作成手順その1　クエリを作成する

検索値というフィールドを作成します。

この検索値をワイルドカードで検索します。

検索フィールドを万能にする　作成手順その3　検索フォームを作成する

クエリについて　その7　ワイルドカードで文字列変換

2019.11.3

あいまいな言葉で、文字列を変換する こんにちは。伊川(@naonaoke)です。 本日は、ワイルドカードについて説明します。 ワイルドカードを聴いたことが無い人は、なにを言っている...

Private Sub コマンド19_Click()
DoCmd.ApplyFilter , "検索値 Like '*" & Me!検索 & "*'"
End Sub

ACCESS　findnext　レコードある限り検索

2019.12.19

レコードある限り検索する こんにちは。伊川(@naonaoke)です。 今回は、ACCESSの検索フォームについて解説します。 テーブルに同じ値がある場合です。 今までは、最初に見...

findnextは、上の記事を参照してください。

Private Sub コマンド36_Click()


Dim myRS As Recordset
    
    Set myRS = Me.RecordsetClone
    myRS.Bookmark = Me.Bookmark
    
    myRS.FindNext "検索値 Like '*" & Me!検索 & "*'"
    
    If myRS.NoMatch Then
        MsgBox "最後まで検索しました。"
    Else
        Me.Bookmark = myRS.Bookmark
    End If
    
    myRS.Close
    Set myRS = Nothing

End Sub

ここがポイント

ここがポイント

今回紹介した方法は、インチキのような方法です。もっと正当な方法があるかもしれませんが、メンテナンスを重視しました。ワイルドカードは使いこなすと便利です。

まとめ

今回のまとめ

ワイルドカードは、ACCESSを使うまで全然知りませんでした。文字抽出で困ったら、ワイルドカードを使ってみましょう。

今回のサンプルファイルは、No106です。

毎日の業務が、3時間短縮できます

わからない事を延々と考えるのは、無駄です。

• なんで作動かないの？
• もうやだ！VBAなんか嫌い！
• ネットで調べても情報がない！

必ず作動するコードが、ここにあります。

サンプルファイルの概要、個別コンサルの概要にについて

Related posts:

ACCESS　最強の検索フォームができるまで　その2 ACCESS　最強の検索フォームができるまで　その3 ACCESS　抽出データをクエリでカウント　IIf関数で整理 ACCESS　検索フォームをラジオボタンで切り替える