List 6-12　各フィールドを変更するメソッドをそれぞれ用意する

  1： Sub Update_NAME(ByVal ID As Long, ByVal NAME As Variant)
  2： ' IDで指定された顧客番号の顧客の顧客名をNAMEに変更するメソッド
  3： End Sub
  4： 
  5： Sub Update_YOMIGANA(ByVal ID As Long, ByVal YOMIGANA As Variant)
  6： ' IDで指定された顧客番号の顧客のよみがなをYOMIGANAに変更するメソッド
  7： End Sub
  8： 
  9： Sub Update_ZIP(ByVal ID As Long, ByVal ZIP As Variant)
 10： ' IDで指定された顧客番号の顧客の郵便番号をZIPに変更するメソッド
 11： End Sub
 12： 
 13： Sub Update_ADDRESS(ByVal ID As Long, ByVal ADDRESS As Variant)
 14： ' IDで指定された顧客番号の顧客の住所をADDRESSに変更するメソッド
 15： End Sub
 16：
 17： Sub Update_TELEPHONE(ByVal ID As Long, ByVal TELEPHONE As Variant)
 18： ' IDで指定された顧客番号の顧客の電話番号をTELEPHONEに変更するメソッド
 19： End Sub
 20： 
 21： Sub Update_FAX(ByVal ID As Long, ByVal FAX As Variant)
 22： ' IDで指定された顧客番号の顧客のFAX番号をFAXに変更するメソッド
 23： End Sub
 24：
 25： Sub Update_MEMO(ByVal ID As Long, ByVal MEMO As Variant)
 26： ' IDで指定された顧客番号の顧客の摘要をMEMOに変更するメソッド
 27： End Sub
 28：
 29： Sub Update_BILLDAY(ByVal ID As Long, ByVal BILLDAY As Variant)
 30： ' IDで指定された顧客番号の顧客の締め日をBILLDAYに変更するメソッド
 31： End Sub