List 7-102　FormStockフォームのBTN_UNDELETE_Clickプロシージャ

---

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