List 6-19 Errorcode列挙型(赤色部分が追加した箇所)
1: Public Enum Errorcode
2: ' エラーの列挙型
3: ' 一般のエラー
4: Err_NotFound = vbObjectError + 513 + 1 ' 見つからない
5:
6: ' 顧客関連のエラー
7: Err_NAMETOOLONG = vbObjectError + 513 + 100 + 1 ' 顧客名が長すぎる
8: Err_YOMIGANATOOLONG = vbObjectError + 513 + 100 + 2 ' よみがなが長すぎる
9: Err_ZIPTOOLONG = vbObjectError + 513 + 100 + 3 ' 郵便番号が長すぎる
10: Err_ADDRESSTOOLONG = vbObjectError + 513 + 100 + 4 ' 住所が長すぎる
11: Err_TELEPHONETOOLONG = vbObjectError + 513 + 100 + 5 ' 電話番号が長すぎる
12: Err_FAXTOOLONG = vbObjectError + 513 + 100 + 6 ' FAX番号が長すぎる
13: Err_MEMOTOOLONG = vbObjectError + 513 + 100 + 7 ' 摘要が長すぎる
14: Err_BILLDAY = vbObjectError + 513 + 100 + 8 ' 締め日の設定エラー
15: End Enum