List 7-74　FormProductフォームのBTN_EDIT_Clickプロシージャ

---

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