List 7-194　FormBillフォームのBTN_MAKEBILL_Clickプロシージャ

---

  1： Private Sub BTN_MAKEBILL_Click()
  2：     ' ［請求書一斉作成］ボタンが押されたときの処理
  3：     Dim msg As Variant
  4：     Dim objBill As Business.Bill
  5：     
  6：     msg = FormInputMsg.GetMessage("請求書作成", "伝票の締め日を入力してください", _
   　                                   FormatDateTime(Date, vbShortDate))
  7：     
  8：     If Not IsNull(msg) Then
  9：         If IsDate(msg) Then
 10：             ' 請求書を作成する
 11：             On Error GoTo ErrHandle
 12：             Set objBill = CreateObject("Business.Bill")
 13：             objBill.MakeBills CDate(msg)
 14：             Set objBill = Nothing
 15：             
 16：             ' データグリッドの内容を更新する
 17：             RefreshData
 18：         Else
 19：             MsgBox "入力された日付が不正です", vbOKOnly, "請求書作成エラー"
 20：         End If
 21：     End If
 22：     
 23：     Exit Sub
 24：     
 25： ErrHandle:
 26：     ' エラーハンドラ
 27：     MsgBox Err.Description, vbOKOnly, "請求書作成エラー"
 28：     Set objBill = Nothing
 29： End Sub