Wir haben Mitarbeiter mit mehreren verschiedenen Vorgängen und dementsprechend auch verschiedenen Trägern.

Jetzt habe ich ein Formular, in welchem die Vorgangsdaten erfasst werden sollen.

In diesem Formular habe ich neben anderen Feldern ein Dropdown-Feld für die Träger und eins für die entsprechenden Ansprechpartner.

Die beiden Felder basieren auf jeweils einer Tabelle:

Träger --> tbl_Trägerdaten

Ansprechpartner --> tbl_Ansprechpartnerdaten

In letzterer habe ich zum jeweiligen Ansprechpartner auch die Nummer des dazugehörigen Trägers vermerkt.

Jetzt möchte ich, daß nach der Auswahl eines Trägers in dem Dropdown-Feld für die Ansprechpartner nur noch die Namen enthalten sind, die zu dem entsprechenden Träger erfasst sind.

Ich hab es schon mit folgenden Code Probiert

Private Sub Ansprechpartnernummer_Enter()

On Error GoTo fehler

Dim sqlstr2 As String

sqlstr2 = "SELECT Ansprechpartnernummer FROM tbl_Ansprechpartnerdaten "

If Not IsNull(Me.Trägernummer) Then sqlstr2 = sqlstr2 & "WHERE Trägernummer =" & Me.Trägernummer & " "

If IsNull(Me.Trägernummer) Then sqlstr2 = "SELECT Ansprechpartnernummer FROM tbl_Ansprechpartnerdaten"

Me.Ansprechpartnernummer.RowSource = sqlstr2

ende:

Exit Sub

fehler:

Resume ende

End Sub

Das klappt aber nicht.

Wer kann mir helfen ?????????

Hallo, kann mir denn keiner von euch helfen ?

Ich bin jetzt ja wenigstens so weit, daß ich die, Ansprechpartner zum ausgwählten Träger filtern kann. Habe das Ergebnis in einer String-Variable gespeichert.

WIE BEKOMME ICH JETZT DAS ERGEBNIS IN EIN KOMBIFELD ?????

Habe mittlerweile selbst die Antwort gefunden.

'Inhalt für das Feld filtern

Me.Ansprechpartnernummer.RowSource = "Select Ansprechpartnernummer, Nachname From tbl_Ansprechpartnerdaten WHERE Trägernummer =" & Me.Trägernummer & ""

'Vorauswahl auf leer setzen

Me.Ansprechpartnernummer = ""