Microsoft Access 掲示板

VBAで自作関数を作成する場合の方法です。

標準モジュールに下記の関数を作成してください。

Public Function IncludWords(sText, Words) As Boolean
    If Nz(sText, "") = "" Or Nz(Words, "") = "" Then Exit Function
    
    Dim Word

    For Each Word In Split(Words, " ")
        If sText Like "*" & Word & "*" Then
            IncludWords = True
            Exit For
        End If
    Next

End Function

クエリで下記のように設定してください。

フィールド　式1: IncludWords([対象フィード], "○○ □□ △△")
抽出条件　　False

上記のように禁止ワードを空白区切りで入力します。
これで、○○、□□、 △△ のどれかを含むものは除外されます。

抽出条件を True にすればどれかを含むものが抽出されます。