List 7-96　FormStockフォームのBTN_NEW_Clickプロシージャ

---

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