OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

accessフォームの質問です(3)

  • すぐに回答を!
  • 質問No.133745
  • 閲覧数75
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 86% (350/406)

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

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

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

質問者が選んだベストアンサー

  • 回答No.1
レベル14

ベストアンサー率 51% (1179/2272)

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

前部略

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)、マクロを実行しないような条件分岐をしてやればいいと思いますが。
では。
お礼コメント
omusupa

お礼率 86% (350/406)

お礼が送れて申し訳ありません。
見事にエラーは出なました。
ありがとうございました。
投稿日時 - 2001-09-12 18:12:46
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