List 7-70　FormEditProductフォームのEditProductプロシージャ

---

  1： Public Sub EditProduct(ID As Long)
  2：     ' 既存の製品を編集する
  3：     Dim objProduct As Business.Product
  4：     Dim ProductName As Variant, YOMIGANA As Variant
  5：     Dim PRICE As Variant, STOCK As Variant
  6：     Dim MEMO As Variant, BACKORDER As Variant
  7：     Dim MADEUSER As Variant, MADEDATE As Variant
  8：     Dim LASTUSER As Variant, LASTDATE As Variant
  9：     
 10：     PRODUCTID = ID
 11：     
 12：     ' 製品の現在の情報を得る
 13：     On Error GoTo ErrHandle
 14：     
 15：     Set objProduct = CreateObject("Business.Product")
 16：     TXT_ID.Text = PRODUCTID
 17：     
 18：     objProduct.GetProduct PRODUCTID, ProductName, _
   　                           YOMIGANA, PRICE, STOCK, _
   　                           MEMO, BACKORDER, _
   　                           MADEUSER, MADEDATE, _
   　                           LASTUSER, LASTDATE
 19：     
 20：     If Not IsNull(ProductName) Then
 21：         TXT_PRODUCTNAME.Text = ProductName
 22：     Else
 23：         TXT_PRODUCTNAME.Text = ""
 24：     End If
 25：     
 26：     If Not IsNull(YOMIGANA) Then
 27：         TXT_YOMIGANA.Text = YOMIGANA
 28：     Else
 29：         TXT_YOMIGANA.Text = ""
 30：     End If
 31：     
 32：     If Not IsNull(PRICE) Then
 33：         TXT_PRICE.Text = PRICE
 34：     Else
 35：         TXT_PRICE.Text = "0"
 36：     End If
 37：     
 38：     If Not IsNull(STOCK) Then
 39：         TXT_STOCK.Text = STOCK
 40：     Else
 41：         TXT_STOCK.Text = "0"
 42：     End If
 43：     
 44：     If Not IsNull(BACKORDER) Then
 45：         TXT_BACKORDER.Text = BACKORDER
 46：     Else
 47：         TXT_BACKORDER.Text = "0"
 48：     End If
 49：     
 50：     If Not IsNull(MEMO) Then
 51：         TXT_MEMO.Text = MEMO
 52：     Else
 53：         TXT_MEMO.Text = ""
 54：     End If
 55：     
 56：     TXT_MADEUSER.Text = MADEUSER
 57：     TXT_MADEDATE.Text = MADEDATE
 58：     TXT_LASTUSER.Text = LASTUSER
 59：     TXT_LASTDATE.Text = LASTDATE
 60：     
 61：     Set objProduct = Nothing
 62：     Exit Sub
 63：     
 64： ErrHandle:
 65：     ' エラーが発生した
 66：     MsgBox Err.Description, vbOKOnly, "製品の編集エラー"
 67：     Set objProduct = Nothing
 68： End Sub