List 7-30　FormCustomerフォームのBTN_UNDELETE_Clickプロシージャ

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