
教えてください。Access2000です。
Private Sub 次へ_Click()
On Error GoTo Err_次へ_Click
On Error Resume Next
DoCmd.GoToRecord , , acNext
Exit_次へ_Click:
Exit Sub
Err_次へ_Click:
MsgBox ERR.Description
Resume Exit_次へ_Click
End Sub
って書いたのですが、最後のレコードまで行った後
「次へ」をクリックすると実行時エラーになってしまいます。
移動できませんとかメッセージで逃げたいのですがどうすればいいのでしょうか?
お願いします。
No.2ベストアンサー
- 回答日時:
こんにちは。
maruru01です。先頭レコードや末尾レコードは以下のように判定出来ます。
Dim tempRecNum As Long
tempRecNum = Me.CurrentRecord
Select Case tempRecNum
Case Me.Recordset.RecordCount
MsgBox "一番後ろのレコード"
Case 1
MsgBox "一番前のレコード"
Case Else
MsgBox tempRecNum & "番目のレコード"
End Select
ご回答、ありがとうございました。
無事できました。感謝いたします。
Dcountでしかレコード件数を数える事を知らない私には
大変勉強になりました。
今後もこのケース文はいろんな場面で使用できそうです。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) VBAで重複した値のセルに色付けをしたい 1 2022/11/02 16:12
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 標準モジュール Public mOnTime As Date Sub sample() '実行プロシ 1 2023/02/22 15:44
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
おすすめの美術館・博物館、教えてください!
美術館・博物館が大好きです。みなさんのおすすめをぜひお聞きしたいです。
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
あなたの人生で一番ピンチに陥った瞬間は?
これまでの人生で今振り返ると「あの時、1番ピンチだったなぁ...」という瞬間はありますか?
-
【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
【お題】追い込まれた犯人が咄嗟に言った一言とは?
-
Accessの更新前処理について。DoCmd.GoToRecordが動かないのはなぜ?
その他(プログラミング・Web制作)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
アクセスのフォームのビューが表示されないのですが、
その他(データベース)
-
-
4
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
5
フォームで入力しても反映されない
Access(アクセス)
-
6
アクセスでフォームビューがみれません?
Access(アクセス)
-
7
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
8
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
-
9
YES/NO型の値
Excel(エクセル)
-
10
ACCESS2013でバーコードリーダーを使用し、簡略化したい
Access(アクセス)
-
11
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードの差し込み文書で困って...
-
差込印刷での条件指定
-
レコードの波打ちを直す方法を...
-
7インチ(CD?)って・・・
-
バイナリファイルから一部を抜...
-
ワード2003 Nextレコード...
-
ポールとポーラ
-
(C)は著作権、(R)は商標...
-
Access クエリの結果が0件だっ...
-
全銀フォーマットで使用する各...
-
GoToRecordで実行時エラー '2105'
-
アクセスのレポート、VBAで罫線...
-
Accessのレポートについ...
-
禁止マークのレコードと三角マ...
-
【至急!】差し込み印刷を使用...
-
アナログレコード 手書きRVGっ...
-
お教えください。 jimdo フリー...
-
音楽CDは何時から一般に普及...
-
マリア,マーテル グラッチェの...
-
エクセルからアクセスにデータ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードの差し込み文書で困って...
-
レコードの波打ちを直す方法を...
-
7インチ(CD?)って・・・
-
エクセルからアクセスにデータ...
-
(C)は著作権、(R)は商標...
-
差込印刷での条件指定
-
VBAでレコードセットの総レコー...
-
【至急!】差し込み印刷を使用...
-
Access クエリの結果が0件だっ...
-
今の時代でもCDを買う人はいる...
-
アクセスのレポート、VBAで罫線...
-
マリア,マーテル グラッチェの...
-
浜田 省吾さんの奥さんって
-
エクセルVBAでアクセスの任意の...
-
GoToRecordで実行時エラー '2105'
-
Accessのレポートについ...
-
ポールとポーラ
-
20世紀少年について
-
GLAYが移籍?
-
ワード2003 Nextレコード...
おすすめ情報