List 7-125　FormSlipフォームのBTN_EDIT_Clickプロシージャ

---

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