氏名検索のところを
strfilter = strfilter & " AND 氏名 Like ""*" & Me.氏名検索 & "*"" Orフリガナ Like ""*" & Me.氏名検索 & "*"""
↓
strfilter = strfilter & " AND (氏名 Like ""*" & Me.氏名検索 & "*"" Orフリガナ Like ""*" & Me.氏名検索 & "*"")"
でどうでしょう?
通報 ...