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

質問

宜しくお願い致します。

サブフォーム(レコードソースは[Q_データ])
で抽出したデータの件数が0の時、MSGBOXで「該当するデータはありません」と表示させたいのです。

＞IF DCOUNT("ID","Q_データ")=0 Then
＞MSGBOX "該当するデータがありません"

上記を応用していままで表示させていました。
しかし、今回はサブフォームのレコードソースを
場合によって[Q_データ]だったり[Q_データ2]であったり[Q_データ3]であったりと、時と場合によって
レコードソースを変更できる仕組にしてしまいました。
どのレコードソースの時にも件数が0件の場合は「該当するデータはありません」と表示させたいのですが
どうすればいいでしょうか。

ちなみに全てのクエリは同じテーブルから作られています。

回答No.1

noname#7099 · ベストアンサー

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

お礼

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

回答No.2

palmmy

こんなのは駄目かな？
TESTはしてませんが。

Dim strRecordSource as String
strRecordSource = [サブフォーム名].SourceObject
IF DCOUNT("ID",strRecordSource)=0 Then
　　MSGBOX "該当するデータがありません"
END IF

お礼

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