List 7-168　FormSlipHistoryフォームのPutHistoryプロシージャ

---

  1： Public Sub PutHistory(SlipID As Long)
  2：     ' 引数に指定された伝票番号を持つ伝票の更新履歴を表示する
  3：     Dim objSlip As Business.Slip
  4：     Dim objRec As ADODB.Recordset
  5：     
  6：     On Error GoTo ErrHandle
  7：     
  8：     Set objSlip = CreateObject("Business.Slip")
  9：     
 10：     Set objRec = objSlip.GetSlip_Details(SlipID)
 11：     
 12：     Set DGrid_History.DataSource = objRec
 13：     
 14：     DGrid_History.Refresh
 15：     
 16：     Set objSlip = Nothing
 17：     
 18：     Me.Show 1
 19：     
 20：     Set objRec = Nothing
 21：     
 22：     Exit Sub
 23： 
 24： ErrHandle:
 25：     ' エラーハンドラ
 26：     MsgBox Err.Description, vbOKOnly, "履歴の取得に失敗しました"
 27：     Set objSlip = Nothing
 28：     Set objRec = Nothing
 29： End Sub