![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e6f04cf)
開発環境
windows2000 SP3
visualbasic6.0 SP5
crystlreport8.0
今クリスタルレポート8で
アクセスのMDBのテーブルの中身を
レポートに出力しています。
テーブルの中身には
Aグループ Bグループ Cグループ
の3つが全て入っているとして
VBからクリスタルレポートを出力する際に
ワークテーブルに全レコードが入った状況で
クリスタルレポートに出力する際に
Aグループだけを出力させたいのですが
そのようなことは可能でしょうか?
可能であれば方法を教えて下さいませんでしょうか?
Formulaというのをちらっと耳にしたのですが
何のことやら・・・涙
元のワークテーブルに対象のレコードだけを
入れておいて全件出力すればよい話なのですが
それは今できない状態です。
よろしくお願いします。
No.4ベストアンサー
- 回答日時:
他の質問を見ました。
APIを使用して、帳票を出力されているのですね。
私の場合、ビューワーコントロールやオブジェクトを宣言することにより出力してますので、以下の私の回答とはそもそも出力の方法が違うようですね。
少なからず、出力方法は違いますが、私の場合、以下の方法で問題なく目的を達成しております。
他の方からの回答をご期待下さい。
この回答への補足
http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/00 …
ここの表にはない
SelectionFormulaに対応するAPIが分かれば何とかなりそうですが。。。
どなたか知らないでしょうか。
何度も回答ありがとうございます!!!
ビューワーコントロールを使用しての帳票出力は
行ったことがあったのですが、Starfaxの関連で
APIを使わざるをえない状況です。
丁寧な回答に感謝致します。
No.3
- 回答日時:
CRViewer1
とは
Crystal ReportsのReport Viewerコントロールのことです。
ここでは、Report Viewerのプレビュー出力を例としてます。
また、オブジェクトの認識のためには、Ctystal Reportsのライブラリを使用するわけですので、参照設定で、
Crystal Report 8 ActiveX Designer Run Time Library
Crystal Report 8 ActiveX Designer Design Time Library(Internal)
等をチェックしてください。
また、StarFaxについては、残念ながらわかりません。
いずれにせよ、レコード選択式への条件設定でしたらReportオブジェクトのRecordSelectionFormulaプロパティを介して設定することができます。
Declare Function PESetSelectionFormula Lib "crpe32.dll" (ByVal printJob%, ByVal formulaString$) As Integer
で解決することができました!!!!
ありがとうございました。
No.1
- 回答日時:
クリスタルレポートのレコード選択式に設定する内容をそのままVBからRecordSelectionFormulaプロパティを通して渡してあげれば可能です。
具体的にはこんな感じです。
Dim objReport As craxdrt.Report
Set objReport = objApplication.OpenReport("レポートファイル名.RPT", 1)
objReport.RecordSelectionFormula = "{テーブル名.フィールド名} = 'Aグループ'"
CRViewer1.ReportSource = objReport
CRViewer1.ViewReport
他にも、ソート順や、DBの接続先など、同様の方法(それぞれ専用のプロパティ)で、色々なものを変更することができますので応用してみてください。
おぉぉ!?SelectionFormulaというのに
条件を書くとうまく抽出できました。
ありがとうございます。
これで第一段階はクリア・・・。
今この抽出してできたクリスタルレポートを
StarFaxの機能を使ってTIFファイルにして
それをFAX送信させたいのです。
単純にワークテーブルの中身をすべてクリスタル
レポートに表示させてできたレポートをTIFファイル
にはできたのですが、
この抽出条件を渡す方法が分からず困ってます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
- Access(アクセス) アクセス レポートを開いたときにパラメーターの自動入力がしたい 4 2022/11/30 11:21
- 大学・短大 大学一年生です レポートについて質問します レポートを制作しているのですが 教科書から全てを引用した 1 2023/06/02 03:21
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Access(アクセス) アクセスで教えてください。 レポートが3つ作成してあるのですが、 pdfに出力するときに 1件のpd 1 2022/12/21 14:44
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- その他(Microsoft Office) エクセルでテーブルの最終行が自動追加されない 1 2023/01/04 15:09
- その他(データベース) accessでの請求管理について 2 2022/06/13 21:51
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
クリスタルレポート(8.5)の書式設定
Visual Basic(VBA)
-
クリスタルレポートの改ページについて
Visual Basic(VBA)
-
クリスタルレポートで文字列の部分抽出をする方法
Visual Basic(VBA)
-
-
4
クリスタルレポートでレコード数に関係なく空行を出力するには?
その他(プログラミング・Web制作)
-
5
クリレポのプリンタ設定について
Visual Basic(VBA)
-
6
「指定されたキャストは有効ではありません。」とエラーが出てしまいます。
Microsoft ASP
-
7
VB6,Ifから抜けるには?
Visual Basic(VBA)
-
8
単一グループのグループ関数ではありません。
Oracle
-
9
VB.netでメソッドからコントロールを取得
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
COBOLのMOVEで桁数が異なる場合
-
cout と cerrの違い
-
c言語でグラフをつくる
-
CrystalReportの文字列の折返し...
-
プログラムについての質問です...
-
MMDでavi出力が出来ない
-
printfとputcharの違いは
-
ACCESS クエリ→フォーム...
-
無限ループで出力ストリームが...
-
テキストファイルから特定の文...
-
C# 標準出力のencodingをutf8に...
-
Accessの値をExcelに縦横入替出...
-
gnuplotで複数のwindowを開くに...
-
VBAのExecメソッドで画面を非表...
-
Mac版 Excel VBA PDF出力フォル...
-
プログラミングの問題です。至...
-
wsprintfで浮動小数を扱うには?
-
makeで文字化けする。migwのmak...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
printfとputcharの違いは
-
VBA レジストリの値の読み方に...
-
プログラムについての質問です...
-
MMDでavi出力が出来ない
-
cout と cerrの違い
-
詳しくないので、どなたかお教...
-
COBOLのMOVEで桁数が異なる場合
-
ACCESS クエリ→フォーム...
-
VBAでテキスト出力時のスペース...
-
OBS配信すると、マイクが途切れ...
-
PS5をMacBookProに出力したいの...
-
コンセントの電力は入力と出力...
-
アクセスでエクセルに出力する...
-
printfの書式%.*s
-
Windows Formアプリからコンソ...
-
coutで出力した文字を消去する...
-
VBAで有効数字の設定
-
VBAのExecメソッドで画面を非表...
おすすめ情報