List 7-131　FormSlipフォームのBTN_UNDELETE_Clickプロシージャ

---

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