こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

アクセス2000 5行で改ページ

アクセス2000のレポートで、5行で改ページをさせようと以下のようにコードを記述しましたがうまくいきません。
どなたかアドバイスをお願いします。
配置されているテキストボックスは、
[氏名]
[人事区分チェック1]
[人事区分チェック2]
[人事区分チェック3]
[人事区分チェック4]
[人事区分チェック5]
[人事区分チェック6]
[人事区分チェック7]
[その他の内容]
[役職]
[採用年月日]
[契約終了日]
[備考]
でコードは以下の通りです。
Dim i, j

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)

i = 0
j = DCount("*", "採用時提出書類管理クエリ", "[教授会]=reports![92 人事関係報告書]![教授会]")
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)

i = i + 1
If i Mod 5 = 0 Then
If i <= j Then
Me![bpage].Visible = True
Else
Me![氏名].Visible = False
Me![人事区分チェック1].Visible = False
Me![人事区分チェック2].Visible = False
Me![人事区分チェック3].Visible = False
Me![人事区分チェック4].Visible = False
Me![人事区分チェック5].Visible = False
Me![人事区分チェック6].Visible = False
Me![人事区分チェック7].Visible = False
Me![その他の内容].Visible = False
Me![役職].Visible = False
Me![採用年月日].Visible = False
Me![契約終了日].Visible = False
Me![備考].Visible = False
End If
Else
Me![bpage].Visible = False
If i < j Then
Me.NextRecord = True

Me![氏名].Visible = True
Me![人事区分チェック1].Visible = True
Me![人事区分チェック2].Visible = True
Me![人事区分チェック3].Visible = True
Me![人事区分チェック4].Visible = True
Me![人事区分チェック5].Visible = True
Me![人事区分チェック6].Visible = True
Me![人事区分チェック7].Visible = True
Me![その他の内容].Visible = True
Me![役職].Visible = True
Me![採用年月日].Visible = True
Me![契約終了日].Visible = True
Me![備考].Visible = True
ElseIf i = j Then
Me.NextRecord = False

Me![氏名].Visible = True
Me![人事区分チェック1].Visible = True
Me![人事区分チェック2].Visible = True
Me![人事区分チェック3].Visible = True
Me![人事区分チェック4].Visible = True
Me![人事区分チェック5].Visible = True
Me![人事区分チェック6].Visible = True
Me![人事区分チェック7].Visible = True
Me![その他の内容].Visible = True
Me![役職].Visible = True
Me![採用年月日].Visible = True
Me![契約終了日].Visible = True
Me![備考].Visible = True
Else
Me.NextRecord = False

Me![氏名].Visible = False
Me![人事区分チェック1].Visible = False
Me![人事区分チェック2].Visible = False
Me![人事区分チェック3].Visible = False
Me![人事区分チェック4].Visible = False
Me![人事区分チェック5].Visible = False
Me![人事区分チェック6].Visible = False
Me![人事区分チェック7].Visible = False
Me![その他の内容].Visible = False
Me![役職].Visible = False
Me![採用年月日].Visible = False
Me![契約終了日].Visible = False
Me![備考].Visible = False
End If
End If
End Sub

データが5件未満は正しく表示されますが、5件を超えると2ページ目が4件しか表示されなかったりします。
グループ化がされており、[bpage]という改ページが入っています。
よろしくお願いします。

投稿日時 - 2008-03-12 20:16:01

QNo.3857022

すぐに回答ほしいです

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

詳細にテキストボックスをおき
=1
集計実行を全体
詳細の下端に改ページコントロールを置き

詳細フォーマット時イベントで
上記テキストボックス MOD 5
が0のときに改ページコントロールのVisibleをTrueにするだけでいいのでは

投稿日時 - 2008-03-12 21:03:20

お礼

ご回答ありがとうございました。
また、お返事が遅くなってしまってすいません。

お教えいただいたようにやったところ、うまくいきました。
ありがとうございます。

投稿日時 - 2008-03-27 08:33:51

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問