List 6-15　List 6-13のUpdateCustomerメソッドとList 6-14のGetCustomerメソッドを用いて一部のフィールドの値だけを更新する

  1： Dim ID As Long, NAME As Variant, YOMIGANA As Variant
  2： Dim ZIP As Variant, ADDRESS As Variant
  3： Dim TELEPHONE As Variant, FAX As Variant
  4： Dim BILLDAY As Variant, MEMO As Variant
  5： Dim MADEUSER As Variant, MADEDATE As Variant
  6： Dim LASTUSER As Variant, LASTDATE As Variant
  7： Dim obj As Business.Customer
  8： 
  9： Set obj = CreateObject("Business.Customer")
 10： ' 現在の顧客番号が10番の情報を取得
 11： obj.GetCustomer 10, NAME, YOMIGANA, ZIP, ADDRESS, _
   　                 TELEPHONE, FAX, BILLDAY, MEMO, _
   　                 MADEUSER, MADEDATE, LASTUSER, LASTDATE
 12： ' 電話番号を変更
 13： TELEPHONE = "03-1234-5678"
 14： ' 更新する
 15： obj.UpdateCustomer 10, NAME, YOMIGANA, ZIP, ADDRESS, _
   　                    TELEPHONE, FAX, BILLDAY, MEMO