Accessでレポートに任意のテーブルの任意の行を表示したい

Question

レポート（非連結で作成）にあるテーブルの１フィールドを順番に1行ずつ表示させたいのですが、どのような方法があるでしょうか？
レポートは表形式ではなく、単票形式です。

Access2000です。

keikan · Accepted Answer

すいません、ページの外観に影響を及ぼすコマンドは、フォーマットイベントで行ってください。

Private Sub ページヘッダーセクション_Format(Cancel As Integer, PrintCount As Integer)

＊＊＊＊＊＊＊＊＊AccesのHelp　Formatイベント抜粋です。＊＊＊＊＊＊＊＊＊＊＊

Format イベントが発生したときにマクロやイベント プロシージャを実行すると、カレント レコードのデータを使って、ページ レイアウトに影響する変更をレポートに加えることができます。たとえば、売上高のレポートで、営業部員の月ごとの売上高の合計の隣に、その売上高の合計が一定額に達したときにだけメッセージを表示することができます。コントロールの表示と非表示が切り替わると、"CanGrow/印刷時拡張"、"CanShrink/印刷時縮小"、"HideDuplicates/重複データ非表示"、"KeepTogether/同一ページ印刷"、および "Visible/可視" など、レイアウトに関連するプロパティの設定値に従ってセクションがフォーマットされます。

ページ レイアウトに影響しない変更の場合や、ページごとの合計を印刷するマクロのように、ページのデータがフォーマットされるまで実行されないマクロまたはイベント プロシージャの場合は、対象となるレポート セクションの Print イベントを使います。

keikan · Answer

へんですね～＾＾
こっちではうまくいってるんですけど、エラーの再現ができません。

デザイン時にラベルオブジェクトはどこにありますか？
（初期値）

また、ラベル名とテキストボックス名の識別に問題はないですか？

良ければ、前後のコードも記述してください。

keikan · Answer

>レポート名.Label(使用者).Left = 5 * 5
>としてみましたが、エラーになりました。
>どのようにしたらいいのでしょうか？


まずどのようなエラーでしたか？

この記述からすると、

レポート名.使用者.left=5*5

通常　自レポートの扱いになるので

オブジェクト名.要素名　=　○○

使用者.left　＝　○○

でいけると思いますが、レポート名を指定しているのは、このコードを外部のモジュール（他のフォームなど）から実行押されていますか？
レポートのプロパティーが変更可能なのはフォーマット時や印刷時なのでプレビューが表示されてからの変更はできないと思います。

このコードを記述するならば詳細のフォーマット時・印刷時で記入してください。

keikan · Answer

フィールド１から５も２列にするということでしょうか？

まあ、紙を大きいのに変えるか、フォントを小さくしてフィールドの幅を狭くするぐらいですかね＾＾；；

あと、任意の文字を表示させるには、

適当なラベルを作っておいて、表示、非表示を切り替えたり、表示位置を随時変更してやれば（Ｔｏｐ、Ｌｅｆｔ）そのような感じになります。

keikan · Answer

＃２です。＃２の内容は忘れてください。題意とはずれてます。

＃１の補足からですが、

フィールド６は同じレコードですか違うレコードですか？

違うレコードであれば、ファイルーページ設定ーレイアウトー行列設定で横の列数を決めてください。

フィールド１からフィールド５までをページヘッダーなどにおいて、フィールド６だけを詳細ページに於いてください。


同じレコードを配置するのであれば、フィールドを必要な数配置してください。これはデザインで必要な分貼り付けるか、ＶＢＡで随時作成するかです。

下記はレポートデザインを新規で作成してレポートにテキストボックスを作成しています。参考にしてください。

Sub makeTBox()

Dim TB(10) As Control

Dim tleft As Integer
Dim ttop As Integer
Dim theight As Integer
Dim twidth As Integer
Dim i As Integer

Dim crep As Report
Set crep = CreateReport
    

tleft = 100
ttop = 50
theight = 200
twidth = 1000

For i = 1 To 10

'ここで必要に応じて下記関数にフィールドの連結を入れてください。

Set TB(i) = CreateReportControl(crep.Name, acTextBox, , , , tleft, ttop + i * 500, twidth, theight)

TB(i).Name = "test_TextBox" & i

Next i



End Sub

keikan · Answer

任意のテーブルを後から連結する場合、
レポートのロード時点などで外部から連結するテーブルを割り当ててやる必要が出てくると思います。

１．外部のフォームなどのテキストボックス等に該当するテーブル名を入れておく。

２．ロードのタイミングで内部的に割り当ててやる。


このようにして、割り当てたテーブルの項目名がレポートで使われるデータ項目において各テーブル共通であればそれだけでいけると思いますが、
違う場合には、レポートの各項目のデータ項目名をテーブルに合わせて、その都度割り当てる必要があると思います。

レポートを作成する際に、どれか一つのテーブルをもとに作成されると作成しやすいと思います。作成後、題意のような表示になるを確認後、データとしてのテーブルの関連を削除してください。（この時点で非連結になると思います）

imogasi · Answer

下記のような問題でしょうか。違うような気もするのでその場合は補足を。
(例データ）テーブル：住所録
住所録ID郵便番号氏名会社役職2
1201-2123山田　太郎山田電気社長
2203-3211神田　次郎神田　商店常務
3100-1111名古屋株式会社名古屋商事常務
4311-2345佐野　三郎興和部長
5112-3210関西　商事関西商事課長
５件を作りました。
（操作）
レポート
デザインビュー
新規作成
（基になるテーブル）住所録
OK
レポート画面で「詳細」部に「住所録」の「フィールドリスト」が出ているから
項目を必要なだけドラッグアンドドロップして配置する。
「詳細」のベルトの上で右クリック。「プロパティ」を選ぶ。（セクション「詳細」のプロパティで）
「書式」の「改ページ」を「カレントセクションの後」を選ぶ。（その行でクリックすると▼がでて、クリックして
選ぶ）。
印刷してみると、テーブル１行分が、配置したレイアウトで１枚づつ、計５枚印刷しました。

Accessでレポートに任意のテーブルの任意の行を表示したい

すいません、ページの外観に影響を及ぼすコマンドは、フォーマットイベントで行ってください。

へんですね～＾＾

>レポート名.Label(使用者).Left = 5 * 5

フィールド１から５も２列にするということでしょうか？

＃２です。

この回答への補足

任意のテーブルを後から連結する場合、

下記のような問題でしょうか。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング