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