List 6-70 変更した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:
16: ' 製品関連のエラー
17: Err_PRICE = vbObjectError + 513 + 200 + 1 ' 価格が正しくない
18: Err_WILLDAY = vbObjectError + 513 + 200 + 2 ' 入庫予定日,出庫予定日が正しくない
19: Err_DUEDATE = vbObjectError + 513 + 200 + 3 ' 入庫施行日,出庫施行日が正しくない
20: Err_PRODUCTID = vbObjectError + 513 + 200 + 4 ' 製品番号が正しくない
21: Err_NUMBER = vbObjectError + 513 + 200 + 5 ' 数量が正しくない
22: Err_SLIPID = vbObjectError + 513 + 200 + 6 ' 伝票番号が正しくない
23:
24: End Enum