List 7-103　FormStockフォームのBTN_DUE_Clickプロシージャ

---

  1： Private Sub BTN_DUE_Click()
  2：     ' ［入庫施行］ボタンが押されたときの処理
  3：     Dim objProduct As Business.Product
  4：     Dim StockID As Long
  5：     
  6：     ' 入庫施行の確認
  7：     If MsgBox("入出庫番号" & g_objRec.Fields("ID").Value & _
   　               "のデータを入庫ずみとしてよろしいですか", vbYesNo, _
  8：               "入庫施行の確認") = vbYes Then
  9：         ' 入庫ずみとする
 10：         On Error GoTo ErrHandle
 11：         Set objProduct = CreateObject("Business.Product")
 12：         objProduct.SetDue g_objRec.Fields("ID").Value
 13：         Set objProduct = Nothing
 14：         ' データグリッドの表示を更新
 15：         StockID = g_objRec.Fields("ID").Value
 16：         RefreshData
 17：         g_objRec.MoveFirst
 18：         g_objRec.Find "ID=" & StockID, 0, adSearchForward
 19：     End If
 20：     
 21：     Exit Sub
 22： 
 23： ErrHandle:
 24：     ' ビジネスオブジェクトの呼び出しに失敗
 25：     MsgBox Err.Description, vbOKOnly, "入庫施行"
 26：     Set objProduct = Nothing
 27： End Sub