アクセス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]という改ページが入っています。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) EXCELのセル相互同期用のVBAでの不具合 3 2022/08/10 11:44
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
職場にすぐ怒鳴る人がいます。...
-
防衛局の技官の転勤について
-
アクセス2000 5行で改ページ
-
労働組合について
-
人事←どんなイメージ?
-
専門用語を調べるのに適したサ...
-
病気の事を関係ない方にまで・・・
-
企業が欲しい人材とはどういっ...
-
人事の人が社員の学歴を話すの...
-
就職活動での髪型について(男...
-
ワーク・ライフ・バランスにつ...
-
特定人事規定ってなんですか?
-
人事
-
人事担当の方に質問です。 学生...
-
「御部署(ごぶしょ)」という...
-
他部署の面識のない人との電話...
-
「異動先がない」という人事異...
-
職場で悪者にされた
-
人事が2人いる場合、メールの...
-
突然の異動を言い渡されました
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
日本製鉄のような大企業の人事...
-
大きな組織の退職者記録
-
職場にすぐ怒鳴る人がいます。...
-
人事に他人の個人携帯番号を勝...
-
人事部と総務部所属はどちらが...
-
人事情報が漏れてます
-
大きい組織の人事の決め方
-
高卒で就職して人事課になれる...
-
人事の人が社員の学歴を話すの...
-
講師時代に戒告処分を受けた場...
-
テナントビル内での掃除、警備...
-
書類の保管(期限)について
-
人事評価方法の一つで、ウィリ...
-
幹部の愛人だから入社できたと...
-
防衛局の技官の転勤について
-
所詮人事のようなコメントです...
-
内定先へ送る卒業証書コピーに...
-
人事か法人営業だったらどっち...
-
今日仕事でやらかしてしまいま...
-
就活生です。宛先について「担...
おすすめ情報