電子書籍の厳選無料作品が豊富!

Office2010のAccessを利用している初心者です。受付管理システムの検索システムを作っています。
検索ボタンをを押すと、一覧画面が出てくるところまで作りました。
ボタンのプロシージャは下記です。

Private sub 検索ボタン_Click()
DoCmd.OpenForm "結果一覧", , , "受付番号 like '*" & Me!受付番号入力値 & "*'"
End Sub

「結果一覧」は一覧に見立てた表形式のフォームです。
検索ボタンを押すと、全レコードが出てしまいますが、

・結果一覧画面に10行だけ表示
・「次へ」ボタンを押すと次の10行
・「前へ」ボタンを押すと前の10行
・「降順」ボタンを押すと受付Noの最新から降順に表示
・「昇順」ボタンを押すと受付Noの最古から昇順に表示
のボタンをつけたいと思っていますが、可能でしょうか?

A 回答 (1件)

まずは簡単な方から。


「降順」ボタンを押すと受付Noの最新から降順に表示
me.orderby="受付No asc"
me.orderbyon = true
「昇順」ボタンを押すと受付Noの最古から昇順に表示
me.orderby="受付No desc"
me.orderbyon = true
※asc と desc が逆かもしれない・・・。

結果一覧画面に10行だけ表示
「次へ」ボタンを押すと次の10行
「前へ」ボタンを押すと前の10行
これは安直すぎるかもしれませんが
フォームのサイズをちょうど10レコードが表示されるようにしておいて
PageUp/PageDownキーで移動・・・ではダメですか?
フォームの書式の境界線スタイルをダイアローグにして
デザインビューとフォームビューを切り替えながら微調整。
    • good
    • 0
この回答へのお礼

遅くなりすみませんでした。
ご親切にありがとうございました!できました!
PageUp、PageDownはボタンを作成して、キー送信で行くことにしました。
ありがとうございました!

お礼日時:2015/06/21 23:42

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!