List 7-95　FormEditStockフォームのNewStockプロシージャ

---

  1： Public StockID As Long
  2： 
  3： Public Sub NewStock()
  4：     ' 新規入庫情報を登録する
  5：     
  6：     ' 製品名を格納するコンボボックスに、現在登録されている製品一覧を登録する
  7：     FillCombo -1
  8：     
  9：     TXT_ID.Text = ""
 10：     TXT_WILLDATE.Text = ""
 11：     TXT_NUMBER.Text = ""
 12：     TXT_MEMO.Text = ""
 13：     TXT_MADEUSER.Text = ""
 14：     TXT_MADEDATE.Text = ""
 15：     TXT_LASTUSER.Text = ""
 16：     TXT_LASTDATE.Text = ""
 17：     
 18：     StockID = -1
 19： End Sub