'***************************************************************************************************
'* 処理名 :TEST2
'* 機能 :テスト②
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2016年11月19日
'* 作成者 :井上 治
'* 更新日 :2019年12月30日
'* 更新者 :井上 治
'* 機能説明:エラー表記を独自にコントロールする例
'* 注意事項:
'***************************************************************************************************
Sub TEST2()
'-----------------------------------------------------------------------------------------------
Const cnsTitle As String = "TEST2"
Dim vrnINPUT As Variant ' 入力値WORK
Dim intNUM As Integer ' 転記先変数(整数)
Dim strMSG As String ' メッセージWORK
vrnINPUT = "a" ' 入力データ
On Error GoTo TEST2_ERR
intNUM = vrnINPUT ' 整数型変数に転記(エラー発生)
GoTo TEST2_EXIT
'===================================================================================================
' エラー時の飛び先(行ラベル)
TEST2_ERR:
' エラーメッセージを編集
strMSG = "実行時エラー:" & Err.Number & " " & Err.Description & vbCr & _
"入力データは「" & vrnINPUT & "」です。"
' エラーメッセージを表示
MsgBox strMSG, vbCritical, cnsTitle
'===================================================================================================
' 終了
TEST2_EXIT:
On Error GoTo 0
End Sub
'***************************************************************************************************
'* 処理名 :TEST3
'* 機能 :テスト③
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2016年11月19日
'* 作成者 :井上 治
'* 更新日 :2019年12月30日
'* 更新者 :井上 治
'* 機能説明:エラー表記を独自にコントロールする例②
'* 注意事項:
'***************************************************************************************************
Sub TEST3()
'-----------------------------------------------------------------------------------------------
Const cnsTitle As String = "TEST3"
Dim vrnINPUT As Variant ' 入力値WORK
Dim intNUM As Integer ' 転記先変数(整数)
Dim strMSG As String ' メッセージWORK
vrnINPUT = "a" ' 入力データ
On Error GoTo TEST3_ERR
intNUM = vrnINPUT ' 整数型変数に転記(エラー発生)
' 処理結果表示
strMSG = "結果は" & intNUM & "で正常終了しました。"
MsgBox strMSG, vbInformation, cnsTitle
GoTo TEST3_EXIT
'===================================================================================================
' エラー時の飛び先(行ラベル)
TEST3_ERR:
' エラーメッセージを編集
strMSG = "実行時エラー:" & Err.Number & " " & Err.Description & vbCr & _
"入力データは「" & vrnINPUT & "」です。ゼロに置き換えますか?"
' エラーメッセージを表示(確認入力を求める)
If MsgBox(strMSG, vbExclamation + vbYesNo, cnsTitle) = vbYes Then
' ゼロを上書き
intNUM = 0
' エラー発生箇所の次に進める
Resume Next
End If
'===================================================================================================
' 終了
TEST3_EXIT:
On Error GoTo 0
End Sub
'***************************************************************************************************
'* 処理名 :TEST4
'* 機能 :テスト④
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2016年11月19日
'* 作成者 :井上 治
'* 更新日 :2019年12月30日
'* 更新者 :井上 治
'* 機能説明:エラー処理を判断に利用する例
'* 注意事項:
'***************************************************************************************************
Sub TEST4()
'-----------------------------------------------------------------------------------------------
Const cnsTitle As String = "TEST4"
Dim objFso As FileSystemObject ' FileSystemObject
Dim objTs As TextStream ' TextStream
Dim blnOpen As Boolean ' ファイルOpen判定
Dim strFilename As String ' ファイル名
Dim strRec As String ' レコードWORK
Dim strMSG As String ' メッセージWORK
On Error GoTo TEST4_ERR
Set objFso = New FileSystemObject
' ファイル名を編集
strFilename = objFso.BuildPath(ThisWorkbook.Path, "HOGEHOGE.txt")
' ファイルをOPENする(エラー発生)
Set objTs = objFso.OpenTextFile(strFilename, ForReading, False)
blnOpen = True
strRec = objTs.ReadLine
' 処理結果表示
MsgBox "レコード内容=" & strRec, vbInformation, cnsTitle
GoTo TEST4_EXIT
'===================================================================================================
' エラー時の飛び先(行ラベル)
TEST4_ERR:
' 「ファイルが見つかりません」か
If Err.Number = 53 Then
' ファイル無しの時は代替処置でファイルを作成
Set objTs = objFso.CreateTextFile(strFilename, False)
objTs.WriteLine "abc"
objTs.Close
' エラー発生行に戻る
Resume
Else
' その他エラーはメッセージ表示
strMSG = "実行時エラー:" & Err.Number & " " & Err.Description
' エラーメッセージを表示
MsgBox strMSG, vbCritical, cnsTitle
End If
'===================================================================================================
' 終了
TEST4_EXIT:
' ファイルClose
If blnOpen Then objTs.Close
Set objFso = Nothing
On Error GoTo 0
End Sub
'***************************************************************************************************
'* 処理名 :TEST5
'* 機能 :テスト⑤
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年12月30日
'* 作成者 :井上 治
'* 更新日 :2019年12月30日
'* 更新者 :井上 治
'* 機能説明:エラー時飛び先ラベルを作らない方法
'* 注意事項:
'***************************************************************************************************
Sub TEST5()
'-----------------------------------------------------------------------------------------------
Const cnsTitle As String = "TEST5"
Dim lngIx As Long ' テーブルINDEX
Dim tblINPUT As Variant ' 入力値WORK(テーブル利用)
Dim intNUM As Integer ' 転記先変数(整数)
Dim strMSG As String ' メッセージWORK
tblINPUT = Array(1, 2, 3, "a", 5)
On Error Resume Next
' tblINPUTを巡回
Do While lngIx <= UBound(tblINPUT)
' 処理過程をDebug表示
Debug.Print CStr(lngIx) & "、値=" & tblINPUT(lngIx)
' 整数型変数に転記
intNUM = tblINPUT(lngIx)
' エラー検査
If Err.Number <> 0 Then
' エラーメッセージを編集
strMSG = "実行時エラー:" & Err.Number & " " & Err.Description & vbCr & _
"入力データは「" & tblINPUT(lngIx) & "」です。(IX=" & lngIx & ")"
' エラーメッセージを表示
MsgBox strMSG, vbCritical, cnsTitle
Exit Do
End If
' 次へ
lngIx = lngIx + 1
Loop
On Error GoTo 0
End Sub
'***************************************************************************************************
' エラーテスト OnErrorTest1(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
' 上層プロシージャで「On Error GoTo」を設定した後に下層プロシージャを呼び出す。
' 呼ばれた下層プロシージャでも「On Error GoTo」を設定し、その後上層プロシージャ側に戻った時に
' 下層プロシージャ呼び出し前に設定した「On Error GoTo」が有効なのかをテストする。
' 3層のプロシージャを用意しており、それぞれ終了時点では「On Error GoTo 0」を行なっている。
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'19/08/13(1.00)新規作成
'19/11/03(1.10)エラー表示方法の合理化、他
'***************************************************************************************************
Option Explicit
'===================================================================================================
Private Const g_cnsTitle As String = "エラーテスト"
'***************************************************************************************************
' ■■■ メイン処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST1
'* 機能 :テスト
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年11月03日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Sub TEST1()
'-----------------------------------------------------------------------------------------------
Const cnsProcName As String = "TEST1" ' プロシージャ名
Dim objMsgIcon As VbMsgBoxStyle ' メッセージアイコン
Dim strErrMSG As String ' エラーメッセージ
objMsgIcon = vbExclamation
On Error GoTo TEST1_ERROR
Call TEST2(objMsgIcon, strErrMSG)
Err.Raise 61 ' ←ディスクの空き容量が不足しています。
GoTo TEST1_EXIT
'===================================================================================================
' エラー処理
TEST1_ERROR:
Call GP_AppendMessage(FP_EditFatalMSG(cnsProcName), strErrMSG)
objMsgIcon = vbCritical
Debug.Print "TEST1_ERROR"
'===================================================================================================
' 終了
TEST1_EXIT:
' エラーがあるか
If strErrMSG <> "" Then
MsgBox strErrMSG, objMsgIcon, g_cnsTitle
End If
On Error GoTo 0
End Sub
'***************************************************************************************************
' ■■■ サブ処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST2
'* 機能 :テスト
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :Arg1 = メッセージアイコン(Object) ※Ref参照
'* Arg2 = エラーメッセージ(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年11月03日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Sub TEST2(ByRef objMsgIcon As VbMsgBoxStyle, ByRef strErrMSG As String)
'-----------------------------------------------------------------------------------------------
Const cnsProcName As String = "TEST2" ' プロシージャ名
On Error GoTo TEST2_ERROR
Call TEST3(objMsgIcon, strErrMSG)
Err.Raise 62 ' ←ファイルにこれ以上データがありません。
GoTo TEST2_EXIT
'===================================================================================================
' エラー処理
TEST2_ERROR:
Call GP_AppendMessage(FP_EditFatalMSG(cnsProcName), strErrMSG)
objMsgIcon = vbCritical
Debug.Print "TEST2_ERROR"
'===================================================================================================
' 終了
TEST2_EXIT:
On Error GoTo 0
End Sub
'***************************************************************************************************
'* 処理名 :TEST3
'* 機能 :テスト
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :Arg1 = メッセージアイコン(Object) ※Ref参照
'* Arg2 = エラーメッセージ(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年11月03日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Sub TEST3(ByRef objMsgIcon As VbMsgBoxStyle, ByRef strErrMSG As String)
'-----------------------------------------------------------------------------------------------
Const cnsProcName As String = "TEST3" ' プロシージャ名
On Error GoTo TEST3_ERROR
Err.Raise 63 ' ←レコード番号が不正です。
GoTo TEST3_EXIT
'===================================================================================================
' エラー処理
TEST3_ERROR:
Call GP_AppendMessage(FP_EditFatalMSG(cnsProcName), strErrMSG)
objMsgIcon = vbCritical
Debug.Print "TEST3_ERROR"
'===================================================================================================
' 終了
TEST3_EXIT:
On Error GoTo 0
End Sub
'***************************************************************************************************
' ■■■ 共通サブ処理 ■■■
'***************************************************************************************************
'* 処理名 :GP_AppendMessage
'* 機能 :メッセージ累積
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :Arg1 = 今回メッセージ(String)
'* Arg2 = 累積メッセージ(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年08月13日
'* 更新者 :井上 治
'* 機能説明:改行を挟んでメッセージを累積する
'* 注意事項:
'***************************************************************************************************
Private Sub GP_AppendMessage(ByVal strAddMSG As String, ByRef strRuiMSG As String)
'-----------------------------------------------------------------------------------------------
If strRuiMSG <> "" Then strRuiMSG = strRuiMSG & vbCrLf
strRuiMSG = strRuiMSG & strAddMSG
End Sub
'***************************************************************************************************
'* 処理名 :FP_EditFatalMSG
'* 機能 :例外メッセージ編集
'---------------------------------------------------------------------------------------------------
'* 返り値 :編集後メッセージ(String)
'* 引数 :Arg1 = プロシージャ名(String)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年11月03日
'* 作成者 :井上 治
'* 更新日 :2019年11月03日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Function FP_EditFatalMSG(ByVal strProcName As String) As String
'-----------------------------------------------------------------------------------------------
FP_EditFatalMSG = Err.Number & " " & Err.Description & "(" & strProcName & ")"
End Function
'----------------------------------------<< End of Source >>----------------------------------------
'***************************************************************************************************
' エラーテスト OnErrorTest2(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
' 上層プロシージャで「On Error GoTo」を設定した後に下層プロシージャを呼び出す。
' 呼ばれた下層プロシージャでも「On Error GoTo」を設定し、その後上層プロシージャ側に戻った時に
' 下層プロシージャ呼び出し前に設定した「On Error GoTo」が有効なのかをテストする。
' 3層のプロシージャを用意しており、それぞれ終了時点では「On Error GoTo 0」を行なっている。
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'19/08/13(1.00)新規作成
'19/11/03(1.10)エラー表示方法の合理化、他
'19/12/30(1.20)サブ処理側のプロシージャをFunctionに変更し上位側で処理成否を判断させる
'***************************************************************************************************
Option Explicit
'===================================================================================================
Private Const g_cnsTitle As String = "エラーテスト"
'***************************************************************************************************
' ■■■ メイン処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST1
'* 機能 :テスト
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年12月30日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Sub TEST1()
'-----------------------------------------------------------------------------------------------
Const cnsProcName As String = "TEST1" ' プロシージャ名
Dim objMsgIcon As VbMsgBoxStyle ' メッセージアイコン
Dim strErrMSG As String ' エラーメッセージ
objMsgIcon = vbExclamation
On Error GoTo TEST1_ERROR
' 下位側の不成功時は終了
If Not TEST2(objMsgIcon, strErrMSG) Then GoTo TEST1_EXIT
Err.Raise 61 ' ←ディスクの空き容量が不足しています。
GoTo TEST1_EXIT
'===================================================================================================
' エラー処理
TEST1_ERROR:
Call GP_AppendMessage(FP_EditFatalMSG(cnsProcName), strErrMSG)
objMsgIcon = vbCritical
Debug.Print "TEST1_ERROR"
'===================================================================================================
' 終了
TEST1_EXIT:
' エラーがあるか
If strErrMSG <> "" Then
MsgBox strErrMSG, objMsgIcon, g_cnsTitle
End If
On Error GoTo 0
End Sub
'***************************************************************************************************
' ■■■ サブ処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST2
'* 機能 :テスト
'---------------------------------------------------------------------------------------------------
'* 返り値 :処理成否(Boolean)
'* 引数 :Arg1 = メッセージアイコン(Object) ※Ref参照
'* Arg2 = エラーメッセージ(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年12月30日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Function TEST2(ByRef objMsgIcon As VbMsgBoxStyle, ByRef strErrMSG As String) As Boolean
'-----------------------------------------------------------------------------------------------
Const cnsProcName As String = "TEST2" ' プロシージャ名
TEST2 = False
On Error GoTo TEST2_ERROR
' 下位側の不成功時は処理を抜ける
If Not TEST3(objMsgIcon, strErrMSG) Then GoTo TEST2_EXIT
Err.Raise 62 ' ←ファイルにこれ以上データがありません。
TEST2 = True
GoTo TEST2_EXIT
'===================================================================================================
' エラー処理
TEST2_ERROR:
Call GP_AppendMessage(FP_EditFatalMSG(cnsProcName), strErrMSG)
objMsgIcon = vbCritical
Debug.Print "TEST2_ERROR"
'===================================================================================================
' 終了
TEST2_EXIT:
On Error GoTo 0
End Function
'***************************************************************************************************
'* 処理名 :TEST3
'* 機能 :テスト
'---------------------------------------------------------------------------------------------------
'* 返り値 :処理成否(Boolean)
'* 引数 :Arg1 = メッセージアイコン(Object) ※Ref参照
'* Arg2 = エラーメッセージ(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年12月30日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Function TEST3(ByRef objMsgIcon As VbMsgBoxStyle, ByRef strErrMSG As String) As Boolean
'-----------------------------------------------------------------------------------------------
Const cnsProcName As String = "TEST3" ' プロシージャ名
TEST3 = False
On Error GoTo TEST3_ERROR
Err.Raise 63 ' ←レコード番号が不正です。
' 処理成功時はTrueを返す
TEST3 = True
GoTo TEST3_EXIT
'===================================================================================================
' エラー処理
TEST3_ERROR:
Call GP_AppendMessage(FP_EditFatalMSG(cnsProcName), strErrMSG)
objMsgIcon = vbCritical
Debug.Print "TEST3_ERROR"
'===================================================================================================
' 終了
TEST3_EXIT:
On Error GoTo 0
End Function
'***************************************************************************************************
' ■■■ 共通サブ処理 ■■■
'***************************************************************************************************
'* 処理名 :GP_AppendMessage
'* 機能 :メッセージ累積
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :Arg1 = 今回メッセージ(String)
'* Arg2 = 累積メッセージ(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年08月13日
'* 更新者 :井上 治
'* 機能説明:改行を挟んでメッセージを累積する
'* 注意事項:
'***************************************************************************************************
Private Sub GP_AppendMessage(ByVal strAddMSG As String, ByRef strRuiMSG As String)
'-----------------------------------------------------------------------------------------------
If strRuiMSG <> "" Then strRuiMSG = strRuiMSG & vbCrLf
strRuiMSG = strRuiMSG & strAddMSG
End Sub
'***************************************************************************************************
'* 処理名 :FP_EditFatalMSG
'* 機能 :例外メッセージ編集
'---------------------------------------------------------------------------------------------------
'* 返り値 :編集後メッセージ(String)
'* 引数 :Arg1 = プロシージャ名(String)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年11月03日
'* 作成者 :井上 治
'* 更新日 :2019年11月03日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Function FP_EditFatalMSG(ByVal strProcName As String) As String
'-----------------------------------------------------------------------------------------------
FP_EditFatalMSG = Err.Number & " " & Err.Description & "(" & strProcName & ")"
End Function
'----------------------------------------<< End of Source >>----------------------------------------
'***************************************************************************************************
' エラーテスト OnErrorTest3(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
' 最上層プロシージャで「On Error GoTo」を設定した後に下層プロシージャを呼び出す。
' 呼ばれた下層プロシージャでは「On Error GoTo」を設定せずに最上層プロシージャのトラップが
' 有効なのかをテストする。3層のプロシージャを用意している。
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'19/08/13(1.00)新規作成
'***************************************************************************************************
Option Explicit
'===================================================================================================
Private Const g_cnsTitle As String = "エラーテスト"
'***************************************************************************************************
' ■■■ メイン処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST1
'* 機能 :テスト
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年08月13日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Sub TEST1()
'-----------------------------------------------------------------------------------------------
Dim objMsgIcon As VbMsgBoxStyle ' メッセージアイコン
Dim strProc As String ' プロシージャ
Dim strErrMSG As String ' エラーメッセージ
objMsgIcon = vbExclamation
On Error GoTo TEST1_ERROR
Call TEST2(strProc)
strProc = "TEST1"
Err.Raise 61 ' ←ディスクの空き容量が不足しています。
GoTo TEST1_EXIT
'===================================================================================================
' エラー処理
TEST1_ERROR:
Call GP_AppendMessage(Err.Number & " " & Err.Description & "(" & strProc & ")", strErrMSG)
objMsgIcon = vbCritical
Debug.Print "TEST1_ERROR"
'===================================================================================================
' 終了
TEST1_EXIT:
' エラーがあるか
If strErrMSG <> "" Then
MsgBox strErrMSG, objMsgIcon, g_cnsTitle
End If
On Error GoTo 0
End Sub
'***************************************************************************************************
' ■■■ サブ処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST2
'* 機能 :テスト
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :Arg1 = プロシージャ(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年08月13日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Sub TEST2(ByRef strProc As String)
'-----------------------------------------------------------------------------------------------
Call TEST3(strProc)
strProc = "TEST2"
Err.Raise 62 ' ←ファイルにこれ以上データがありません。
End Sub
'***************************************************************************************************
'* 処理名 :TEST3
'* 機能 :テスト
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :Arg1 = プロシージャ(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年08月13日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Sub TEST3(ByRef strProc As String)
'-----------------------------------------------------------------------------------------------
strProc = "TEST3"
Err.Raise 63 ' ←レコード番号が不正です。
End Sub
'***************************************************************************************************
' ■■■ 共通サブ処理 ■■■
'***************************************************************************************************
'* 処理名 :GP_AppendMessage
'* 機能 :メッセージ累積
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :Arg1 = 今回メッセージ(String)
'* Arg2 = 累積メッセージ(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2019年08月13日
'* 作成者 :井上 治
'* 更新日 :2019年08月13日
'* 更新者 :井上 治
'* 機能説明:改行を挟んでメッセージを累積する
'* 注意事項:
'***************************************************************************************************
Private Sub GP_AppendMessage(ByVal strAddMSG As String, ByRef strRuiMSG As String)
'-----------------------------------------------------------------------------------------------
If strRuiMSG <> "" Then strRuiMSG = strRuiMSG & vbCrLf
strRuiMSG = strRuiMSG & strAddMSG
End Sub
'----------------------------------------<< End of Source >>----------------------------------------