ちょっと眺めただけですが
strfilter = strfilter & " AND 参加有無 Like '*" & Me.参加 & "*'"
参加有無がYes/No型ならばLikeで比較するべきではありませんし、右辺が文字列型になっているので抽出できることはまずないでしょう。(これを見た時点でほかの条件生成文は見ていません)
strfilter
をMe.FilterOn = True
の直前でウォッチウィンドウで確認するとかDebug.print
でイミディエイトウィンドウで確認してみるとおかしなところがわかると思います。
通報 ...