A2003: Tabelle filtern basieredn auf Auswahl aus Listenfeld

07/03/2008 - 15:32 von Arne Becker | Report spam
Hey Leute,
ich in einem Formular ein Listenfeld in dem der Benutzer mehrer
Elemente auswàhlen soll. Danach soll er auf einen Button klicken und
es öffnet sich ein Bericht. Dieser Bericht basiert auf einer Abfrage.
Die Filterkrierien sollen nun genau die Auswahl aus dem Listenfeld
sein. Wie stell ich sowas an? Wenn ich in der Abfrage bei Kriterien
Formular![auswahl_gruppen]![liste_gruppen] angebe zeigt er mir
jedenmals null Zeilen als Ergebnis der Abfrage an.

Gruß Arne
 

Lesen sie die antworten

#1 Karl Donaubauer
07/03/2008 - 17:47 | Warnen spam
Arne Becker wrote:
ich in einem Formular ein Listenfeld in dem der Benutzer mehrer
Elemente auswàhlen soll. Danach soll er auf einen Button klicken und
es öffnet sich ein Bericht. Dieser Bericht basiert auf einer Abfrage.
Die Filterkrierien sollen nun genau die Auswahl aus dem Listenfeld
sein. Wie stell ich sowas an? Wenn ich in der Abfrage bei Kriterien
Formular![auswahl_gruppen]![liste_gruppen] angebe zeigt er mir
jedenmals null Zeilen als Ergebnis der Abfrage an.
...



Mit einer Schleife durchs Listenfeld die ausgewàhlten Eintràge
sammeln und den Filterausdruck für OpenReport zusammensetzen,
z.B. für ein nummerisches Feld "Id":

Dim ctl As Control
Dim varItem As Variant
Dim strIN As String

Set ctl = Me!DeinListenfeld

For Each varItem In ctl.ItemsSelected
strIN = strIN & ctl.ItemData(varItem) & ","
Next varItem

If strIN <> "" Then
strIN = left(strIN, Len(strIN) - 1)
strIN = "Id In(" & strIN & ")"
End If

DoCmd.OpenReport "DeinBericht", acViewPreview, , strIN

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
SQL Server-Entwickler-Konferenz: www.donkarl.com/?SEK
Nürnberg 12./13.4. + 19./20.4.2008

Ähnliche fragen