List 7-200　FormBillフォームのBTN_CANCELSUBMIT_Clickプロシージャ

---

  1： Private Sub BTN_CANCELSUBMIT_Click()
  2：     ' ［入金確認取消］ボタンが押されたときの処理
  3：     Dim objBill As Business.Bill
  4：     Dim BillID As Long
  5：     
  6：     If MsgBox("入金確認を取り消してよろしいですか", _
   　               vbYesNo, "入金確認取消") = vbYes Then
  7：         ' 入金確認を取り消す
  8：         BillID = g_objRec.Fields("ID").Value
  9：         On Error GoTo ErrHandle
 10：         Set objBill = CreateObject("Business.Bill")
 11：         objBill.CancelSubmitBill BillID
 12：         Set objBill = Nothing
 13：         
 14：         ' データグリッドの内容を更新する
 15：         RefreshData
 16：         g_objRec.MoveFirst
 17：         g_objRec.Find "ID=" & BillID, 0, adSearchForward
 18：     End If
 19：     
 20：     Exit Sub
 21：     
 22： ErrHandle:
 23：     ' エラーハンドラ
 24：     MsgBox Err.Description, vbOKOnly, "入金確認取消エラー"
 25：     Set objBill = Nothing
 26： End Sub