List 7-100　FormEditStockフォームのBTN_OK_Clickプロシージャ

---

  1： Private Sub BTN_OK_Click()
  2：     ' ［OK］ボタンが押されたときの処理
  3：     Dim objProduct As Business.Product
  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 objProduct = CreateObject("Business.Product")
 17：     
 18：     
 19：     If StockID = -1 Then
 20：         ' 新規登録
 21：         StockID = objProduct.AddStorage(TXT_WILLDATE.Text, _
   　                                         PRODUCTID, _
   　                                         TXT_NUMBER.Text, _
   　                                         TXT_MEMO.Text)
 22：     Else
 23：         ' 既存の入庫情報の編集
 24：         If TXT_WILLDATE.Enabled Then
 25：             objProduct.UpdateStorage StockID, _
   　                                      TXT_WILLDATE, _
   　                                      PRODUCTID, _
   　                                      TXT_NUMBER.Text, _
   　                                      TXT_MEMO.Text
 26：         End If
 27：     End If
 28：     
 29：     Set objProduct = Nothing
 30：     Me.Hide
 31：     
 32：     Exit Sub
 33：     
 34： ErrHandle:
 35：     ' エラーが発生した
 36：     MsgBox Err.Description, vbOKOnly, "入庫情報の更新エラー"
 37：     Set objProduct = Nothing
 38： End Sub