List 6-35　Business.CustomerコンポーネントのUndeleteCustomerメソッド

  1： Public Sub UndeleteCustomer(ByVal ID As Long)
  2：     ' 指定された顧客番号をもつ顧客を復活させる
  3：     ' 【引数】
  4：     '   ID = 復活させたい顧客を特定する顧客番号を指定する
  5：     ' 【戻り値】
  6：     '   なし
  7：     Dim objContext As ObjectContext
  8：     Dim objDataCustomer As DataObj.Customer
  9：     
 10：     ' オブジェクトコンテキストの取得
 11：     Set objContext = GetObjectContext()
 12：     
 13：     ' エラーハンドラの設定
 14：     On Error GoTo ErrHandle
 15：     
 16：     ' DataObj.Customerの実体化
 17：     Set objDataCustomer = CreateObject("DataObj.Customer")
 18：     
 19：     ' DELETEDFLAGフィールドの値をFALSEに設定する
 20：     objDataCustomer.SetDeletedFlag ID, False
 21：     
 22：     ' DataObj.Customerの解放
 23：     Set objDataCustomer = Nothing
 24：     ' コミットする
 25：     objContext.SetComplete
 26：     
 27：     ' オブジェクトコンテキストの解放
 28：     Set objContext = Nothing
 29：     
 30：     Exit Sub
 31： 
 32： ErrHandle:
 33：     ' エラーハンドラ
 34：     objContext.SetAbort
 35：     Set objContext = Nothing
 36：     Set objDataCustomer = Nothing
 37：     
 38：     ' エラーの再発行
 39：     Err.Raise Err.Number, Err.Source, Err.Description, _
   　               Err.HelpFile, Err.HelpContext
 40： End Sub