List 7-185　FormBillフォームのBTN_REFRESH_Clockプロシージャ

---

  1： Private Sub BTN_REFRESH_Click()
  2：     ' ［最新の状態に更新］ボタンが押されたときの処理
  3：     Dim BillID As Long
  4：     
  5：     On Error Resume Next
  6：     
  7：     ' その時点におけるIDフィールドの値を取得
  8：     BillID = g_objRec.Fields("ID").Value
  9：     
 10：     ' 最新の情報に更新
 11：     RefreshData
 12：     
 13：     ' 保存しておいたIDフィールドの値を持つレコードをカレント行とする
 14：     g_objRec.MoveFirst
 15：     g_objRec.Find "ID=" & BillID, 0, adSearchForward
 16： End Sub