Filtern von Endlosformular über ein Listenfeld

[Arndt]

Ich habe schon viel im Netz gesucht, verstehe die Syntax aber noch zu schlecht. Darf ich mal um Vorschläge bitten?

Gegeben:
Ein Formular [Logbuch] enthält ein Ufo, dass das Endlosformular [Logbuch-Zeitplanung] angezeigt. Dieses Basiert auf der Tabelle [t-teilnehmer].

Tabelle [t-teilnehmer] enthält ca. 50 Felder, eines davon heißt [massnahmedurchgaenge], das 10 verschiedene Werte annehmen kann. Diese Werte stammen aus einer [wertetabelle].

Aufgabe:
Im Formular [Logbuch] befindet sich ein ungebundenes Listenfeld. In diesem Listenfeld sollen diese 10 verschiedenen Werte angezeigt werden. Bei klick auf einen dieser Werte sollen nur die Datensätze angezeigt werden, die diesen Wert aufweisen.

Was muss ich da als Ereignisprozedur angeben?

[Beaker s.a.]

Hallo Arndt,
Schwierig mit so wenig Infos.

ein Ufo, dass das Endlosformular [Logbuch-Zeitplanung] angezeigt. Dieses Basiert auf der Tabelle [t-teilnehmer].

Hört sich erstmal unlogisch an, kann ich aber nicht beurteilen.

Tabelle [t-teilnehmer] enthält ca. 50 Felder

Hört sich nach suboptimalem Datenmodell an, kann ich aber auch
nicht beurteilen.
Ansonsten, (Luftcode)

Code [Auswählen] Erweitern

Private Sub DeinListfeld_Click()
    Dim strSQL as String

    strSQL = _
          "SELECT T.Feld1, T.Feld2, ..., T.Feldn " _
       & "FROM t-Teilnehmer AS T " _
       & "WHERE T.massnahmedurchgaenge = " & Me!DeinListfeld.Value

    Me!NameDesUFos.Form.RowSource = strSQL

End Sub
Feld1 - Feldn sind die Felder, die im UFo angezeigt werden
Der Vergleichswert muss die gebundene Spalte des Listfeldes sein.
Falls dass nicht geht oder nicht gewünscht wird, musst Du statt
auf .Value auf die .Column(n) des Listfeldes zugreifen

Code [Auswählen] Erweitern

& "WHERE T.massnahmedurchgaenge = " & Me!DeinListfeld.Column(n) (erste Spalte = 0).

hth
gruss ekkehard

[DF6GL]

Hallo,

zur Info:
habe dieses Problem nach Anfrage schon per Email bearbeitet...

Datensatzherkunft des Listenfeldes: 

Code [Auswählen] Erweitern

SELECT DISTINCT [t-massnahmedurchgaenge].Maßnahmedurchgang FROM [t-massnahmedurchgaenge] ORDER BY [t-massnahmedurchgaenge].Maßnahmedurchgang DESC;


Ereignisprozedur des Listenfeldes:

Code [Auswählen] Erweitern

Private Sub Liste87_Click()
    Me![Logbuch-Zeitplanung].Form.Filter = "[maßnahmedurchgang] = '" & Me!Liste87.Column(0) & "'"
    Me![Logbuch-Zeitplanung].Form.FilterOn = True
    Me![Logbuch-System].Form.Filter = "[maßnahmedurchgang] = '" & Me!Liste87.Column(0) & "'"
    Me![Logbuch-System].Form.FilterOn = True
    Me![Logbuch-Fragestellung].Form.Filter = "[maßnahmedurchgang] = '" & Me!Liste87.Column(0) & "'"
    Me![Logbuch-Fragestellung].Form.FilterOn = True
    Me![Logbuch-Aktuellerstand].Form.Filter = "[maßnahmedurchgang] = '" & Me!Liste87.Column(0) & "'"
    Me![Logbuch-Aktuellerstand].Form.FilterOn = True
    Me![Untergeordnet46].Form.Filter = "[maßnahmedurchgang] = '" & Me!Liste87.Column(0) & "'"
    Me![Untergeordnet46].Form.FilterOn = True
End Sub

[Beaker s.a.]

Da hat dann ja wenigstens einer alle Infos zur Fragestellung bekommen.