Mehrfachauswahl mit Formularabfrage

[DF6GL]

Hallo,

ich denke, Du musst Dir erst mal im Klaren darüber werden, WAS und vor allem WIE gefiltert werden soll, in Anbetracht der Datenzusammenhänge..

Anbei die DB mit zum Einen der Filterung der Companys in Abhängigkeit der Countries, zum Anderen eine zusammenhanglose Filterung nach den 3 aktiven Listenfeldern.  Die ausgeblendeten Listenfelder habe ich außen vor gelassen, die kannst Du selber nach dem gezeigten Prinzip  erweitern, sofern das wirklich nötig sein sollte...

[MrsProd]

Viiielen lieben Dank DF6GL für deine Hilfe, ohne dich wär ich wohl aufgeschmissen! 

Ich hab die Tabelle jetzt mal mit representativeren Daten gefüllt, dann wirds evtl etwas einfacher zu verstehen, was ich genau möchte.
Der Hintergrund meiner Datenbank ist folgender: ich möchte verschiedene Serieneinladungen zu verschiedenen Events versenden und meine Datenbank soll mir dazu dienen, die richtigen Leute zu finden für das passende Event. Daher sollte mein gefilteter Output in einer Tabelle (oder in einer Abfrage - was wäre dafür besser geeignet?) erfolgen, die ich dann in Word (oder einem andren Programm) als Datenquelle für einen Serienbrief nutzen kann.
Natürlich passt nicht jeder Kontakt zu jedem Event, daher die Mehrfachfilterung. Wenn ich z.b. zu einem Event einlade, das in Germany stattfindet, möchte ich jeweils nur Leute aus dem Näheren Umfeld (also Germany, Austria, Netherlands, Sweden usw.) einladen.
Dazu ist das evtl ein Event, das nur Leute interessiert die mit ein paar bestimmten Technologien zu tun haben oder einem bestimmten CompanyCluster oder einer WorkingGroup zugeordnet sind. Oder ich möchte speziell nur Leuter einiger Firmen die dem oberen und mittleren Management angehören und schon an vergangenen Events teilgenommen haben. Daher meine vielen Kriterien nach denen ich filtern möchte.

Jetzt ist bei mir auch der Groschen gefallen, was der genauer Unterschied zwischen einer Abhängigen und Unabhängigen Filterung ist. DANKE!

Jetzt hab ich noch eine Frage: und zwar hab ich bei meinem CompanyCluster(und auch noch bei andren Feldern) ja folgenden Input:
End Customer, Project Management Consultant, FEED Contractor, EPC, OEM, System Integrator, Manufacture, Other
Einem Kontakt wird aber jetzt mehr als nur ein Kriterium zugeordnet, also z.b. in meiner Tabelle EPC, OEM, Other..
wie kann ich aber in meinem Formular vor der Filterung nur die oben genannten anzeigen lassen, ohne die mehrfachnennungen? Also damit wenn ich bei der Filterung EPC angebe, aber auch alle andren aufgerufen werden, die noch andere Kritieren haben. Sollte in der Demo-Datenbank genauer ersichtlich warden, was ich meine

[MaggieMay]

Hallo,

oder in einer Abfrage - was wäre dafür besser geeignet?

eine Abfrage sollte genügen.

die ich dann in Word (oder einem andren Programm) als Datenquelle für einen Serienbrief nutzen kann

Warum kannst du dafür keinen Access-Bericht einetzen?

wie kann ich aber in meinem Formular vor der Filterung nur die oben genannten anzeigen lassen, ohne die mehrfachnennungen?

Das sollte sich durch den Zusatz "Select DISTINCT ..." in der Abfrage bewirken lassen.

[MrsProd]

Danke MaggieMay, mit select distinct funktionierts super! 

Wie kann ich denn meinen Output dann in einer Abfrage anzeigen lassen?
Ich hab jetzt folgenden Code verwendet, aber da spuckts mir leider alle Einträge meiner Tabelle aus.

Code [Auswählen] Erweitern

DoCmd.OpenQuery "qryFilter", , acEdit

