ACCESS2000で、レポートにページ数を表示させたいのですが、現在グループごとの改ページを設定してまして、設定したグループごとのページの総数と現在のページ数を表示させたいのですが、可能でしょうか?
イメージとしては、下記のとおりです。
1ページ目 グループ1 (1/2)
2ページ目 グループ1 (2/2)
3ページ目 グループ2 (1/1)
4ページ目 グループ3 (1/3)
5ページ目 グループ3 (2/3)
・
・
・
・
お手すきの方がおられましたら、よろしくお願いします。
No.1ベストアンサー
- 回答日時:
VBAを使わないとちょっと難しいですね。
ロジックとしては。
レポートのクラスモジュールでグループ毎の総数とページ番号の変数を定義
dim page_count as long
dim page_max as long
グループヘッダのフォーマット時にそのグループ名でレコード件数を取得、1ページの最大件数で割る。
余りが有ったら割った数字に1を足す。
余りが無かったらその数字がグループ単位の総ページ数
ページ数に0をセット
Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
dim rec_count as long
rec_count = DCount(expr, domain[, criteria])
if (rec_count mod 1ページの明細数) = 0 then
page_max = rec_count / 1ページの明細数
else
page_max = (rec_count / 1ページの明細数) + 1
end if
page_count = 0
End Sub
ページフッタ時にページ番号に1を足して総ページとともに編集して出力。
Private Sub ページフッターセクション_Format(Cancel As Integer, FormatCount As Integer)
page_count = page_count + 1
me.コントロール名 = page_count & "/" & page_max
End Sub
こんな感じでしょうか。データが無いときやその他必要な処理は書き足してくださいね。
あとDcount関数はHelpからコピぺしただけですのでVBAのHelpを参照してください。
No.2
- 回答日時:
マイクロソフトのサポート情報にも方法がありますので、そちらも参考にされてはいかがでしょうか?
Access97になってますが2000でも大丈夫なはずです。
参考URL:http://support.microsoft.com/default.aspx?scid=k …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- IT・エンジニアリング ★お手上げ状態です。助けてください。ActiveReportについて 1 2023/08/20 04:29
- Visual Basic(VBA) ★お手上げ状態です。助けてください。ActiveReportについて 1 2023/08/20 04:27
- Google Drive googleドライブ 共有フォルダ 表示 されない 2 2023/07/06 10:37
- Excel(エクセル) 指定した数字まで累計する方法や文字例の抽出について教えてください 4 2022/10/05 21:19
- PHP PHP MySql ページング 2 2022/09/20 06:38
- Excel(エクセル) アウトラインの小計のやり方 1 2023/03/20 11:51
- その他(ブログ) bloggerのレイアウト→ページリストに入りきらない(テーマ:contempo light) 1 2023/05/12 11:06
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Perl RSSにdiv,ul classを付けたいのですがどのようにつけるのかわからないです 2 2022/03/28 01:53
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
このQ&Aを見た人はこんなQ&Aも見ています
-
家の中でのこだわりスペースはどこですか?
自分の家で快適に過ごすために工夫しているスペースはありますか? 例)ベランダでお茶を飲むためのカフェテーブル ゲーミングに特化したこだわりのPCスペース
-
「平成」を感じるもの
「昭和レトロ」に続いて「平成レトロ」なる言葉が流行しています。 皆さんはどのようなモノ・コトに「平成」を感じますか?
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
牛、豚、鶏、どれか一つ食べられなくなるとしたら?
牛肉、豚肉、鶏肉のうち、どれか一種類をこの先一生食べられなくなるとしたらどれを我慢しますか?
-
高校三年生の合唱祭で何を歌いましたか?
大人になると大人数で合唱する機会ってないですよね。 思い出すと、高校三年生の合唱祭が最後でした。 そこで、みんなの思い出の合唱曲を知りたい!
-
Accessのレポートでグループごとに改頁とページ数のクリア
Access(アクセス)
-
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
ACCESSのレポートでのグループページ数表示
Access(アクセス)
-
-
4
アクセスのレポートを印刷すると白紙がでてきます。改ページついて教えてください。
その他(データベース)
-
5
ACCESSレポートのヘッダー表示の切り替えテクニック
PowerPoint(パワーポイント)
-
6
アクセス レポートの行数を固定したい
Access(アクセス)
-
7
アクセスのレポートでレコード数をカウントしたい
その他(データベース)
-
8
ACCESSでの改行コード
その他(データベース)
-
9
Accessレポートでの改ページ
Visual Basic(VBA)
-
10
Accessレポートで特定条件で改ページしたい
PowerPoint(パワーポイント)
-
11
Access グループごとのページ/総ページ 表示がおかしい
その他(Microsoft Office)
-
12
サブレポートのレポートフッターが印刷されず困っています。
Access(アクセス)
-
13
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
14
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
15
アクセスのレポートに、フォームで算出した数字を表示させたい
Access(アクセス)
-
16
accessのレポートであとから他のテーブルのフィールドを追加する方法
Access(アクセス)
-
17
Accessで勤続年数(○年○ヶ月)を表示する方法
その他(データベース)
-
18
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
19
ACCESS テキストボックスを隙間なくきれいに並べたい
Access(アクセス)
-
20
レポート中の文字を自動縮小したい (ACCESS 2003)
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのレポートのヘッダー...
-
Accessのレポート上のテキスト...
-
accessレポートにwordの文...
-
テキストボックスにコントロー...
-
Accessでの複数クエリ(テーブ...
-
ACCESS 単票形式のレポート
-
ACCESSでデータゼロ件の時レポ...
-
Accessでレポートの項目をVBAで...
-
アクセスのレポートをPDF化する...
-
BusinessObjectsについて教えて...
-
Access レポートで分類ごとに合...
-
アクセスのレポートでこんなこ...
-
アクセスでレポート作成時にデ...
-
レポートのコントロールソース...
-
Access 複数列レポートにおいて...
-
Access レポートフッターを条...
-
レポートのラベルなどの非表示...
-
ACCESSレポートに複数のクエリ...
-
エクセルで表を作り、ピボット...
-
Accessのフォーマット時イベント
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスのレポートのヘッダー...
-
Accessのレポート上のテキスト...
-
レポートのラベルなどの非表示...
-
accessレポートにwordの文...
-
Accessのフォーマット時イベント
-
テキストボックスにコントロー...
-
Accessでページヘッダーだけが...
-
★お手上げ状態です。助けてくだ...
-
Access チェックボックスを使...
-
アクセスのレポートで空白のテ...
-
レポートのコントロールソース...
-
ACCESS2000 VBAで印刷時にサブ...
-
エクセルで表を作り、ピボット...
-
Access上で作成したレポートのE...
-
計算結果がレポートビューでは...
-
ACCESS レポートでグループご...
-
ACCESSのレポートフッターをグ...
-
Access2007の罫線設定のあるレ...
-
Accessを使ってレポートを印刷...
-
Accessでレポートの項目をVBAで...
おすすめ情報