List 7-140　FormSlipフォームのBTN_REFRESH_Clickプロシージャ

---

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