Access：帳票形式を１０件づつ表示する方法

質問

いつもお世話になっております。Accessの帳票形式について教えて下さい。

行いたい事は、フォームは帳票形式とし、レコードを１０件づつ表示させる事です。画面上に「次」ボタンを配置し、クリックすることで次の１０件を表示したいのですが、良い方法が思い付きません。

DoCmdコマンドのGoToRecordメソッドを使い、１０件区切りで移動する事はできたのですが、区切りの先頭となる１１、２１、３１などのレコードを一番上に表示できず断念しました。

PageUp、PageDownキーのように移動できると良いのですが。

もし良い方法がありましたらご教授下さい。宜しくお願いします。

回答No.4

yoisho · ベストアンサー

まず、（既にご存知のことかも知れませんが、）レコードが１０件表示できるサイズのサブフォームをメインフォームに配置すれば、レコードを１０件づつ表示させることができます。

さて次に、１１、２１、３１などのレコードを一番上に表示させる方法ですが、
（少々裏技っぽいですが、）レコードを一旦「表示させる件数＋１」（ご質問の場合は１１ですね）先に移動してから、一番上に表示させたいレコード（１１とか２１）まで戻してやればできます。

例えば現在のレコードが１５なら、２６まで移動して５（１１まで）戻す、２０なら、３１まで移動して１０（２１まで）戻す、といった要領です。

具体的には、（次の１０件に進む場合）以下のようなコードになります。

Private Sub 次の10件コマンド_Click()
Dim formSub As Form, CurRec As Long, PrevNum As Long, RecNum As Long, TempPrev As Long
'サブフォームのフォームオブジェクトを取得
Set formSub = Me.サブフォームのコントロール名.Form
'サブフォームのカレントレコードを取得
CurRec = formSub.CurrentRecord
'レコードの総数を取得
RecNum = formSub.RecordsetClone.RecordCount
'レコードを行ったり来たりすることによる画面のチラツキをなくす
Application.Echo False
'サブフォームにフォーカスを移動
Me!サブフォームのコントロール名.SetFocus
'レコードを11移動できない（レコード総数を超えてしまう）場合の処理
If CurRec + 11 > RecNum Then
'いくつ超えてしまうかを取得
TempPrev = CurRec + 11 - RecNum
'超えてしまう分だけ、一旦前のレコードに戻る
DoCmd.GoToRecord , , acPrevious, TempPrev
CurRec = CurRec - TempPrev
End If
'カレントレコードの１の位の値を取得
PrevNum = CurRec Mod 10
'もし１の位が0なら、レコードを前に戻る値を10にする
If PrevNum = 0 Then
PrevNum = 10
End If
'レコードを11前方へ移動
DoCmd.GoToRecord , , acNext, 11
'一番上に表示させたいレコードへ戻る
DoCmd.GoToRecord , , acPrevious, PrevNum
'画面表示を元に戻す
Application.Echo True
End Sub

前の１０件に戻す場合は難しく考えないでも、以下のコードでよいでしょうか？

Private Sub 前の10コマンド_Click()
Dim formSub As Form, CurRec As Long, PrevNum As Long
Set formSub = Me.サブフォームのコントロール名.Form
CurRec = formSub.CurrentRecord
Me!サブフォームのコントロール名.SetFocus
PrevNum = CurRec Mod 10 + 9
If CurRec < 10 Then
DoCmd.GoToRecord , , acFirst
Else
DoCmd.GoToRecord , , acPrevious, PrevNum
End If
End Sub

（今私が使っているのは Access97 ですが、）こんな方法で経験がありますので、ベストな方法かはわかりませんが、一応「自信あり」とさせていただきます。

お礼

ご回答ありがとうございます！
教えて頂いたコードでバッチリ要求通りの動きになりました！！
本当にありがとうございます。身の回りに知識を持つ者がいないので、こうした場でご教授頂ける事に感謝しております。また機会がありましたら、お手数ですが宜しくお願いします。

回答No.3

oka123

