Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Endlosformular (UFO): Filtern mit Abfrag aus Listenfeldern
zurück: Tabelle in Formular und Unterformular teilen weiter: Format Kombifeld Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
meydey
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Nov 2008, 00:33
Rufname:

Endlosformular (UFO): Filtern mit Abfrag aus Listenfeldern - Endlosformular (UFO): Filtern mit Abfrag aus Listenfeldern

Nach oben
       Version: Office 2003

Guten Abend Leute,
ich versuche schon seit einigen Tagen folgende Herausforderung zu lösen:
Ich habe ein Formular mit einem eingebetteten UFO als Endlosformular.
Im HF habe ich 5-6 Listenfelder mit Mehrfachauswahl. Die Auswahl in den Listenfeldern möchte ich zur Filterung meiner Datensätze im UFO-Endlosformular nutzen.
Wie kann ich das per VBA anstellen? Mein jetziger Code (aus dem Netz) erzwingt immer die Auswahl eines Eintrages aus einem bestimmten Listenfeld (= das erste im VBA aufgeführte Listenfeld). Wähle ich einen beliebigen Eintrag daraus aus und kombinier ihn mit Einträgen aus anderen Listenfeldern funktioniert alles problemlos. Nehme ich allerdings keine Auswahl in diesem bestimmten Listenfeld vor, so funktioniert der Filter-Code nicht mehr.

Der Code (von JörgG) folgt hier:
Code:
Private Sub SFFilter_Click()
    Dim varItem As Variant, strFilter As String, strSelect As String

'Listenauswahl 1: "LstLand" auslesen
    For Each varItem In Me!LstLand.ItemsSelected
        strSelect = strSelect & " OR Land_ID = " & Me!LstLand.Column(0, varItem)
    Next varItem
    If strSelect <> "" Then strFilter = "(" & Mid(strSelect, 5) & ")"
'Listenauswahl 2: "LstJahr" auslesen
    strSelect = ""
    For Each varItem In Me!LstJahr.ItemsSelected
        strSelect = strSelect & " OR Jahr = " & Me!LstJahr.Column(0, varItem)
    Next varItem
    If strSelect <> "" Then strSelect = "(" & Mid(strSelect, 5) & ")"
    If strFilter <> "" And strSelect <> "" Then
        strFilter = strFilter & " AND " & strSelect
    ElseIf strSelect <> "" Then
        strFilter = strSelect
    End If
'hier folgt später die nächste Liste, mit dem analogen Code von LstJahr
'Debug.Print strFilter   'Direktfenster einschalten <Strg+G>, Filter kontrollieren
'Stop                    'schrittweise weiter mit [F8]
    Me!UfoSteuerelementname.Form.Filter = strFilter
    Me!UfoSteuerelementname.Form.FilterOn = True
End Sub
Willi Wipp
Moderator


Verfasst am:
15. Nov 2008, 20:36
Rufname:
Wohnort: Raum Wiesbaden


Re: Endlosformular (UFO): Filtern mit Abfrag aus Listenfelde - Re: Endlosformular (UFO): Filtern mit Abfrag aus Listenfelde

Nach oben
       Version: Office 2003

Hi meydey,

wir moechten Dich bitten in Zukunft keine Doppelpostings mehr zu machen.
Wir finden Deine Beitraege auch, wenn Du sie nur in einem Forum postest.
Das macht so nur unnoetige Arbeit
und frustiert die Leute die die Frage zum zweiten oder dritten Mal beantwortet haben!
Fragen zum gleichen Thema, kann man auch an ein bestehendes Thema anhaengen.
Das erleichtert es Anderen dem Loesungsweg zu folgen!

Dieses Thema ist wegen Doppelposting gesperrt!

Weiter gehts mit Mehrfachselektion bei Abfrage+Listenfeld im Formular

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Filtern mit Drop Down in neues Formular????? 5 seppel27 2109 14. Aug 2007, 09:07
Willi Wipp Filtern mit Drop Down in neues Formular?????
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Zeitraum filtern (NULL-Wert Problem) 1 Neo3000 686 05. Jul 2007, 11:26
Neo3000 Nach Zeitraum filtern (NULL-Wert Problem)
Keine neuen Beiträge Access Tabellen & Abfragen: Daten in access 2003 - Filtern leerer Felder 2 Amitl 1612 30. Mai 2007, 21:25
Amitl Daten in access 2003 - Filtern leerer Felder
Keine neuen Beiträge Access Tabellen & Abfragen: Endlosformular - Inhalt Textfelder 1 arnoldh 490 20. Mai 2007, 19:30
stpimi Endlosformular - Inhalt Textfelder
Keine neuen Beiträge Access Tabellen & Abfragen: Alle Datensätze, die in einem Jahr und Monat sind filtern 3 Desert Storm 808 02. Apr 2007, 15:49
Thomas2007 Alle Datensätze, die in einem Jahr und Monat sind filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Ja/Nein-Abfrage filtern 16 Smmmile 2239 14. März 2007, 01:21
Willi Wipp Ja/Nein-Abfrage filtern
Keine neuen Beiträge Access Tabellen & Abfragen: nur gefüllte ds filtern 4 kaoru 394 12. Feb 2007, 09:29
kaoru nur gefüllte ds filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2000 : Abfrage zum Filtern des Geburtsjahres ! 7 rabie 2315 08. Feb 2007, 12:35
rabie Access 2000 : Abfrage zum Filtern des Geburtsjahres !
Keine neuen Beiträge Access Tabellen & Abfragen: Geburtstage filtern 1 Unrealfighter 801 05. Okt 2006, 06:57
jens05 Geburtstage filtern
Keine neuen Beiträge Access Tabellen & Abfragen: In Abfragen nach Datum filtern 12 grandmasterb10 1003 09. Sep 2006, 17:51
grandmasterb10 In Abfragen nach Datum filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage über Drop-Down-Felder filtern 13 snatchmo66 998 02. Jan 2006, 11:48
Willi Wipp Abfrage über Drop-Down-Felder filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Daten filtern mit 2 Kobiboxen 1 Sovi79 604 29. Aug 2005, 15:49
rita2008 Daten filtern mit 2 Kobiboxen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum