T'sWare スケジュール管理  フォームソースリスト  [Switchboard]フォーム
プロシージャ名  Form_Current
   
  Private Sub Form_Current()
  ' Update the caption and fill in the list of options.
   
      Me.Caption = Nz(Me![ItemText], "")
      FillOptions
      
  End Sub