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