T'sWare スケジュール管理  フォームソースリスト  [レンタル商品]フォーム
プロシージャ名  商品タイプID_NotInList
  Private Sub 商品タイプID_NotInList(NewData As String, Response As Integer)
      MsgBox "ダブルクリックすると、新規にリスト用データを入力できます。"
      Response = acDataErrContinue
  End Sub