List 7-159　FormSlipDetailフォームのBTN_EDIT_Clickプロシージャ

---

  1： Private Sub BTN_EDIT_Click()
  2：     ' ［編集］ボタンが押されたときの処理
  3：     FormEditSlipDetail.EditSlipDetail SlipID, _
   　                                       g_objRec.Fields("ID").Value, _
   　                                       g_objRec.Fields("PRODUCTID").Value, _
   　                                       g_objRec.Fields("NUMBER").Value, _
   　                                       g_objRec.Fields("UNITPRICE").Value, _
   　                                       g_objRec.Fields("PRICE").Value, _
   　                                       g_objRec.Fields("MEMO").Value
  4：     FormEditSlipDetail.Show 1
  5：     
  6：     ' データグリッドの内容を更新する
  7：     RefreshData
  8： End Sub