Hallo,
wie sieht den a)die Abfrage aus und b) hast Du Relationen angelegt?
Gruß Ralf

Hallo Meckenheimer,

ich hab's mal nachgebaut. In meinem Formular habe ich drei (das sollte reichen) Combobox-Felder eingefügt, die als Tabellenherkunft die Tabelle MA (Mitarbeiternamen) haben (kannst du aber auch weg lassen). Die Feldnamen sind MA1, MA2 und MA3. Beim "gotFocus"-Ereignis berechne ich die RowSource neu. Das Verfahren ist jedoch nur bei Combobox-Rowsourcen sinnvoll, die nicht zu viele Datensätze enthalten, eventuell ist auch ein Index hilfreich (bei > 1000 DS). Die Funktion "getFilter" berechnet die Ausschlusswerte, die dann in die RowSource-Definition einfließen. Der Code liegt im Codebereich des Formulars.

Public Function getfilter()
Dim i As Integer
Dim filterwert As String
filterwert = ""
For i = 1 To 3
    filterwert = filterwert & IIf(IsNull(Me("MA" & i)), "", IIf(filterwert = "", "", ",") & "'" & Me("MA" & i) & "'")
Next
getfilter = IIf(filterwert = "", "", " WHERE MA not in (" & filterwert & ")")
End Function

Private Sub MA1_GotFocus()
MA1.RowSource = "SELECT * FROM MA " & getfilter()

End Sub

Private Sub MA2_GotFocus()
MA2.RowSource = "SELECT * FROM MA " & getfilter()

End Sub

Private Sub MA3_GotFocus()
MA3.RowSource = "SELECT * FROM MA " & getfilter()

End Sub

Meintest du das?

Gruß
Ralf