List 7-199　FormBillフォームのBTN_SUBMIT_Clickプロシージャ

---

  1： Private Sub BTN_SUBMIT_Click()
  2：     ' ［入金確認］ボタンが押されたときの処理
  3：     Dim msg As Variant
  4：     Dim objBill As Business.Bill
  5：     Dim BillID As Long
  6：     
  7：     msg = FormInputMsg.GetMessage("入金確認", _
   　                                   "入金確認時の備考を入力してください")
  8：     
  9：     If Not IsNull(msg) Then
 10：         ' 入金確認ずみとする
 11：         BillID = g_objRec.Fields("ID").Value
 12：         On Error GoTo ErrHandle
 13：         Set objBill = CreateObject("Business.Bill")
 14：         objBill.SubmitBill BillID, msg
 15：         Set objBill = Nothing
 16：         
 17：         ' データグリッドの内容を更新する
 18：         RefreshData
 19：         g_objRec.MoveFirst
 20：         g_objRec.Find "ID=" & BillID, 0, adSearchForward
 21：     End If
 22：     
 23：     Exit Sub
 24： 
 25： ErrHandle:
 26：     ' エラーハンドラ
 27：     MsgBox Err.Description, vbOKOnly, "入金確認エラー"
 28：     Set objBill = Nothing
 29： End Sub