List 7-166　FormSlipDetailフォームのBTN_DELETE_Clickプロシージャ

---

  1： Private Sub BTN_DELETE_Click()
  2：     ' ［削除］ボタンが押されたときの処理
  3：     Dim objSlip As Business.Slip
  4：     Dim DeletedFlag As Boolean
  5：     Dim beforeSlipDetailID As Long, SlipDetailID As Long
  6：     
  7：     ' 削除の確認
  8：     If MsgBox("選択されたのデータを削除してよろしいですか", vbYesNo, _
   　               "削除の確認") = vbYes Then
 10：         ' 現在のDELETEDFLAGフィールドの値を取得する
 11：         On Error GoTo ErrHandle
 12：         ' 削除する
 13：         Set objSlip = CreateObject("Business.Slip")
 14：         objSlip.DeleteSlipDetail g_objRec.Fields("ID").Value
 15：         
 16：         ' データグリッドの表示を更新
 17：         RefreshData
 18：         
 19：         Set objSlip = Nothing
 20：     End If
 21： 
 22：     Exit Sub
 23： ErrHandle:
 24：     ' ビジネスオブジェクトの呼び出しに失敗
 25：     MsgBox Err.Description, vbOKOnly, "明細情報の削除"
 26：     Set objSlip = Nothing
 27： End Sub