Access2000のレポートでフィールドリストにない値を表示できるか？

質問

• Access2000で作成したレポートで、フィールドリストに存在しない値を表示することはできるのでしょうか？質問NO.217579のデータベースでは、選択クエリでT_グループ名の印刷フィールドをチェックボックスで設定し、T_個人名簿のグループIDが同じレコードも抽出しています。レポートの詳細セクションには目的のグループIDに該当するすべてのデータが表示されていますが、レポートのグループIDヘッダーにはT_個人名簿の代表者フィールドのチェックボックスがonになっている人も表示させたいです。
• Access2000のレポート作成での問題です。選択クエリで取得したデータを基にレポートを作成していますが、レポートのヘッダーにフィールドリストに存在しない値を表示することは可能でしょうか？具体的には、T_グループ名の印刷フィールドがonになっているデータを抽出し、T_個人名簿のグループIDが同じレコードも表示させています。しかし、代表者フィールドがonになっている人もレポートのグループIDヘッダーに表示させたいです。
• Access2000のレポート作成についての質問です。選択クエリでフィールドリストに存在しない値を抽出し、レポートに表示させたいです。具体的には、T_グループ名の印刷フィールドがonになっているデータを抽出し、T_個人名簿のグループIDが同じレコードも表示させていますが、代表者フィールドがonになっている人もレポートのグループIDヘッダーに表示させたいです。フィールドリストにない値を表示する方法があれば教えてください。

回答No.1

how-do-you-do

御疲れ様です
レポートの種類が記述されていませんが...
「単票形式」、「帳票形式」なのでしょうか？
また「帳票形式」である場合には、一枚のレポートに何件くらいのデータが表示されるのでしょうか？

やりたいことはレポートのヘッダーに「代表者の氏名」を表示したいということですよね
で、表示するデータのキーになるのは、
> T_個人名簿の代表者フィールドのチェックボックスがonになっている人
ということですが、複数人数いた場合はどうするのでしょうか？

ちょっと曖昧な部分が多すぎますね
現状でできる解決策をコードを下記に記します

'～～～～～～～～～～～～～～～～～～～～
'レポートのグループIDヘッダー印刷時の処理です
'グループIDヘッダー部に非連結の「代表者の氏名」テキストボックスがあることを前提とする
'参照設定にて「DAO」をチェックする
'～～～～～～～～～～～～～～～～～～～～
Private Sub グループIDヘッダー_Print(Cancel As Integer, PrintCount As Integer)
Dim RS As DAO.Recordset
Dim stSQL As String

'印刷グループの代表者のデータを展開
stSQL = "SELECT Ｔ_グループ名.*, Ｔ_個人名簿.* " & _
"FROM Ｔ_グループ名 INNER JOIN Ｔ_個人名簿 ON Ｔ_グループ名.グループID = Ｔ_個人名簿.グループID " & _
"WHERE (((Ｔ_グループ名.印刷)=True) " & _
"AND ((Ｔ_個人名簿.代表者)=True));"
Set RS = CurrentDb.OpenRecordset(stSQL, dbOpenSnapshot)

'データはあるか？
Do Until RS.EOF = True

'複数人数いるときの対処
If IsNull(Me.代表者の氏名.Value) = False Then
Me.代表者の氏名.Value = Me.代表者の氏名.Value & "/"
End If

'代表者指名欄に追加
Me.代表者の氏名.Value = Me.代表者の氏名.Value & RS![氏名]

Loop

'レコードセット解放
Set RS = Nothing

End Sub
'～～～～～～～～～～～～～～～～～～～～

参考になれば...

補足

お世話になります。わかりにくい質問にもかかわらず、アドバイスありがとうございます。コピーして貼り付けてみましたが、残念ながら上手く表示されませんでした。非連結のテキストボックス名は、「代表者名」なので、ご指導いただいたコードの中の「代表者の氏名」は一応「代表者名」に訂正したのですが…。
さて、レポートですが、帳票形式です。で、一枚のレポートに表示されるデータの件数は、T_グループ名の印刷フィールドのチェックをonにした数なので、その時によりまちまちです。代表者は１グループにつき１名です。基になるクエリを何て説明すればいいのかわからないので、下にSQLを貼り付けます。

SELECT Ｔ_グループ名.グループＩＤ, Ｔ_グループ名.グループ名, Ｔ_グループ名.活動内容, Ｔ_グループ名.保険, Ｔ_グループ名.印刷, Ｔ_個人名簿.個人ＩＤ, Ｔ_個人名簿.氏名, Ｔ_個人名簿.フリガナ, Ｔ_個人名簿.出欠, Ｔ_個人名簿.代表者, Ｔ_個人名簿.活動保険, T_住所一覧.郵便番号, Ｔ_個人名簿.住所ＩＤ, Ｔ_個人名簿.番地, Ｔ_個人名簿.電話番号
FROM T_住所一覧 RIGHT JOIN (Ｔ_グループ名 INNER JOIN Ｔ_個人名簿 ON Ｔ_グループ名.グループＩＤ = Ｔ_個人名簿.グループＩＤ) ON T_住所一覧.住所 = Ｔ_個人名簿.住所ＩＤ
WHERE (((Ｔ_グループ名.印刷)=True) AND ((Ｔ_個人名簿.代表者)=True))
ORDER BY Ｔ_グループ名.グループＩＤ;

説明の方法すらわからない素人ですが、ご指導お願いします。