クエリ「あいまい検索」該当レコードなし時の設定

質問

［質問素材の作成環境］ソフト名：Access2007になります。

［やっていること］
１，クエリの「抽出条件欄」に下記の「パラメータ」を記述してフリー検索できる様にしています。「Like "*" & [情報検索「食材・メニュー・一文字可」] & "*"」

２，フォーム「レシピ食材情報フォーム」の「レコードソース」欄に、クエリ「レシピ食材情報クエリ」を設定しています。「生活情報メインフォーム」上のコマンドボタンで「検索キーワード入力窓」を表示させ、入力後に「レシピ食材情報フォーム」が起動し検索結果を表示しています。

３，オブジェクトの構成
・テーブル：名前「レシピ食材情報テーブル」（レコード：ＩＤ、種類、種別、内容、情報）
・フォーム：名前「生活情報メインフォーム」
・フォーム：名前「レシピ食材情報フォーム」
・クエリ：名前「レシピ食材情報クエリ」（レコード：ＩＤ、種類、種別、内容、情報）
・検索条件レコード：情報

［困りごと（希望）］
ヒットしない時「該当するレコードがない時」、何の活字も表示されない無地のフォームで起動しますので、「該当するレコード」がないときは無地の「レシピ食材情報フォーム」を開かず、ダイアログメッセージで「該当データがありません」”が表示できればと思います。

［やりたいこと（期待）］
ダイアログ「コマンドボタン付き」でメッセージを表示して、ダイアログの「コマンドボタン」をクリックすると、「生活情報メインフォーム」を元に戻して「検索動作」が可能になる様にしたいと思います。※現在は、「生活情報メインフォーム」のコマンドボタンをクリックし「レシピ食材情報フォーム」を表示させた時点で、「生活情報メインフォーム」は最小化しています。要望が難しい場合は、「生活情報メインフォーム」を最小化しない方法を視野に入れます。

以上ですが、難易度が分からないでアドバイスを求めています点、ご理解をお願いします。

回答No.1

chie65535 · ベストアンサー

http://www.accessclub.jp/bbs3/0329/superbeg99652.html
の記事を参考に、表示すべきレコードが無い場合の対処をして下さい。

お礼

chie65535　レベル14様へ
質問させていただいた時点での環境が得られて居りますので、補足コメントせずにお礼申し上げるのが筋でした。お尋ねすることがあれば、新たな質問として投稿いたします。ありがとうございました。

補足

chie65535 レベル14様へ　 取り急ぎ状況をご案内いたします。

以下の記述を「レシピ食材情報フォーム」の読み込み時に書き込みました。結果は、「生活情報メインフォーム」は開きませんでしたが、該当するレコードが無いと「レシピ食材情報フォーム」は表示されず、Msgboxの文言は正常に表示され、「生活情報メインフォーム」が開かない以外に動作に問題はありませんでした。

Private Sub Form_Load()
Dim IntR As Variant
IntR = Me.Recordset.RecordCount
If IntR = 0 Then
Forms.レシピ食材情報フォーム.Visible = False
MsgBox ("登録された情報はありません")
DoCmd.Close acForm, "レシピ食材情報フォーム"
Docmd.OpenForm "生活情報メインフォーム"
End If
End Sub

そこで、マクロの設定（下記）のIとIIの「（2）と（3）」を一旦削除しました「質問時点の記述に選択肢としていた経緯もあり」。

［マクロの初期設定］
I、「生活情報メインフォーム」コマンドボタンの設定
（1）フォームを開く：レシピ食材情報フォーム
（2）オブジェクトの選択：生活情報メインフォーム
（3）最小化
II、「レシピ食材情報フォーム」の閉じるボタンの設定
（1）閉じる：レシピ食材情報フォーム
（2）オブジェクトの選択：生活情報メインフォーム
（3）元のサイズに戻す

あくまでも希望ですが、もし、可能であれば「"生活情報メインフォーム"」の最小化と「"生活情報メインフォーム"」の元に戻せればと思います。

ご判断の程、宜しくお願いします。

回答No.3

chayamati

検索キー情報検索「食材・メニュー・一文字可」 は別のフォームに配置しますのでフォーム名で修飾する必要があります。
「Like "*" & forms!生活情報メインフォーム[情報検索「食材・メニュー・一文字可」] & "*"」

お礼

chayamati レベル12様へ
ありがとございます。ご親切に対応いただきまして、貴方様の気持ちが伝わります。ありがとうございました。

回答No.2

chayamati

今日は。
「Like "*" & forms!生活情報メインフォーム[情報検索「食材・メニュー・一文字可」] & "*"」

補足
前回 回答の 追加です。
2.クエリデザイン
クエリはフォーム、レポートに内蔵させる事が出来るので一時的に使用するものと思います。
[作成]→[クエリデザイン]でクエリのデザイン画面になります。
※画面は上下2段になっています。上段に使用する元データを下段にフィールド名に配置します
→[外国人情報、Shift+分類マスタ]→[追加]→[閉じる]
※これでここで使用するテーブルがかくてします、次に必要なフィールドを一つ一つドラッグ
→[国地域マスターの国地域名とフリガナをドラッグ]→[分類マスタの分類名をドラッグ]
→[外国人情報の情報をドラッグ]
※表示の並び順と表示コントロール
→[フリガナの並べ替え行の右端クリックから昇順]→[フリガナの表示行のチェック外す]
※抽出条件設定
抽出条件の記入行は複数行あり同一行で記述するとand条件違う行で記述するとor条件
記述は各フィールド列で=[国地域名]のように記述　[]内の名前のボックスがアクティブ（開いている）」
検索内容は．事前に確定している必要から、ボックスをフォーム名で修飾します。
forms!メニュー![国地域名]
尚あいまい検索はLike [地域頭] & "*"
の追加です

お礼

chayamati レベル12様へ
ありがとございます。追っかけで対応いただきまして感謝いたします。私の方が通常のレスポンスで追従できていない証拠ですね。ありがとうございます。