List 6-3 Errorcode列挙型
1: Public Enum Errorcode
2: ' エラーの列挙型
3: ' 顧客関連のエラー
4: Err_NAMETOOLONG = vbObjectError + 513 + 100 + 1 ' 顧客名が長すぎる
5: Err_YOMIGANATOOLONG = vbObjectError + 513 + 100 + 2 ' よみがなが長すぎる
6: Err_ZIPTOOLONG = vbObjectError + 513 + 100 + 3 ' 郵便番号が長すぎる
7: Err_ADDRESSTOOLONG = vbObjectError + 513 + 100 + 4 ' 住所が長すぎる
8: Err_TELEPHONETOOLONG = vbObjectError + 513 + 100 + 5 ' 電話番号が長すぎる
9: Err_FAXTOOLONG = vbObjectError + 513 + 100 + 6 ' FAX番号が長すぎる
10: Err_MEMOTOOLONG = vbObjectError + 513 + 100 + 7 ' 摘要が長すぎる
11: End Enum