No.2ベストアンサー
- 回答日時:
詳しくは、DoCmd.GoToRecord・・・の行にブレークポイント(F9)を仕掛けてコードを実行し、止まった位置から1行ずつ実行(F8)させると分かります。
*****エラー処理の色々************
Sub cmd次_Click()
MsgBox "1"
On Error Resume Next '以後エラーが起きても無視する
DoCmd.GoToRecord , , acNext
If Err <> 0 Then 'エラーが起きていれば
MsgBox "2"
End If
On Error GoTo 0 '以後エラーが起きたら、エラーになる
MsgBox "3"
End Sub
'DoCmd.GoToRecord・・・でエラーなら1,2,3、エラーでなければ1,3
*****************
Sub cmd次_Click()
MsgBox "1"
On Error GoTo ErrTrap 'エラーが起きた時点でErrTrapにジャンプ
DoCmd.GoToRecord , , acNext
MsgBox "2"
MsgBox "3"
Exit_Click:
MsgBox "4"
Exit Sub
ErrTrap:
MsgBox "5"
Resume 'エラーをクリアして、再トライ
End Sub
'エラー時は、1,5,5,5,5・・・(次レコードに移動できるようになるまで、繰り返し) 、非エラー時は1,2,3,4
*******************
Sub cmd次_Click()
MsgBox "1"
On Error GoTo ErrTrap 'エラーが起きた時点でErrTrapにジャンプ
DoCmd.GoToRecord , , acNext
MsgBox "2"
MsgBox "3"
Exit_Click:
MsgBox "4"
Exit Sub
ErrTrap:
MsgBox "5"
Resume Next'エラーをクリアして、エラーの次の行にジャンプ
End Sub
'エラー時は、1,5,2,3,4 、非エラー時は1,2,3,4
*******************
Sub cmd次_Click()
MsgBox "1"
On Error GoTo ErrTrap 'エラーが起きた時点でErrTrapにジャンプ
DoCmd.GoToRecord , , acNext
MsgBox "2"
MsgBox "3"
Exit_Click:
MsgBox "4"
Exit Sub
ErrTrap:
MsgBox "5"
Resume Exit_Click 'エラーをクリアして、Exit_Clickにジャンプ
End Sub
'エラー時は、1,5,4 、非エラー時は1,2,3,4
*******************
No.1
- 回答日時:
On Error GoTo ラベルは
それ以降の処理でエラーが発生したときにラベルにジャンプします。
次の行が繰り返し文ですが、処理中にエラーが発生したときは繰り返しを中止してErrへジャンプしてエラーメッセージを表示してEnd Subで終了します。
エラーが無ければ条件まで繰り返し処理を行いExit Subで終了します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBAで重複した値のセルに色付けをしたい 1 2022/11/02 16:12
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBでSQL文のUPDATE構文を使った...
-
【Access】Excelインポート時に...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
.VBSだとADODBのプロバイダが見...
-
「実行時エラー '3167' レコー...
-
On ErrorでエラーNoが0
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
SQLでエラーです。
-
マクロで"#N/A"のエラー行を削...
-
実行時エラー'-2147467259(8000...
-
ASPでこんなエラーが出たんです...
-
エクセルVBA 「On Error GoTo...
-
python初心者です。
-
お助けください!VBAのファイル...
-
シングルクォーテーションを含...
-
Excel vbaについての質問
-
VBSCRIPTで返されるErr.Number...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
On ErrorでエラーNoが0
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
VBA データ(特定値)のある最...
-
実行時エラー 438 の解決策をお...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
エクセルVBA 「On Error GoTo...
-
【VBA】ワークブックを開く時に...
-
マクロの「SaveAs」でエラーが...
-
ACCESSで値を代入できないとは?
-
実行時エラー'-2147467259(8000...
-
インポート時のエラー「データ...
-
【VB.NET】 パワポ操作を非表示で
-
Filter関数を用いた結果、何も...
-
UBoundに配列がありませんとエ...
-
Excel vbaについての質問
-
メールの件名のセットでエラー...
おすすめ情報