'-------------------------

Private Sub フレーム_AfterUpdate()

'リストの表示切替（フィルターor全表示）をします

Dim varfilter As String

Select Case フレーム

  Case 1

　　　　　　　varfilter = "日付 is null"

　　　　　　　Me.サブフォーム.Form.FilterOn = True

  Case 2

　　　　　　　Me.サブフォーム.Form.FilterOn = True

End Select

'サブフォームをフィルターします。

Me.サブフォーム.Form.Filter = varfilter

Me.サブフォーム.Requery

End Sub