List 7-98　FormStockフォームのBTN_EDIT_Clickプロシージャ

---

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