List 7-14　FormCustomerフォームのBTN_REFRESH_Clickプロシージャ（ブックマークを利用する例）

---

  1： Private Sub BTN_REFRESH_Click()
  2：     ' ［最新の状態に更新］ボタンが押されたときの処理
  3：     Dim BookMark As Variant
  4：     
  5：     ' 現在のブックマークを取得
  6：     BookMark = DGrid_Customer.BookMark
  7：     
  8：     ' 最新の情報に更新
  9：     RefreshData
 10：     
 11：     ' 最新の情報に更新したら，該当レコードが削除されているおそれがあるため
 12：     ' On Error Resume Nextでトラップしておく
 13：     On Error Resume Next
 14：     
 15：     ' 記録しておいたブックマークをカレント行とする
 16：     DGrid_Customer.BookMark = BookMark
 17： End Sub