OpenOffice.info

Super, vielen lieben Dank!! (:

Hi, hier zwei kleine Makros dafür:
[list][*]Filter leeren, an das Ereignis [color=#0040FF]Beim Laden[/color] des [color=#0040FF][b]Filter[/b][/color]formulares gebunden:
[code]Sub S_Reset_Filter(event)
if event.source.supportsservice("com.sun.star.sdbcx.ResultSet") then
oform = event.source
for i = 1 to oForm.columns.count
oform.updatenull(i)
next i
endif
oform.updaterow
oform.reload
end sub[/code]
[*]Schreibwarnung, an das Ereignis [color=#0040FF]vor der Datensatzaktion[/color] des [color=#0040FF][b]Unter[/b][/color]formulares gebunden
[code]Sub S_Check_modify_accepted(event)
if event.source.supportsservice("com.sun.star.sdbcx.ResultSet") then
oform = event.source
if msgbox ("Die aktuelle Zeile wurde geändert, sollen die Änderungen übernommen werden?",36,"Datensatzaktion") = 7 then
oForm.refreshrow
endif
endif
End Sub[/code][/list]
Viel Erfolg
Gruß R

Hallo & frohes neues Jahr erst mal (:

Ja, ich dachte nur an die Möglichkeit, dass sobald man das Formular erneut öffnet, die Filtertabelle geleert ist, sodass in den Suchfeldern zur Eingabe nichts drin steht. Aber das geht sicher irgendwie über ein Makro, da probiere ich mal rum.

Ich habe das Formualr ja jetzt so gestaltet, dass die Einträge im Tabellenblatt editierbar bleiben - entweder als Textfeld oder Listenfeld. Änderungen werden allerdings sofort übernommen, ohne dass gefragt wird, ob man den Datensatz überhaupt ändern möchte - d.h. wenn man ausversehen irgendeine Zelle ändert, würde man das gar nicht mitbekommen. Gibt es hier nicht auch die Möglichkeit, dass eine Meldung wie z.B. "Der Inhalt des aktuellen Formulars wurde geändert. Sollen die Änderungen gespeichert werden?" kommt?

Liebe Grüße, Steffi

Klar,
gehe in die Farbfilter-Listbox und selektiere den obersten, leeren Eintrag.
Gruß R

ach.. da kommt immer A004 raus, weil zuletzt gelb gewählt wurde und das noch in der Filter-Tabelle gespeichert ist. oooohjeee. Brett vorm Kopf, sorry ^^

Gibts eine Möglichkeit die letzte Filterung immer zu löschen?

SELECT "a"."*", 

( SELECT IFNULL( "TA_Farbe"."Farbe_Kosten", 0 ) + IFNULL( "TA_Form"."Form_Kosten", 0 )  FROM "TA_Farbe", "TA_Form" WHERE "TA_Farbe"."Farbe_ID" = "a"."Farbe_ID" AND "TA_Form"."Form_ID" = "a"."Form_ID" ) AS "Kosten" 

FROM "TA_Main" AS "a" 

WHERE ( LOWER ( "Auftragsnummer" ) LIKE LOWER ( '%' || :qAuftragsnummer || '%' ) OR :qAuftragsnummer IS NULL ) AND  ( "Farbe_ID" = :qFarbe_ID OR :qFarbe_ID IS NULL )

Vielen Dank für die schnelle Antwort! Also irgendwas stimmt bei der Abfrage nicht, hab deine Klammern und das [color=#0000FF]'%' ||[/color] ergänzt und die Abfrage sieht vollständig so aus:

[code]SELECT "a"."*",

( SELECT IFNULL( "TA_Farbe"."Farbe_Kosten", 0 ) + IFNULL( "TA_Form"."Form_Kosten", 0 ) FROM "TA_Farbe", "TA_Form" WHERE "TA_Farbe"."Farbe_ID" = "a"."Farbe_ID" AND "TA_Form"."Form_ID" = "a"."Form_ID" ) AS "Kosten"

FROM "TA_Main" AS "a"

WHERE ( LOWER ( "Auftragsnummer" ) LIKE LOWER ( '%' || :qAuftragsnummer || '%' ) OR :qAuftragsnummer IS NULL ) AND ( "Farbe_ID" = :qFarbe_ID OR :qFarbe_ID IS NULL )[/code]

Wenn ich bei den Parametern nichts eingebe, müssten ja alle Aufträge angezeigt werden - aber es kommt kurioser Weise nur Auftrag A004 raus.

Für die Auftragsnummer ohne[color=#0000FF] AND ( "Farbe_ID" = :qFarbe_ID OR :qFarbe_ID IS NULL )[/color] funktioniert es, aber mit der Farbe_ID nicht.. und die Filtertabelle hatte ich ja bereits um das Integer-Feld "Farbe_ID" erweitert. Siehst du vllt noch einen Fehler?

AND 
    ( "Spalte" = :qSpalte OR :qSpalte IS NULL )

Hi Steffi,
das sieht schon richtig gut aus, ganz großes Kino, auch das Listenfeld für die Farbwahl, Klasse.
Zwei kleine Flüchtigkeitsfehler habe ich gefunden:
Damit das Formular [color=#0040FF]Alle Daten Filter qAuftrag qFarbe[/color] funktioniert,
[list][*]nimm die Abfrage, die du dafür gemacht hast, [color=#0040FF]qFilter_qAuftrag_qFarbe[/color] als Datengrunglage für das Formular, momentan war [color=#0040FF]qFilter_qAuftrag[/color] eingstellt.
[*]In der Abfrage [color=#0040FF]qFilter_qAuftrag_qFarbe[/color] fehlt eine Umklammerung(rot):[quote]WHERE
( LOWER ( "Auftragsnummer" ) LIKE LOWER ([color=#0000FF][b] '%' ||[/b][/color] :qAuftragsnummer || '%' ) OR :qAuftragsnummer IS NULL )
AND
[color=#FF0000][b]([/b][/color] "Farbe_ID" = :qFarbe_ID OR :qFarbe_ID IS NULL [color=#FF0000][b])[/b][/color][/quote][/list]
Wie du hier siehst, habe ich noch [color=#0040FF]'%' ||[/color] vor :qAuftragsnummer eingetragen, so kannst Du z.B. auch nur eine Zahl eingeben um nach der Auftragsnummer zu suchen.
Um weitere Filterfelder zuzufügen, brauchst du nur der Filtertabelle jeweils eine Spalte zufügen, die Abfrage dazu passend um
[code]AND
( "Spalte" = :qSpalte OR :qSpalte IS NULL )[/code] erweitern, für Textspalten ggf. mit dem bekannten [color=#0040FF]LOWER[/color] und [color=#0040FF]'%'[/color] davor und/oder dahinter und die Verknüpfung zum Filterformular ebenfalls um die neue Spalte erweitern.

Viel Erfolg
Gruß R

Hallo liebes Forum,

habe mir die Tutorials (http://de.openoffice.info/viewtopic.php?f=27&t=54234#p237478) angesehen und ausprobiert. Finds super, dass der Filter ohne Makros funktioniert. Hab den Filter für mein Beispiel auch hinbekommen, allerdings nur für Daten, die direkt in der Haupttabelle gespeichert werden. Bei Daten, die in anderen Tabellen liegen und über IDs verknüpft sind, greift der Filter irgendwie nicht :( Ich lade mal ein Beispiel hoch. Im Formular „Alle Daten Filter qAuftrag qFarbe“ ist zu sehen, dass die Filterabfrage für „Auftrag“ klappt, aber für „Farbe“ leider nicht..

Ich hoffe Ihr könnt mir helfen.

Liebe Grüße, Steffi