...und nochmal mein Problem genauer beschrieben mit den Mehrfachnennungen in meinen Listenfeldern. (siehe Bild)
am Beispiel Event Invitation: da werden jetzt alle aufgelistet, die so in meiner Tabelle vorkommen, also
Hanover Fair 14
R-Community 14
R-Community 14, Hanover Fair 14
ich möchte aber gern nur die zwei einzelnen anzeigen lassen, damit die Liste kleiner wird.  Es soll aber wenn ich R-Community auswähle in meiner Ausgabe alle anzeigen, bei denen R-Community vorkommt, also auch die, die noch bei der Hanover Fair 14 waren. Kann man das iwie programmieren?
So ist das ganze auch bei allen andren Feldern außer bei Firma und Country.


Wie setz ich denn alle meine Felder in Abhängigkeit von meiner Country auswahl?

Code [Auswählen] Erweitern

Private Sub btnCompany_Click()
Dim Itm, strKrit As String

    For Each Itm In Me!lstCountry.ItemsSelected
        strKrit = strKrit & "','" & Me!lstCountry.Column(0, Itm)
    Next Itm

strKrit = Mid(strKrit, 3)

If Len(strKrit) Then strKrit = "Select distinct company from Invitation_list where country in (" & strKrit & "')"
Me!lstCompany.RowSource = strKrit


End Sub

Hab jetzt paar Möglichkeiten getestet die abhängige Filterung zu erweitern, die sich für mich als sinnvoll ergeben haben, aber hat leider nicht geklappt..

[DF6GL]

Hallo,

also ich meine, Du solltest Dein Datenbank-Konzept nochmal genau durchdenken...

Deine Such-Methodik und überhaupt die Daten-Beziehungslogik erscheint nicht plausibel und datenbank-konform zu sein.

Es soll aber wenn ich R-Community auswähle in meiner Ausgabe alle anzeigen, bei denen R-Community vorkommt, also auch die, die noch bei der Hanover Fair 14 waren. Kann man das iwie programmieren?

Es ist ein Verstoß gegen die Daten-Normalisierung, in einem einzigen Feld mehrere Werte aufzulisten (und bringt daher Ärger und Verdruss).  Dafür ist eine weitere Tabelle herzunehmen, die für einen bestimmten Datensatz (Firma) die dazugehörenden Einladungen (eine pro Datensatz) zuordnet.


Um im gegenwärtigen Zustand die gewünschte Filterung zu erhalten, darf dann nicht mit der IN-Where-Condition gearbeitet werden, sondern es muss ein "Like"-Vergleich angestellt werden, im Prinzip beispielhaft etwa so:

Code [Auswählen] Erweitern

... Where Invitation like '*" & Me!lstInvitation.Column(0,2) & "*'  Or Invitation like '*" & Me!lstInvitation.Column(0,3) & "*'"

Wobei die "2" und "3" die Itemsselected-Werte des entspr. Listenfeldes sein sollen.

Wie setz ich denn alle meine Felder in Abhängigkeit von meiner Country auswahl?

Indem Du die Listenfelder mit der entspr. SQL in deren Eigenschaft "Rowsource" belegst:

.
.
If Len(strKrit) Then strKrit = "Select distinct Tabellenfeldname from Invitation_list where country in (" & strKrit & "')"
Me!lstListenfeld.RowSource = strKrit

[MrsProd]

also ich meine, Du solltest Dein Datenbank-Konzept nochmal genau durchdenken...

Deine Such-Methodik und überhaupt die Daten-Beziehungslogik erscheint nicht plausibel und datenbank-konform zu sein.

Wie sollte ich das denn am besten lösen? Hab mir das ganze einfach iwie zusammengereimt und drauf los programmiert, ohne große Gedanken dahinter. Bis lang macht es ja fast komplett alles, was ich möchte

Das abhängige filtern hab ich hinbekommen & funktioniert wunderbar, DANKE!

Jetzt fehlt mir nur noch die Ausgabe in einer Abfrage anstatt in der frm_Invitation_list, aber da gibt er einfach alle Werte aus.. 


ich versteh leider nicht so ganz, wie das mit der like verknüpfung geht.. wo muss ich das jetzt beispielhaft hier einsetzen, bzw umschreiben?

Code [Auswählen] Erweitern

Dim Itm, strKrit As String, strWC As String

    For Each Itm In Me!lstCountry.ItemsSelected
        strKrit = strKrit & "','" & Me!lstCountry.Column(0, Itm)
    Next Itm

strKrit = Mid(strKrit, 3)
If Len(strKrit) Then strWC = " And Country In (" & strKrit & "')"

strKrit = ""