List 7-189　FormBillFilterフォームのBTN_OK_Clickプロシージャ，BTN_CANCEL_Clickプロシージャ，CHK_CUSTOMER_Clickプロシージャ

---

  1： Private Sub BTN_CANCEL_Click()
  2：     ' ［キャンセル］ボタンが押されたときの処理
  3：     OkFlag = False
  4：     Me.Hide
  5： End Sub
  6： 
  7： Private Sub BTN_OK_Click()
  8：     ' ［OK］ボタンが押されたときの処理
  9：     OkFlag = True
 10：     Me.Hide
 11： End Sub
 12： 
 13： Private Sub CHK_CUSTOMER_Click()
 14：     If CHK_CUSTOMER.Value = 1 Then
 15：         COMBO_CUSTOMER.Enabled = True
 16：     Else
 17：         COMBO_CUSTOMER.Enabled = False
 18：     End If
 19： End Sub