List 7-27　変更したFormEditCustomerフォームのBTN_OK_Clickプロシージャ（変更箇所は赤色で示した）

  1： Private Sub BTN_OK_Click()
  2：     ' ［OK］ボタンが押されたときの処理
  3：     Dim objCustomer As Business.Customer
  4：     
  5：     On Error GoTo ErrHandle
  6：     
  7：     Set objCustomer = CreateObject("Business.Customer")
  8：     
  9：     If CustomerID = -1 Then
 10：         ' 新規登録する
 11：         CustomerID = objCustomer.AddCustomer(TXT_CUSTOMERNAME.Text, _
   　                                                TXT_YOMIGANA.Text, _
   　                                                TXT_ZIP.Text, TXT_ADDRESS.Text, _
   　                                                TXT_TELEPHONE.Text, TXT_FAX.Text, _
   　                                                TXT_MEMO.Text)
 12：     Else
 13：         ' 既存の顧客の編集
 14：         If TXT_CUSTOMERNAME.Enabled Then
 15：             objCustomer.UpdateCustomer CustomerID, TXT_CUSTOMERNAME.Text, _   　                                        TXT_YOMIGANA.Text, TXT_ZIP.Text, _
   　                                        TXT_ADDRESS.Text, TXT_TELEPHONE.Text, _                                             TXT_FAX.Text, TXT_MEMO.Text
 16：         End If
 17：     End If
 18：     ' 締め日が有効であれば，それも設定
 19：     If TXT_BILLDAY.Enabled Then
 20：         objCustomer.UpdateCustomer_BILLDAY CustomerID, TXT_BILLDAY.Text
 21：     End If
 22：         
 23：     Set objCustomer = Nothing
 24： 
 25：     ' フォームを閉じる
 26：     Me.Hide
 27：     Exit Sub
 28：     
 29： ErrHandle:
 30：     ' エラーが発生した
 31：     MsgBox Err.Description, vbOKOnly, "顧客の更新エラー"
 32：     Set objCustomer = Nothing
 33： End Sub