List 7-197　FormBillフォームのBTN_CANCELSEND_Clickプロシージャ

---

  1： Private Sub BTN_CANCELSEND_Click()
  2：     ' ［送付取り消し］ボタンが押されたときの処理
  3：     Dim objBill As Business.Bill
  4：     Dim BillID As Long
  5：     Dim bkmk As Variant
  6：     
  7：     If MsgBox("送付を取り消してよろしいですか", _
   　               vbYesNo, "送付取消") = vbYes Then
  8：         ' 送付を取り消す
  9：         On Error GoTo ErrHandle
 10：         Set objBill = CreateObject("Business.Bill")
 11：                 
 12：         If DGrid_Bill.SelBookmarks.Count = 0 Then
 13：             ' 1つだけを送付取り消しとする
 14：             BillID = g_objRec.Fields("ID").Value
 15：             objBill.CancelSendBill BillID
 16：         Else
 17：             ' 選択されているものすべてを送付取り消しとする
 18：             For Each bkmk In DGrid_Bill.SelBookmarks
 19：                 g_objRec.BookMark = bkmk
 20：                 If g_objRec.Fields("SENDBILLFLAG").Value = True Then
 21：                     BillID = g_objRec.Fields("ID").Value
 22：                     objBill.CancelSendBill BillID
 23：                 End If
 24：             Next
 25：         End If
 26：         
 27：         Set objBill = Nothing
 28：         
 29：         ' データグリッドの内容を更新する
 30：         RefreshData
 31：         g_objRec.MoveFirst
 32：         g_objRec.Find "ID=" & BillID, 0, adSearchForward
 33：     End If
 34：     
 35：     Exit Sub
 36：     
 37： ErrHandle:
 38：     ' エラーハンドラ
 39：     MsgBox Err.Description, vbOKOnly, "送付取消エラー"
 40：     Set objBill = Nothing
 41： End Sub