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

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

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

A 回答 (1件)

とりあえず、エラーハンドリングで逃げる方法を。


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

前部略

On Error Goto Err1
DoCmd.RunMacro マクロ名

中略

Exit Sub

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

End sub

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

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

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

お礼日時:2001/09/12 18:12

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


人気Q&Aランキング

おすすめ情報