List 7-107　FormStockフォームのCHK_FILTER_Clickプロシージャ

---

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