List 7-196　FormBillフォームのBTN_SEND_Clickプロシージャ

---

  1： Private Sub BTN_SEND_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.SendBill BillID
 16：         Else
 17：             ' 選択されているものすべてを送付ずみとする
 18：             For Each bkmk In DGrid_Bill.SelBookmarks
 19：                 g_objRec.BookMark = bkmk
 20：                 If g_objRec.Fields("SENDBILLFLAG").Value = False Then
 21：                     BillID = g_objRec.Fields("ID").Value
 22：                     objBill.SendBill 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