教えてください。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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Accessの更新前処理について。DoCmd.GoToRecordが動かないのはなぜ?
その他(プログラミング・Web制作)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
-
4
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
5
ACCESSのフォームからデータの追加ができない
その他(データベース)
-
6
サブフォームの新規レコードに移動したい アクセス
Access(アクセス)
-
7
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
8
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
9
アクセスの更新クエリでカレントレコードのみ更新したい
Access(アクセス)
-
10
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
11
ACCESSで条件によってフォーム上のフィールドの色を変更
Access(アクセス)
-
12
アクセスで追加した項目に全て同じ値を一発で入れたい
Access(アクセス)
-
13
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
14
アクセス 前レコード内容を、新レコードにコピー
Access(アクセス)
-
15
access テキストボックスの値取得
Access(アクセス)
-
16
accessのVBAで変数名でフィールド指定は?
その他(データベース)
-
17
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
18
Accessのテーブルを開いたときに最後のレコードを表示させたい
Access(アクセス)
-
19
Access 既に開いているフォームへの値渡し
その他(Microsoft Office)
-
20
Access2010 Enterで次テキストへ移動
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レコードの波打ちを直す方法を...
-
これはミス、アグネス・チャン...
-
Yahoo!メールでSPFレコード DKI...
-
(C)は著作権、(R)は商標...
-
7インチ(CD?)って・・・
-
レコードにはあって、CDやYou T...
-
村下孝蔵氏の代表曲 『 初恋 』...
-
80年代のテレビ番組 ひょうきん...
-
アクセスのレポート、VBAで罫線...
-
自分だけのゲーム曲を収録した...
-
全銀フォーマットで使用する各...
-
レコードをCD化。店頭持ち込み...
-
音楽CDは何時から一般に普及...
-
エクセルからアクセスにデータ...
-
椎名恵 レコード今夜はエンジ...
-
両A面って?
-
エクセルで作った住所録をラベ...
-
シェルスクリプト 環境変数RS
-
可変のグローバルIPアドレスで...
-
差込印刷での条件指定
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
7インチ(CD?)って・・・
-
レコードの波打ちを直す方法を...
-
(C)は著作権、(R)は商標...
-
Yahoo!メールでSPFレコード DKI...
-
自分だけのゲーム曲を収録した...
-
差込印刷での条件指定
-
Access クエリの結果が0件だっ...
-
【至急!】差し込み印刷を使用...
-
レコードをCD化。店頭持ち込み...
-
エクセルからアクセスにデータ...
-
マリア,マーテル グラッチェの...
-
可変のグローバルIPアドレスで...
-
VBAでレコードセットの総レコー...
-
音楽CDは何時から一般に普及...
-
ダークダックスのめざせモスクワ
-
レコードにはあって、CDやYou T...
-
ポールとポーラ
-
浜田 省吾さんの奥さんって
-
お教えください。 jimdo フリー...
-
20世紀少年について
おすすめ情報