accessフォームの質問です（３）

質問

以前に、以下のような質問をしているのですが、
http://oshiete1.goo.ne.jp/kotaeru.php3?q=133280

少し分からないことができてしまったので、またお願いします。

ボタンを押すと、５件先のデータに行くような、ボタンをつくりたくて
質問をさせていただいたのですが、
問題の数が３２問と、５で割り切れる数ではありません。
そのため、最後の２問をボタンを使って表示することができません。（エラーが出てきます）
（垂直スクロールバーも非表示にしています）
どうしたらよいでしょうか？
よろしくお願いします。

回答No.1

maruru01 · ベストアンサー

とりあえず、エラーハンドリングで逃げる方法を。
確かマクロをつくったんですよね。
マクロの実行の前にエラーハンドリングの文を入れます。
前もって、現在出るエラーの番号を調べておいて下さい。

前部略

On Error Goto Err1
DoCmd.RunMacro マクロ名

中略

Exit Sub

Err1:
If Err.Number = (エラー番号) then
Msgbox "残りは５件未満です。", vbCritical
End If

End sub

この場合は残り５件未満の時は何もしませんが、
If文の中に最終レコードへ移動するように書いてもいいかも知れません。
その場合はResumeでマクロ実行のすぐ下にもどるようにします。

もし、オートNo.のフィールドがあれば、そのフィールドの値で残りのレコード数を求め、５未満なら（最大値 - 現在のレコードの値 < 5）、マクロを実行しないような条件分岐をしてやればいいと思いますが。
では。

お礼

お礼が送れて申し訳ありません。
見事にエラーは出なました。
ありがとうございました。