List 7-192　FormBillフォームのCHK_FILTER_Clickプロシージャ

---

  1： Private Sub CHK_FILTER_Click()
  2：     ' 絞り込みを適用して，データグリッドの内容を更新する
  3：     Dim BillID As Variant
  4：     On Error Resume Next
  5：     BillID = g_objRec.Fields("ID").Value
  6：     RefreshData
  7：     g_objRec.MoveFirst
  8：     g_objRec.Find "ID=" & BillID, 0, adSearchForward
  9： End Sub