List 7-26　FormEditフォームのBTN_EDIT_Clickプロシージャ

  1： Private Sub BTN_EDIT_Click()
  2：     ' ［編集］ボタンが押されたときの処理
  3：     
  4：     FormEditCustomer.EditCustomer g_objRec.Fields("ID").Value
  5：     FormEditCustomer.Show 1
  6：     
  7：     ' データグリッドの内容を更新する
  8：     ' 最後に更新された顧客をカレントレコードとする
  9：     RefreshData
 10：     ' 追加した顧客をカレントレコードとする
 11：     g_objRec.MoveFirst
 12：     g_objRec.Find "ID=" & FormEditCustomer.CustomerID, _
      　                 0, adSearchForward
 13： End Sub