ご回答ありがとうございました。今までマクロは使った事がなく、レコード移動も簡単に出来て驚きました！ただ１０件先のレコードに移動した際、移動先のレコードが一番上に表示される場合とされない場合がありました。帳票形式で、フォームに表示できる数が指定できると良いのですが・・・。

-----------------------------------------------
-----------------------------------------------
こんにちわ
追加です

先頭に出す方法ですが。

フォームの縦方向の大きさ（詳細エリア）を少なめにして
（ヘッダー、フッターも使って全体大きさを
　調整できる手もありますが）
ちょうど１０件表示させるおおきさにしておけば
レコード選択カーソル（黒→）が１１件目へ飛んだときに
下部に隠れている１１件目をひっぱりあげて表示するので
先頭に１１件目がくるとおもいます

選択カーソルやマウスポインターが現在見えている
場合には画面が動かずにカーソルだけが動くのですが
別区域へ移った場合は画面ごと位置移動していくという
理屈と同じことを応用します

とりあえず、こ参考まで。

お礼

ご回答ありがとうございました！
詳細エリアの縦幅を調節し、１０件分だけ表示する手法を試してみました。それによりますと、カレントレコードが１の時、レコード１１へ移動すると、一番下にレコード１１が現れてしまいます。なおレコード３０とか、ある程度距離のあるレコードに移動する場合は、そのレコードが一番上に表示されました。
ちなみにこのフォームをサブフォーム化もしてみたんですが同じ結果でした。今回の手法でイケるかな？と思ってたんですが、「なんでじゃ～！」状態です・・・。
「○件単位でレコードを表示する」という操作自体それほどレアなケースではないと思うんですが～・・・。

回答No.2

imogasi

テストデータとして、ファイル「db6」
テーブル名を「テーブル1」とし
ID 店コード 店名
1 ０３５ 新宿
2 ０３６ 渋谷
3 ０３７ 池袋
4 ０３８ 田端
5 ０３９ 板橋
6 ０４０ ときわ台
7 ０４１ 飯田橋
8 ０４２ 御茶ノ水
9 ０３５ 市川
10 ０３５ 千葉
11 ０３５ 大宮
12 ０３５ 浦和
13 ０３５ 川越
14 ０３５ 浦安
とします。
フォーム1として、テキストボックス１つ、コマンドボタン
１つを貼り付ける。コマンドボタン（コマンド2）のイベントプロシージュアーとして
Dim nr
Private Sub コマンド2_Click()
Set db = OpenDatabase("db6")
Set rs = db.OpenRecordset("テーブル1")
fn = nr
MsgBox fn
a = ""
nr = 0
Do While Not rs.EOF
rs.MoveNext
nr = nr + 1
If nr > fn Then
a = a & rs!店コード & rs!店名 & vbCrLf
If nr = fn + 3 Then
テキスト0.SetFocus
テキスト0.Text = a
Exit Sub
End If
End If
Loop
End Sub
レコード処理は、初歩的にやっています（その都度先頭から繰り返し読みが発生する）が、数が多いとＳＱＬでやる事になるのかも。
質問の１０件は３件に変えています。MsgBox fnは参考の
ために入れているので時期が来たらはずしてください。
コマンドボタンをクリックすると３件ずつ表示します。
第１レコードと最終レコードの処理を手を抜いていますが
修正してください。時間がなく済みません。

お礼

ご回答ありがとうございました！データを文字列として結合し、３行分作成する手法なんですね。今回は帳票形式での表示を行いたいと思っておりますので、ご教授頂いた手法はすぐに活用できませんが、大変参考になりました。どうもありがとうございます。

回答No.1

oka123

こんにちわ

マクロ作成でおいて

「レコードの移動」機能にて
レコード　　次のレコード
オフセット　10

とすればいいと思います

（当マクロをボタンクリックイヘントで呼び出し）

お礼

ご回答ありがとうございました。今までマクロは使った事がなく、レコード移動も簡単に出来て驚きました！ただ１０件先のレコードに移動した際、移動先のレコードが一番上に表示される場合とされない場合がありました。帳票形式で、フォームに表示できる数が指定できると良いのですが・・・。