List 7-138　FilterSlipフォームのCHK_FILTER_Clickプロシージャ

---

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