T'sWare スケジュール管理  フォームソースリスト  [スケジュール予約]フォーム
プロシージャ名  レンタル商品_Click
  Private Sub レンタル商品_Click()
  On Error GoTo Err_レンタル商品_Click
      DoCmd.OpenForm "レンタル商品"
   
  Exit_レンタル商品_Click:
      Exit Sub
   
  Err_レンタル商品_Click:
      MsgBox Err.Description
      Resume Exit_レンタル商品_Click
  End Sub