IBM Lotus Symphony
|
プログラム実行中に発生したエラー内容の特定に利用するエラーコードを返します。
Err
整数
エラーの内容を特定して問題点を修正する場合、Err 関数を使ったエラー処理ルーチンが利用できます。
sub ExampleError
on error goto ErrorHandler REM エラーハンドラの設定
Dim iVar as Integer
Dim sVar As String
REM 存在しないファイルにアクセスするとエラーが発生
iVar = Freefile
Open "¥file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ErrorHandler:
MsgBox "Error " & Err & ":" & Error$ + chr(13) + "At line :" + Erl + chr(13) + Now , 16 ,"an error occurred"
end sub