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

質問

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

回答No.1

fortranxp · ベストアンサー

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

お礼

ありがとうございます。