GetFilter = "[Bereich]= 'BEGS 12' Or [Bereich])= 'BEGS 18' Or [Bereich])= 'BEGS 10' Or [Bereich])= 'BEGS 15'"
"[Bereich]= 'BEGS 12' Or [Bereich])= 'BEGS 18' Or [Bereich])= 'BEGS 10' Or [Bereich])= 'BEGS 15'"
Statt der doppelten "" ist es übersichtlicher Hochkomma zu verwenden, außerdem ist es überflüssig den Abfragenamen voranzustellen.WHERE (((Qry_tblMitarbeiter_FilterBereichNull.Bereich)="BEGS 12" Or (Qry_tblMitarbeiter_FilterBereichNull.Bereich)="BEGS 18" Or (Qry_tblMitarbeiter_FilterBereichNull.Bereich)="BEGS 10" Or (Qry_tblMitarbeiter_FilterBereichNull.Bereich)="BEGS 15"));
WHERE (((Qry_tblMitarbeiter_FilterBereichNull.Bereich)=GetFilter("Z0021717")));
GetFilter = """BEGS 12"" Or ([Qry_tblMitarbeiter_FilterBereichNull].[Bereich])=""BEGS 18"" Or ([Qry_tblMitarbeiter_FilterBereichNull].[Bereich])=""BEGS 10"" Or ([Qry_tblMitarbeiter_FilterBereichNull].[Bereich])=""BEGS 15"""
End Function
Function GetFilter(UserLogin As String)
Dim rs As DAO.Recordset
Dim strfilter As String
Set rs = CurrentDb.OpenRecordset("select * from Qry_TblUser_GetAllBereiche where [UserLogin] = '" & UserLogin & "'")
Do Until rs.EOF
Bereich = DLookup("Bereich", "tblBereiche", "[ID_Breich] =" & rs![Bereich].Value)
strfilter = strfilter & """" & Bereich & """ oder "
rs.MoveNext
Loop
strfilter = Left(strfilter, Len(strfilter) - 6)
Debug.Print strfilter
GetFilter = strfilter
End Function