List 7-11　FormEditCustomerフォームのBTN_OK_Clickプロシージャ

  1： Public CustomerID As Long
  2： Private Sub BTN_OK_Click()
  3：     ' ［OK］ボタンが押されたときの処理
  4：     Dim objCustomer As Business.Customer
  5：     
  6：     On Error GoTo ErrHandle
  7：     
  8：     Set objCustomer = CreateObject("Business.Customer")
  9：     
 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：         
 13：     ' 締め日が有効であれば，それも設定
 14：     If TXT_BILLDAY.Enabled Then
 15：         objCustomer.UpdateCustomer_BILLDAY CustomerID, TXT_BILLDAY.Text
 16：     End If
 17：         
 18：     Set objCustomer = Nothing
 19： 
 20：     ' フォームを閉じる
 21：     Me.Hide
 22：     Exit Sub
 23：     
 24： ErrHandle:
 25：     ' エラーが発生した
 26：     MsgBox Err.Description, vbOKOnly, "顧客の更新エラー"
 27：     Set objCustomer = Nothing
 28： End Sub