• ベストアンサー

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

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

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

  • ベストアンサー
  • fortranxp
  • ベストアンサー率26% (181/684)
回答No.1

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

yamadachan
質問者

お礼

ありがとうございます。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ActiveReportについて

    いつも参考にさせていただいてます。 現在、ActiveReport　3.0+VB2005で帳票作成を行っていて、帳票はPDF出力を目的としています。(ASP等使っていない) 帳票にはロゴマークをPictureに画像として貼っているのですが、PDF出力の際にこの画像のみを拡大・縮小することは出来るのでしょうか？ (他のテキストボックス等の大きさはそのままで) それとも、画像の大きさを変えたものを用意し、その数量だけ帳票を作る必要があるのでしょうか？ 一応、ソフトに付属するサンプルやヘルプは見たのですが、いまいち分からなくて困っています。 (コンポーネントソフトということもあって詳しいサイトもないようです) もし、出来るのであれば具体的なソース等乗っけてもらえると助かります。 また、出来なくてもそのことを教えていただくだけでも助かります。 よろしくお願いいたします。

  • ActiveReportについて

    いつも参考にさせていただいてます。 VB6.0での開発でActiveReport1.5Jを使用して帳票を作成しているのですが、プレビュー画面の出力結果と、実際に用紙に出力した出力結果とでは罫線のズレが生じました。 プレビュー画面に罫線を合わすと用紙の方がズレ、用紙の方で合わすとプレビュー画面の方がズレます。 これはActiveReportのバグなのでしょうか？それともプリンタのドライバが最新ではないからでしょうか？ このような経験をされた方がいらっしゃったら、対処法をご教授お願いしいたします。

  • ActiveReportへの出力に関して

    MySQL、C#を用いてActiveReportへ帳票を出力しようとしていますが、以下のＵＲＬ を参考に、デザイン連携でMySQLから帳票のプレビューまで表示できるようになりましたが、 その後、仮に条件分岐のように、フラグ=1　の時は"○"のような加工をしたいと考えて いますが、どのようにすれば良いでしょうか？？？ 《ＵＲＬ》 　http://d.hatena.ne.jp/Yamaki/20091118/1258535910 単純にあるテキストエリアの値を○等の操作をしたいと考えていますが、それをテーブルの 情報をもとにして操作したいと考えています。 ActiveReportのヘルプ等で確認しましたがわからず、、、 そもそも上記のようにデザイン連携した値をソース上で操作するにはどのように記述したら 良いのでしょうか。。。 初歩的な質問で申し訳ありませんが、教えて下さい。 よろしくお願いします。

  • VB6でActiveReport1.5Jを使って2列印字を実現するには

    初めまして！開発におきまして、以下の経験を されている方がおられましたらご指導をお願い 致します。又、実現可能な案がありましたら ご意見をお願いいたします。 今回、ActiveReportでしたい事ですが、 ------------------ 　　------------------- 　|項目A|項目B|項目C| 　　　|項目A|項目B|項目C| ------------------ 　　------------------- 　　　　・　　　　　　　　　　　　　　　・ 　　　　・　　　　　　　　　　　　　　　・ 　　　　・　　　　　　　　　　　　　　　・ 　　　　・　　　　　　　　　　　　　　　・ 　　　　・　　　　　　　　　　　　　　　・ 　　　　・　　　　　　　　　　　　　　　・ このような帳票イメージ（2列）でデータを 印字し出力したいと思っております。 1ページの明細行は固定にします。 上記のような帳票を出力するにはどういった 処理をVB側、ActiveReport側でしてやらないと いけないのでしょうか？ActiveReportの プロパティを使って出来るものなのでしょうか？ お手数ですがご指導を宜しくお願いいたします。

  • オフコンのデータをVBに組み込みたいんですが。

    こんばんは。 VB(VB-Report)を実行させてそこからF*TRANを動かし、オフコンのデータをCSVファイルに変換して、それをエクセルで帳票印刷したいんですが、そのデータをどのようにVBに組み込んで帳票印刷まで持っていったらいいのか全く分かりません。 参考書などを読んだり、サイトを探したりしているのですが、なかなか見つけることができません。 何か参考になる本やサイトをご存知の方、教えていただけないでしょうか？ よろしくお願い致します。

  • access2000で列数によって違うページに

    初心者にて畏れ入ります。 Access2000で帳票を作成してます。 フォームのリストボックスで選択されたクラスによって 異なるSQLを発行し、 レポートに取り込みたいのですが、方法がわかりません。 (1)SQLはどのタイミングで発行し、どうレポート渡すのでしょうか？ 　コンボボックスのイベントでレポートのオープンはできますが、 　ここでSQLを発行したとしても、どうレポートに渡せばいいか 　分かりません。 (2)取得した行につき１ページのレポートにしたいのですが、 (３行なら１行目は１ページ目など、３ページにしたい） どう設定すればよいでしょうか？ ・フォームのデザインは同じものを使用します。 ・テーブルはたとえば以下のようなものです。 table A(クラス　名前　点) A　a 100 B b 80 B c 50 B d 80 A e 60 畏れ入りますが、よろしくお願いします。

  • ～の文字化けについて

    件名通りですが、帳票印刷時、「～」が文字化けして「？」で表示されてしまいます。 VB6で印刷はActiveReportを使用しています。 「～」の文字化けや他の文字化けはみなさんどのように対応しているのでしょうか？

  • アクティブレポートを使ってDBのデータを帳票出力させています。

    お世話になります。 現在、VB.NET2008上でアクティブレポートを使って帳票作成をしています。 仕事の都合上、アクティブレポートやSQLはぶっつけ本番状態で学んでいるのでかなりの初心者なのですが、ネット上で探しても探し方が悪かったのか、同じような記事を見つけられなかったので、質問させていただきます。 やりたい事は、コードだけが入っているテーブルと、そのコードとコードに対する名前が入っているテーブルを関連付けて、帳票に名前を載せるということなのですが、今、困っているのは、同じテーブルから、区分が違うデータを取りだすという事です。 説明がうまく出来ませんが・・・ テーブル1 ---------------------- ｜区分｜コード｜名前　｜ ---------------------- ｜01　｜001　 ｜Ａ会社｜ ｜01　｜002　 ｜Ｂ会社｜ ｜01　｜003　 ｜Ｃ会社｜ ｜02　｜01　　｜商品Ａ｜ ｜02　｜02　　｜商品Ｂ｜ ｜02　｜03　　｜商品Ｃ｜ ---------------------- ここから、「Ｂ会社」の「商品Ｃ」を帳票に出そうとしています。 今までは1つのテーブルから1つの情報だけ取り出していたので SELECT * FROM テーブル1 WHERE 区分='01' AND コード='指定のコード' と言ったような書き方でやっていて、アクティブレポートのデータフィールド部分には「名前」と列名を設定させてきました。 今回このような場合、どういう風にSQLを書けばいいのか、アクティブレポートでどう設定すればいいのかまったく分からないので、ご指導をお願いしたいと思っています。

  • ActiveReportエラー　印刷できない

    簡単なフリーの販売管理ソフトを探していてベクターからあるソフトをダウンロードしました。 仕組みはよくわかりませんがMicrosoft SQL Server Desktop Engine(MSDE)というのを使用したソフトで、とりあえず説明にしたがってインストールをしてみました。 MSDEのインストールの際に、「MSDEフォルダ内のINSTALL.BATを実行すると再起動の指示メッセージが出るので「はい」を選択。表示されない場合は手動で再起動」との記載があり、表示されなかったので手動で再起動しました。 その後も説明通りに操作し、インストールできたのですが起動しませんでした。 たしか"SQL Server エラー　4060"と出て、ネット検索で色々調べましたがよくわからず、"MSDE"というのがうまくインストールされていないのではないかと思い、MSDEフォルダ内のINSTALL.BATを再度クリックしても"指名されたインスタンス名が無効です"と出て何も変わりませんでしたので、一度アンインストールし、はじめからやり直してマイクロソフトから直接MSDEをダウンロードしてみました(適当な判断です) するとなぜか起動は出来たのですが、ある程度データを入力し、納品書を印刷しようとしたところ、 "ActiveReportエラー Error 5000 : レポート処理中のエラー 詳細情報:ファイル 'WorkDB.mdb' が見つかりませんでした。" というエラーが出て印刷できませんでした。 他の集計などのデータは印刷できたのですが・・・ このエラーはどうすればいいということなのでしょうか？ あとこのソフトはAccessを使用して動いているのでしょうか？ Accessは2003、XPです。 その他必要な情報あれば追加いたします。

  • VB.net　変数を動的にできませんか？

    わかる方ならすぐに回答いただけるものなのかもしれませんが 初心者でよろしくお願いします。 ActiveReportを使って帳票を作成しています。 質問自体は直接的に関係がないかもしれません。 ---------------------------------------- Dim report01 As New rptList() Dim report02 As New rptList() Dim report03 As New rptList() 'レコードがあれば印刷 If xxx.Count <> 0 Then report01.Run() End If If xxx.Count <> 0 Then report02.Run() End If If xxx.Count <> 0 Then report03.Run() End If 'ドキュメントマージ report01.Document.Pages.AddRange(report02.Document.Pages) report01.Document.Pages.AddRange(report03.Document.Pages) p.Export(report01.Document, m_stream) ---------------------------------------- データがあったものだけを印刷し、 最終的にマージして１つの帳票として出すのですが、 「データがあったとき」だけなので 最後のマージの部分のマージ元になる帳票名と （今はreport01です） あと追加する帳票が動的に変化してしまいます。 これを解決するためにはどうしたらよろしいでしょうか？ やることは簡単なのにできない自分がいます。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する