Office: (Office 2010) Daten in Unterform mittels Checkbox filtern

Hallo!

Warum hast Du denn die Listenfelder jeweils in ein Unterformular eingefügt?
Spricht etwas dagegen, die Listenfelder direkt auf dem Hauptformular einzufügen? Du würdest Dir damit das Programmieren vereinfachen.

CU

 

als ich heute morgen meinen Beitrag schrieb kam ich kurz darauf auch auf die Idee die listboxen direkt ins hauptformular zu integrieren.
Da bin ich nun dran.

Ich werde es also nun so abändern, dass ich 2 listboxen im HF haben werde und einen kalenderbereich wo ich von bis datum eintragen kann.

in das hauptformular werde ich dann das Datenformular als UF einfügen.

Im Prinzip müssten also dann nicht nur die Filter an das UF übergeben werden, sie müsten eigentlich auch kombiniert werden.

Fazit : filtere UF nach selektierten Einträgen in List 1 ( z.B. Filter in Spalte Mitarbeiter ) und selektierten Einträgen in List 2 ( z.B. Abnehmer ) und filtere zwischen 2 datumswerten in Spalte bestellt.

 

Sag ich doch.
Und Thomas auch *wink.gif*

Nicht nur "eigentlich" sondern "sicherlich".
Du kannst keine Einzelfilter nacheinander an das UF übergeben.
Wie soll das gehen? Der zweite Filter würde den ersten wieder außer Kraft setzen. *entsetzt
Verschiedene Filterkriterien wirst Du immer kombinieren müssen, d.h. per AND bzw. OR miteinander zu einem Kriterium verbinden.

 

Ich habe jetzt einmal ein Wenig rumprobiert und der aktuelle Stand ist wie folgt:

Es existiert ein Hauptformular mit einem Listenfeld und einem Unterformular

Mit

PHP:

         Private Sub PSalle_AfterUpdate()
Dim PSskrit As String
Dim item As Variant

For Each item In PSalle.ItemsSelected
PSskrit = PSskrit & "'" & PSalle.Column(1, item) & "',"
Next
PSskrit = Left(PSskrit, Len(PSskrit) - 1)
Me![UF_Projekte_UT].Form.RecordSource = _
"SELECT * FROM [tbl_UTProjekte] WHERE  Bauleiter IN(" & PSskrit & ")"
End Sub


 

Indem Du - wie in meinem beispiel #15 - die WHERE Klausel nur setzt, wenn PSsktit nicht leer ist.

Mit Copy&Paste der For .. Each - Schleife und einem AND in der SQL Anweisung.

 

das Problem hierbei ist, dass der Code aus #15 bei mir nicht funktioniert.
Wie bereits angemerkt, bin ich von der Idee alles über UF zu machen abgekommen wesahlb ich es wie folgt probiert hatte

PHP:

         Dim hf As form_hauptformular
Dim ufq As form_unterformular_quelle
Dim ufz As form_unterformular_ziel
Dim filt As String
Dim sqlc As String
Dim i As Variant

Set hf = Forms("Kopie von HF_UT_Projekte")
Set ufq = hf!uf_quelle.Form
Set ufz = hf![UF_Projekte_UT].Form

filt = "("
For Each i In PSalle.ItemsSelected
If filt <> "(" Then filt = filt & ","
filt = filt & PSalle.ItemData(i)
Next

hier das Gleiche noch für die Listboxen in UF2 und UF3

sqlc = "select * from [tbl_UTProjekte]"
If filt <> "(" Then filt = filt & " where Bauleiter in " & filt & ")"
ufz.RecordSource = sqlc


 

Klar, du setzt ihn ja auch gar nicht ein! *tongue.gif*
Code:

 

Aua. Das war ja schon in #15 falsch ... Code:

Was lernen wir daraus als Tippgeber: immer mehrmals durchlesen die Codeschnipsel oder testen
Und als Tippnehmer: nicht nur stumpf abtippen sondern auch drüber sinnieren.

 

PHP:

         Dim hf As form_hauptformular
Dim ufq As form_unterformular_quelle
Dim ufz As form_unterformular_ziel
Dim filt As String
Dim sqlc As String
Dim i As Variant

Set hf = Forms("Kopie von HF_UT_Projekte")
Set ufq = hf!uf_quelle.Form
Set ufz = hf![UF_Projekte_UT].Form

filt = "("
For Each i In hf!PSalle.ItemsSelected
If filt <> "(" Then filt = filt & ","
filt = filt & hf!PSalle.ItemData(i)
Next

hier das Gleiche noch für die Listboxen in UF2 und UF3

sqlc = "select * from [tbl_UTProjekte]"
If filt <> "(" Then sqlc = sqlc & " where Bauleiter in " & filt & ")"
ufz.RecordSource = sqlc


 

Moin,
was sagt denn
Code:

?
maike

 

nichts, absolut nichts

Es passiert garnichts ?!

mein anderer Code
funktioniert soweit allerdings.
Nur kann ich mir damit nicht die leeren Felder filtern

Dim PSskrit As String
Dim item As Variant
PSskrit = ""
For Each item In PSalle.ItemsSelected
If PSalle.Column(1, item) "" Then PSskrit = PSskrit & "'" & PSalle.Column(1, item) & "',"
Next

If Len(PSskrit) > 0 Then PSskrit = Left(PSskrit, Len(PSskrit) - 1)
If Len(PSskrit) = 0 Then Me![UF_Projekte_UT].Form.RecordSource = "SELECT * FROM [tbl_UTProjekte]"

Me![UF_Projekte_UT].Form.RecordSource = _
"SELECT * FROM [tbl_UTProjekte] WHERE Bauleiter IN(" & PSskrit & ")"

 

Wie *confused.gif* ,

Es müsste in jedem Fall "(" sagen.

In deinem zweiten Code greifst du auf die zweite Spalte des Listenfeldes zu, im Code davor setzt sich filt aus der ersten Spalte zusammen. Was ist denn Bauleiter für ein Tabellenfeld, ID als Fremdschlüssel oder ein Name ...

Poste doch mal die komplette Prozedur, nicht nur den Ausschnitt.
Was meinst du mit "leere Felder" filtern?
maike

 

das ist die komplette Prozedur .-(

Ausser dass ich Private Sub PSalle_AfterUpdate() noch davor habe ist nichts anders

Ich habe ein Listenfeld mit der Bezeichung PSalle
dieses wird mittels
SELECT DISTINCT tbl_UTProjekte.Bauleiter, tbl_UTProjekte.Bauleiter FROM tbl_UTProjekte;

gefüllt wobei doppelte Einträge nicht angezeigt werden ( wära ja auch doof )

 

Leg dir doch mal einen Button auf dein Formular und setze den Code bei Button-Klick ein.
maike

 

Ich hab da eine Ahnung woran das liegen könnte ...

Wenn die Listboxen ohnehin im HF liegen, kannst Du als Objektverweis auch Me! nehmen und die Objektvariable sparen. Die benötigst Du nur für den Zugriff aus einem globalen Modul. Aber wenn, dann muss der Typ in der Definition zum zugewiesenen Objekt passen.

Wenn Du den Code nicht nur kopieren (abtippen) würdest sondern versuchen, ihn zu verstehen, könntest Du es freilich auch.
Code:

Hast Du schon mal was von ELSE gehört hinsichtlich IF