ActiveReportでデータが0件の場合・・・

VB6、ActiveReport2.0を使用しています。
フォームのボタンが押下された時に、帳票を発行するプログラムを作成しています。
rptXXX.PrintReport Falseにて印刷しているのですが、
表示するデータはrptXXXのActiveReport_DataInitializeでSQLを作成し、DataControlのSourceに渡してます。
このSQLを作成した時データが0件ならレポートの印刷をしないようにしたいのですが、記述の仕方がわかりません。
お分かりになる方いましたらアドバイスお願いします。

No.1 ベストアンサー 回答者： fortranxp 回答日時： 2006/06/02 15:18

if Adodc1.Recordset.RecordCount=0 _

　　then Command1.enabled=False
　　MsgBox"データがありません。"
ActiveReport2.0に関係なく行けそうですが。

この回答へのお礼

ありがとうございます。

お礼日時：2006/06/19 11:39