結果のメッセージを表示します。 Option Compare Database Option Explicit Private Sub コマンド4_Click() Dim bFind As Boolean If Nz(Me!テキスト2, "") = "" Then MsgBox ("検索文字列を入力してください") Me!テキスト2.SetFocus Exit Sub End If Me! データベースを使っていると、確実にデータの検索や抽出と言ったことが必要になります。 マイクロソフトアクセス（Access）の場合は、 クエリーという機能を使って、その機能が簡単に実現することができるのですが、その他にも方法 があります。 dcount関数とは、指定されたテーブルかクエリのフィールドから条件にマッチした個数を返します。テキストボックスに抽出条件を入力し、検索ボタンで開始します。「検索する都道府県名の一部の文字」を入力すると、入力した文字が含まれる都道府県数を返します。 では、この計算の結果がNull値の場合は 0 となるように、演算式を設定します。 Accessの関数には便利な、Null値を別の指定した値に変換できるNz関数というのがあります。 Nz関数は、2つの引数を次のように設定します。 タイトル ： レコード検索結果が0件の場合にメッセージを表示したい 記事No ： 20724: 投稿日 ： 2004/06/18(Fri) 14:24: 投稿者 ： sheep17 テキストボックスに入力した文字列を含むデータを抽出できます。例えば[顧客名]フィールドで特定の顧客を抽出したいとき、文字列を入力するだけで抽出できるので便利です。 Sub Macro1() With Range("A1") .AutoFilter 1, "田中" If 絞り込んだ結果 > 0 Then.CurrentRegion.Copy Sheets("Sheet2").Range("A1") .AutoFilter End If End With End Sub 絞り込んだ結果が何件あるかは、要するに「表示されているセルが何個あるか」です。 Igor LinkによるPixabayからの画像.