List 7-160　FormEditSlipDetailフォームのBTN_OK_Clickプロシージャ

---

  1： Private Sub BTN_OK_Click()
  2：     ' ［OK］ボタンが押されたときの処理
  3：     Dim objSlip As Business.Slip
  4：     Dim PRODUCTID As Variant
  5：     
  6：     ' コンボボックスで選択された製品の製品番号の取得
  7：     If COMBO_PRODUCT.listIndex = -1 Then
  8：         MsgBox "製品が選択されていません", vbOKOnly, _
   　                "明細情報の編集エラー"
  9：         Exit Sub
 10：     End If
 11：     
 12：     PRODUCTID = COMBO_PRODUCT.ItemData(COMBO_PRODUCT.listIndex)
 13：     
 14：     On Error GoTo ErrHandle
 15：     
 16：     Set objSlip = CreateObject("Business.Slip")
 17：     
 18：     If SlipDetailID = -1 Then
 19：         ' 新規登録
 20：         SlipDetailID = objSlip.AddSlipDetail(SlipID, PRODUCTID, _
   　                                              TXT_NUMBER.Text, TXT_UNITPRICE.Text, _
   　                                              TXT_PRICE.Text, TXT_MEMO.Text)
 21：     Else
 22：         ' 既存の明細の編集
 23：         objSlip.UpdateSlipDetail SlipDetailID, PRODUCTID, TXT_NUMBER.Text, _
   　                                  TXT_UNITPRICE.Text, TXT_PRICE.Text, TXT_MEMO.Text
 24：     End If
 25：     
 26：     Set objSlip = Nothing
 27：     Me.Hide
 28：     
 29：     Exit Sub
 30：     
 31： ErrHandle:
 32：     ' エラーが発生した
 33：     MsgBox Err.Description, vbOKOnly, "明細情報の更新エラー"
 34：     Set objSlip = Nothing
 35： End Sub