access

質問

下記はよくある、Select Caseと filterと思うのですが、
（日付が空白のものを抽出）or（全て表示）の２択としたのですが、
（全て表示）ボタンをクリックすると
ほんの一瞬正しく（全て）が表示された後、フィルターされた「Case 1」の表示になってしまうんです。

下記コードは問題ありませんか？

この症状の原因は何が考えられるでしょうか？

--------------------------------------------------
Private Sub フレーム1_AfterUpdate()
Dim varfilter As Variant
Select Case Me!フレーム1.Value
Case 1
varfilter = "日付 is null"
Case Else
varfilter = ""
End Select
Me.サブフォーム.Form.Filter = varfilter
Me.サブフォーム.Form.FilterOn = True
End Sub

回答No.1

mshr1962 · ベストアンサー

おそらく
Me.サブフォーム.Form.FilterOn = True
の所為です。
----省略----
Case Else
varfilter = "日付 Like '*'"
End Select
----省略----
とするか
----省略----
Case 1
Me.サブフォーム.Form.Filter = "日付 is null"
Me.サブフォーム.Form.FilterOn = True
Case Else
Me.サブフォーム.Form.FilterOn = False
End Select
----省略----
としてみてください。

お礼

ありがとうございました。

解決しました。