List 7-97　FormEditStockフォームのEditStockプロシージャ

---

  1： Public Sub EditStock(ID As Long)
  2：     ' 既存の入庫情報を編集する
  3：     Dim objProduct As Business.Product
  4：     Dim WILLDATE As Variant, DUEDATE As Variant
  5：     Dim CONFIRMEDFLAG As Variant, PRODUCTID As Variant
  6：     Dim NUMBER As Variant, MEMO As Variant
  7：     Dim SLIPID As Variant
  8：     Dim MADEUSER As Variant, MADEDATE As Variant
  9：     Dim LASTUSER As Variant, LASTDATE As Variant
 10：     
 11：     
 12：     StockID = ID
 13：     
 14：     ' 入庫情報の現在の情報を得る
 15：     On Error GoTo ErrHandle
 16：     
 17：     Set objProduct = CreateObject("Business.Product")
 18：     
 19：     TXT_ID.Text = StockID
 20：     
 21：     objProduct.GetStorage StockID, WILLDATE, DUEDATE, CONFIRMEDFLAG, _
   　                           PRODUCTID, NUMBER, MEMO, SLIPID, _
   　                           MADEUSER, MADEDATE, _
   　                           LASTUSER, LASTDATE
 22：     
 23：     ' COMBO_PRODUCTコンボボックスのなかから該当する製品を探して
 24：     ' それを選択した状態にする
 25：     FillCombo CLng(PRODUCTID)
 26：     
 27：     ' 施行予定日などの設定
 28：     If Not IsNull(WILLDATE) Then
 29：         TXT_WILLDATE.Text = WILLDATE
 30：     Else
 31：         TXT_WILLDATE.Text = ""
 32：     End If
 33：     
 34：     If Not IsNull(NUMBER) Then
 35：         TXT_NUMBER.Text = NUMBER
 36：     Else
 37：         TXT_NUMBER.Text = ""
 38：     End If
 39：     
 40：     If Not IsNull(MEMO) Then
 41：         TXT_MEMO.Text = MEMO
 42：     Else
 43：         TXT_MEMO.Text = ""
 44：     End If
 45：     
 46：     TXT_MADEUSER.Text = MADEUSER
 47：     TXT_MADEDATE.Text = MADEDATE
 48：     TXT_LASTUSER.Text = LASTUSER
 49：     TXT_LASTDATE.Text = LASTDATE
 50： 
 51：     Set objProduct = Nothing
 52：     Exit Sub
 53： ErrHandle:
 54：     ' エラーハンドラ
 55：     MsgBox Err.Description, vbOKOnly, "入庫情報の編集エラー"
 56：     Set objProduct = Nothing
 57： End Sub