List 7-76　FormProductフォームのBTN_UNDELETE_Clickプロシージャ

---

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