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