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

'全表示する。（フィルターを外す）

  Me.サブフォーム名.Form.Filter = "顧客名 =' '"

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

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

'コントロールに入力された文字列でフィルターする。

  Me.サブフォーム名.Form.Filter = "顧客名 Like ""*" & Me![顧客名] & "*"""

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

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

Private Sub フレーム1_AfterUpdate()

'リストの表示切替（貸出中or全表示）をします。

Dim varfilter As String

Select Case フレーム1

  Case 1

　　　　　　　varfilter = "返却日 is null"

　　　　　　　Me.サブフォーム.Form.FilterOn = True   '= tureはここに書く

  Case 2

　　　　　　　Me.サブフォーム.Form.FilterOn = True   '= tureはここに書く

End Select

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

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

Me.サブフォーム.Requery

End Sub