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

wenn ich wüsste wie es geht würde ich es verstehen und müsste hier nicht ständig Fragen in diesem thread stellen.

Ich verstehe derzeit nicht wieso in nachfolgendem Code nicht eine msgbox angezeigt wird

PHP:

         Dim filt As String
Dim sqlc As String
Dim i As Variant
MsgBox "los"
filt = "("
MsgBox filt
For Each i In Me.PSalle.ItemsSelected
If filt <> "(" Then filt = filt & ","
filt = filt & Me.PSalle.ItemData(i)
MsgBox 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 & ")"
UF_Projekte_UT!.RecordSource = sqlc


 

jetzt habe ich nochmal probiert und einzelne bereiche nicht ausführen lassen.
Die Msgboxen haben ja nun gezeigt das Inhalte übergeben werden.
Ich habe es geschafft die daten zu filtern wobei ich wieder erst die Hochkommas einfügen musste.

Nun sieht mein Code wie folgt aus

PHP:

         Dim filt As String
Dim sqlc As String
Dim i As Variant
filt = "("
MsgBox filt
For Each i In Me.PSalle.ItemsSelected
If filt <> "(" Then filt = filt & ","
filt = filt & "'" & Me.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 & ")"
Me!UF_Projekte_UT.Form.RecordSource = sqlc


 

Das könnte daran liegen, dass das Programm in diesem Teil des Codes nie "vorbeikommt". Hast Du mal einen Breakpoint gesetzt? Dann kannst Du - statt der vielen MsgBoxen - auch das Überwachungsfenster verwenden um zu beobachten, wie sich die Inhalte der Variablen entwickeln.

/Edit (nach #32)

Wie kann das denn gehen?
Diese Sätze werden doch dann überhaupt nicht in der Listbox angezeigt ...

 

doch, es ist eine leere zeile die ich auch in dem Listfeld auswählen kann.
Wenn ich diese auswähle müsste doch auch alles gefiltert werden was keinen Inhalt hat.
es gibt datensätze bei denen die daten erst noch manuell gepflegt werden müssen.
Wenn ich die nicht lokalisieren kann werden die ja nie bearbeitet

 

Wenn es mehrere Datensätze ohne Eintrag gibt, hast Du ja mehrere Zeilen in der ListBox ... und dann hast Du ja (s.o.) MultiSelect eingestellt ... wie soll das Programm denn wissen, welche Zeile ausgewählt ist, wenn mehr als eine leere oder nicht-leere angeklickt wurde? *entsetzt
Da würde die Filter-Auswahl nach der ID in der gebundenen Spalte ja doch mehr Sinn machen, oder?

Andererseits stellst Du Dir in Deiner Routine ja selbst ein Bein, wenn Du leere Einträge ausdrücklich vom Eintrag in die Filterliste ausklammerst

 

Diese Codezeile nutze ich doch nicht mehr.
Der Code den ich am 25.01.2013 16:50 eingestellt habe funktioniert soweit.
Nur leere Einträge kann ich damit nicht filtern.
wenn ich dafür noch eine Lösung hätte wäre mein Problem wohl gelöst.

ich packe das jetzt am besten alles in eine Funktion und erstelle den SQL Befehl für alle Filter die ich benötigen werde und die dann kombiniert werden müssen.
Dann reicht es ja, wenn ich die Funktion bei einer Aktualisierung eines jeden Suchfeldes aufrufe.

 

Du meinst #32, ja?
Da wird also für einen "leeren" Eintrag in der Listbox ein Leerstring in den Filterausdruck übernommen. Möglicherweise sind aber die bereffenden Felder in der Datenquelle tatsächlich leer, d.h. NULL (und das ist was anderes als ein Leerstring).
Probier's mal so: Code:

 

ganz großes Kino *Smilie , es funktioniert.
Könntest du mir bitte noch die Codezeile erklären ?
Was macht nz z.B.

Das wäre echt prima weil ich gerne verstehe warum ich etwas machen muss wie ich es machen muss und kann somit meine neuen Kenntnisse bei anderen Problemen anwenden

vielen lieben Dank

 

Hallo!

Das kannst Du ganz leicht selber herausfinden. *wink.gif*

Wechsle in den VBA-Editor, setze den Cursor in das "Wort" Nz und drücke die F1-Taste. Jetzt erscheint die Hilfe zur Funktion Nz. Wenn dann noch Fragen offen sind, bist Du hier richtig.

CU

 

super, vielen lieben Dank

 

eine Frage habe ich noch ....

Ich habe nun die Tabellenstruktur geändert und einige Datenfelder in eine zweite Tabelle geschoben.
Wenn ich nun den Filter anwende kommt bei den Feldern die in der zweiten Tabelle liegen immer ?Name

Beim ersten Aufruf, also ohne Filter, stehen die Werte in den Feldern richtig drinnen !

Woran kann das liegen ?

 

kannitverstaan

 

vorher hatte ich alle Datenfelder aus einer Tabelle im EF integriert.
Da mir aber nun auffiel, dass einige Gatensätze mehrfach vorkommen können habe ich die Tabelle aufgeteilt.

Im Detail handelt es sich um Objektdaten wie Adresse usw.

Eine Adresse kann mehrfach vorkommen bzw. können unter einer Adresse mehrere Bauvorhaben laufen.

Aus diesem Grunde habe ich die Adressdaten in eine weitere Tabelle gelegt und eine Beziehung zu den Tabellen hergestellt.
Nun rufe ich mein HF auf und alle Daten stehen da
aktiviere ich den Filter stehen in den Feldern zur Adresse überall #Name?

 

Überprüfe mal, was tatsächlich als SQL-String übergeben wird und zeige den Code.
Was ist der ursprüngliche Inhalt der RecordSource?

 

das ist ja mal komisch,
nachfolgend der SQL String als Datenherkunft wobei Wohnungsdaten die Adressdaten sind.
UTProjekte sind die Bauvorhaben

SELECT tbl_UTProjekte.*, tbl_Wohnungsdaten.Wirtschaftseinheit, tbl_Wohnungsdaten.Mieteinheit, tbl_Wohnungsdaten.Straße, tbl_Wohnungsdaten.Geschoßbezeichnung, tbl_Wohnungsdaten.[Lage im Geschoss] FROM tbl_Wohnungsdaten INNER JOIN tbl_UTProjekte ON tbl_Wohnungsdaten.ID = tbl_UTProjekte.tbl_Wohnungsdaten_ID;


Klicke ich nun auf die Details zur Datenherkunft stehen da die Adressdaten und die Bauvorhaben ( hier mit Stern )