List 7-69　FormEditProductフォームのNewProductプロシージャ

---

  1： Public PRODUCTID As Long
  2： 
  3： Public Sub NewProduct()
  4：     ' 新規製品を登録する
  5：     TXT_ID.Text = ""
  6：     TXT_YOMIGANA.Text = ""
  7：     TXT_PRODUCTNAME.Text = ""
  8：     TXT_PRICE.Text = "0"
  9：     TXT_STOCK.Text = "0"
 10：     TXT_BACKORDER.Text = "0"
 11：     TXT_MEMO.Text = ""
 12：     TXT_MADEUSER.Text = ""
 13：     TXT_MADEDATE.Text = ""
 14：     TXT_LASTUSER.Text = ""
 15：     TXT_LASTUSER.Text = ""
 16：     
 17：     PRODUCTID = -1
 18： End Sub