エラーを発生させる: データベースエンジニアが行く

<< JavascriptでPostとGetを切り替える | TOP | INSERT...ON DUPLICATE KEY UPDATE構文 >>

2017年10月17日

エラーを発生させる

Access vbaにはループを途中で抜けるコマンドがない。

わざとエラーを発生させて、疑似breakさせます。

Subプロシージャの場合

Private Sub test_Click()
On Error GoTo ErrLabel
Dim i As Integer

For i = 1 To 20
　If i = 10 Then
　　'エラーを発生させる
　　Err.Raise 1
　End If
Next

'次処理
ExitLabel:
　MsgBox ("i = " & i & " です。")
　'
　'
　End

'エラー処理
ErrLabel:
strErrMsg = Err.Number & ":" & Err.Description
MsgBox strErrMsg, vbExclamation + vbOKOnly, "エラー確認"
Resume ExitLabel

End Sub

補足
「アプリケーション定義またはオブジェクト定義のエラーです。」のエラーが発生します。

continueが実現できたら便利そう。

【このカテゴリーの最新記事】