List 7-134　FormSlipフォームのBTN_REQUESTCONSENT_Clickプロシージャ

---

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