ACCESS 日付が変わった場所で改ページしたい

質問

Win 7
Access2013
大変、お世話になっています。よろしくお願いしたいと思います。

日程表で、詳細に「日付」「場所」「時間」「内容」などのフィールドがありＡ５の用紙に印字しています。1枚の用紙に収まらない場合、2枚目に順次印字されています。

この2枚目に移る時、「日付」が変わった時点で改ページをしたいのです。「日付」は日が変わった時だけ入力しています。

色々、調べてみて、グループ化もしてみましたがうまく出来ませんでした。「グループ化」の中で、印字の時の「グループ全体」という項目が Access2013では見当たりませんでした。

何卒、ご教示方よろしくお願いいたします。

【備考】
モジュールには、ここでご教示いただいた下記のような「線」の記述をしています。
Option Compare Database
Option Explicit
Dim HI As String
Dim TI As String
Dim NAIYO As String

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
HI = """"
TI = """"
NAIYO = """"
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If HI <> Me.行程_日付 Then
Me.直線51.Visible = True
HI = Me.行程_日付
Else
Me.直線51.Visible = False
End If
If TI <> Me.テキスト44 Then
Me.直線53.Visible = True
TI = Me.テキスト44
Else
Me.直線53.Visible = False
End If
If NAIYO <> Me.内容 Then
Me.直線55.Visible = True
NAIYO = Me.内容
Else
Me.直線55.Visible = False
End If

End Sub

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Me.ScaleMode = 1
Me.ForeColor = 0
Me.DrawStyle = 0
Me.DrawWidth = 4

Me.Line (1.51 * 567, 0)-(1.51 * 567, 14400)
Me.Line (6.8 * 567, 0)-(6.8 * 567, 14400)
Me.Line (8.3 * 567, 0)-(8.3 * 567, 14440)
End Sub

回答No.6

chie65536（@chie65535） · ベストアンサー

レポートの「詳細」のどこか適当な位置に「テキストボックス」を挿入して下さい。

「テキストボックスの名前は「日付1」にして、レコードソースを「日付」にしておきます。そして、このテキストボックスの「可視」を「いいえ」にします。

次に、レポートの「詳細」の一番上に「改ページコントロール」を挿入して下さい。

「改ページコントロール」の名前は「改ページ1」にしておきます。

次に、レポートの「詳細」の「フォーマット時」のイベントプロシージャの部分に、次の１行を追加します。

改ページ1.Visible = Not IsNull([日付1])

例えば

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
改ページ1.Visible = Not IsNull([日付1])
If HI <> Me.行程_日付 Then
Me.直線51.Visible = True
HI = Me.行程_日付
Else
（以下略）

のように追加します。

こうすると「日付にデータが入力されているレコードが来た時だけ改ページする」ようになります。

追加した１行は

テキストボックス「日付1」の内容がNullなら改ページコントロール「改ページ1」のVisibleプロパティをFalseにして改ページせず、テキストボックス「日付1」の内容に何か入っているなら改ページコントロール「改ページ1」のVisibleプロパティをTrueにして改ページする

と言う働きをします。

質問者さんは「日程_日付の値を使って、線を出したり、線を出さなかったりする」と言う処理をしていますよね？

基本的には、それと同じで「日付の値を使って、改ページしたり、しなかったり」と言う処理が出来るのです。

回答No.8

chayamati

結果添付のようなレポートになります。

回答No.7

chayamati

>「日付」のすべてのフィールドに日を入力するということになりますか？
>それはちょっと、避けたいんですね？(わがままですみません)

Word Excelでは、入力した画面の通り印刷もできますが、
Accessではフォームで入力画面を作成しますが、フォームを閉じて再度開くと
表示順序が入れ替わってしまいます。
表示順序を規則性のあるものにするため、日付、伝票No.等のフィールドを用意します。
このわがままは通用しません。
前回提案したのは手間をかけずに日付を有効値にする手段です。
レポートの体裁ならフィールドの書式タブ内の最後の方に
「重複データ非表示」というプロパティーがあります。

回答No.5

chayamati

結果図のような入力画面になります。
日付テーブル内の日付フィールドが主キーになっているため日付の重複入力は出来ません。
元のテーブル「情報」テーブルを単独でフォームを作成すると各レコードに日付がそんざいしているはずです。

回答No.4

chayamati

>「日付」のすべてのフィールドに日を入力するということになりますか
>それはちょっと、避けたいんですね？(わがままですみません)

どのようなフィールドがあるか不明なので見当はずれかもしれませんが
日付テーブルを追加して図のようにリレーションでつなぎ、サブフォームのあるフォームは

1.日付テーブルを追加
2.元のテーブルの日付を日付IDと改名
3.日付テーブルの日付と元のテーブルの日付IDをリレーションで結ぶ。
4.サブフォームのあるフォームはフォームウィザードで作成します。
4-1.[作成]→[フォームウィザード]
4-2.→[日付テーブルより日付]
4-3.→[情報テーブルより情報]
4-4.→[次へ]→[次へ]→[表形式]→[次へ]→[完了]
リレーションシップで日付が情報テーブルの日付IDにコピーされます

回答No.3

chayamati

>・「日付」の規定値の示されたことは、すみません知識不足でどのような
ことになるのか解りません。(すみません)
《テーブルをデザインビューで開く》→《日付のフィールドを右クリック》
→《リストの最後のプロパティー》→《データタグの4行目に定義》
このほか
書式タグの1行目が書式タグの右端クリックから日付の書式にするとカレンダー入力が可能になり
その他タグの1行目でボックス名を定義します。

テーブルとリレーションはシステムの基本になります。
クエリー、フォーム、レポートは肉付け部分です。
テーブルの設計を見直してください。

お礼

chayamati様
ご回答ありがとうございます。　ご教示いただいた方法で、まだ試していませんが、想像するに、「日付」のすべてのフィールドに日を入力するということになりますか？

それはちょっと、避けたいんですね？(わがままですみません)

よろしくお願いします。

回答No.2

chayamati

>試行錯誤しているのですが
Accessは、例えば演算項目に一つでも空白があれば他のレコードも演算不能になります。
テーブルの規定値プロパティーを0またはdate()にして、エラーの原因を事前に回避します。。

>場所が変わっても日付が変わらないと入力していません。
このままではだめです。
自分がやっている方法ですが
フォーム上に基準日のテキストボックス「規定値をdate()」として
日付フィールドのクリックイベントで規定値にするようにしています。

Private Sub 日付_Click()
日付 = 基準日
End Sub

補足

chayamati様

ご回答ありがとうございます。演算項目の空白はダメなんですね？

・「日付」の規定値の示されたことは、すみません知識不足でどのような
ことになるのか解りません。(すみません)

回答No.1

chayamati

>この2枚目に移る時、「日付」が変わった時点で改ページをしたいのです。
>「日付」は日が変わった時だけ入力しています。
日が変わらなけれが日付フィールドは空白ですか？これでは日付をグループ化できませんね
グループ化できれば、プロパティーで改ぺージ設定できますよ。

お礼

chayamati様
ご回答ありがとうございます。

>日が変わらなけれが日付フィールドは空白ですか？

そうです。すべての日付フィールドに何回も同じ値を入力するのは効率的ではないので、場所が変わっても日付が変わらないと入力していません。

何か、いい方法はないものかと、試行錯誤しているのですが、解決できる知識が無いため、行き詰っています。