クエリの抽出結果がフォームに表示できない

ACCESS2010を使用しています。

フォーム画面で、選択クエリのデータをコンボボックスで選択し結果を表示させ、その後エクセル形式でエクスポートしたいと思っています。
選択結果をエクセル形式でエクスポートはうまくいくのですが、フォーム画面には表示がされません。



Q_名簿では　授業名のフィールドに抽出条件として　[Forms]![F_名簿表示画面]![combo1]　としています。

また、コンボボックスで選択した後にフォームに表示させるコマンドボタンは下記のように記述しています。
この記述でフォームに表示がされなくて困っています。


Private Sub cmd名簿_Click()

'コンボボックス値指定→検索
Dim stList As String
Dim stFil As String
'[授業名]を指定
If combo1 <> "" Then
stFil = "[授業名]='" & combo1 & "'"
End If

Me.Filter = stFil
Me.FilterOn = True

End Sub

どうすればフォームに表示がされるでしょうか。
ご指導の程お願いいたします。

No.3 ベストアンサー 回答者： m3_maki 回答日時： 2011/10/12 16:28

クエリに抽出条件があるなら

フィルタは必要ありませんね。

Private Sub cmd名簿_Click()
　　Me.Requery
End Sub

これだけです。

No.2 回答者： tamiemon96 回答日時： 2011/10/12 12:25

私　自分でマクロはかけないんですが・・・・

コンボボックスで選択した後で「再クエリ」を入れてもダメでしょうか。

No.1 回答者： ShowMeHow 回答日時： 2011/10/12 12:01

end sub

の前の行に
me.refresh
を追加するとか。