T'sWare スケジュール管理  フォームソースリスト  [スケジュールの作成]フォーム
プロシージャ名  レンタル商品ID_AfterUpdate
  Private Sub レンタル商品ID_AfterUpdate()
      If Not IsNull([レンタル商品ID]) Then
          Me![OK].Enabled = True
      Else
          Me![OK].Enabled = False
      End If
  End Sub