List 7-73　FormProductフォームのBTN_NEW_Clickプロシージャ

---

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