List 7-72　FormEditProductフォームのBTN_OK_Clickプロシージャ

---

  1： Private Sub BTN_OK_Click()
  2：     ' ［OK］ボタンが押されたときの処理
  3：     Dim objProduct As Business.Product
  4：     
  5：     On Error GoTo ErrHandle
  6：     
  7：     Set objProduct = CreateObject("Business.Product")
  8：     
  9：     If PRODUCTID = -1 Then
 10：         ' 新規登録
 11：         PRODUCTID = objProduct.AddProduct(TXT_PRODUCTNAME.Text, _
   　                                           TXT_YOMIGANA.Text, _
   　                                           TXT_PRICE.Text, _
   　                                           TXT_MEMO.Text)
 12：     Else
 13：         ' 既存の製品の編集
 14：         If TXT_PRODUCTNAME.Enabled Then
 15：             objProduct.UpdateProduct PRODUCTID, _
   　                                      TXT_PRODUCTNAME.Text, _
   　                                      TXT_YOMIGANA.Text, _
   　                                      TXT_PRICE.Text, _
   　                                      TXT_MEMO.Text
 16：         End If
 17：     End If
 18：     
 19：     Set objProduct = Nothing
 20：     Me.Hide
 21：     Exit Sub
 22：     
 23： ErrHandle:
 24：     ' エラーが発生した
 25：     MsgBox Err.Description, vbOKOnly, "製品の更新エラー"
 26：     Set objProduct = Nothing
 27： End Sub