アクセス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]という改ページが入っています。
よろしくお願いします。
お礼
>セクションのフォーマット時 これを探せずに時間がかかってしまいました。 ご教示頂いたとうりで、うまく作動しています。 ありがとうございました。