フィールドに複数の項目を含むフォームフィルタにアクセス

Question

私のクエリでは、複数の名前のフィールドがあります。マネージャーもあれば、監査人もいます。

1. 私のフォームには、2つの項目、マネージャー、監査員があるフィールドを追加しました。したがって、私がマネージャを選択すると、私のサブフォームとクエリを5レコードの名前でフィルタリングしたいと思います。そして、私がマネージャを選択した場合、自分のレコードに3つの名前のフォーム/クエリをフィルタできます。以下

私のVBAコードであるが、それはあなたがその構文を使用することはできません、

Private Sub cboAuditor_AfterUpdate() 

    strManagers = "<>'Steven' And <>'Lisa' And <>'Christopher' And <>'Ronda' " 
    strAuditors = "'Steven' Or 'Lisa' Or 'Christopher' Or 'Ronda' Or 'Amber'" 


     If Me.cboAuditor = "Managers" Then 
      strAnalystFilter = "[Created By] = '" & strManagers & "'" 

     ElseIf Me.cboAuditor = "Auditors" Then    
      strAnalystFilter = "[Created By] = '" & strAuditors & "'" 

     End If 

    End Sub 

Answer 1

を働いていない - と誰が明確ではない含めるかどうかを希望します。しかし、これを最初に試してから変更してください：

Private Sub cboAuditor_AfterUpdate() 

    strManagers = "'Steven','Lisa','Christopher','Ronda'" 
    strAuditors = "'Steven','Lisa','Christopher','Ronda','Amber')" 

    If Me.cboAuditor = "Managers" Then 
     strAnalystFilter = "[Created By] Not In (" & strManagers & ")" 
    ElseIf Me.cboAuditor = "Auditors" Then    
     strAnalystFilter = "[Created By] In (" & strAuditors & ")" 
    End If 

End Sub