• ベストアンサー

抽出したレコードの件数が0の場合、エラーを表示させたい。

宜しくお願い致します。 サブフォーム(レコードソースは[Q_データ]) で抽出したデータの件数が0の時、MSGBOXで「該当するデータはありません」と表示させたいのです。 >IF DCOUNT("ID","Q_データ")=0 Then >MSGBOX "該当するデータがありません" 上記を応用していままで表示させていました。 しかし、今回はサブフォームのレコードソースを 場合によって[Q_データ]だったり[Q_データ2]であったり[Q_データ3]であったりと、時と場合によって レコードソースを変更できる仕組にしてしまいました。 どのレコードソースの時にも件数が0件の場合は「該当するデータはありません」と表示させたいのですが どうすればいいでしょうか。 ちなみに全てのクエリは同じテーブルから作られています。

質問者が選んだベストアンサー

  • ベストアンサー
noname#7099
noname#7099
回答No.1

 これって、ACCESSですか? IF [サブフォーム名].SourceObject = "Q_データ" THEN IF DCOUNT("ID","Q_データ")=0 Then MSGBOX "該当するデータがありません" END IF END IF という感じに続けてはいかがでしょうか?

nekocya
質問者

お礼

ありがとうございました!助かりました!

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • palmmy
  • ベストアンサー率38% (841/2169)
回答No.2

こんなのは駄目かな? TESTはしてませんが。 Dim strRecordSource as String strRecordSource = [サブフォーム名].SourceObject IF DCOUNT("ID",strRecordSource)=0 Then   MSGBOX "該当するデータがありません" END IF

nekocya
質問者

お礼

ありがとうございました!参考になりました!

すると、全ての回答が全文表示されます。

関連するQ&A

専門家に質問してみよう