OpenOffice.info

Hallo Steffan,
vielen Dank für deine Antwort!
Zusammen mit diesen Beiträgen hier
[url]http://www.oooforum.de/viewtopic.php?f=18&t=40600&sid=c7daa21091f0d431d17e8bfd473c5df6[/url]
habe ich alles genau so hinbekommen, wie ich wollte, bzw. sogar noch besser, weil ich deinen Ansatz mit eingebaut habe, also ich habe gleich noch eine Listenansicht im Formular, die dann sozusagen als Vorschau dient.

Das Ergebnis meiner ganzen Testerei und so als Beispiel für diejenigen, die es interessiert, in der Anlage.
[attachment=0]TestFilter.odb[/attachment]

Danke noch einmal,
Reginald

Hallo Reginald,

schau Dir mal die beiliegende Beispiel-DB an (Formular1). In das Textfeld kannst Du dort irgend einen Text eingeben, nach dem dann das Feld Status gefiltert wird. Ich denke, das sollte Dir bei deiner Frage helfen.

Beste Grüße,
Steffan
[attachment=0]testfilter.odb[/attachment]

Hm, das klingt ziemlich plausibel, funktioniert aber nicht ... Er zeigt mir dann keinen Datensatz an, obwohl es einen gibt per den Werten, die ich filter. Also er zeigt so eine Maske an, die wie ein ganz neuer, leerer Datensatz aussieht ...

Hast du noch eine Idee zur Variante der Syntax?

Grüße
Reginald

oForm.Filter="LCASE(Status) LIKE '%" & lcase(sFilterfield) & "%'"

Hallo Reginald,

Du musst Deinen Filterstring halt aus Text und deiner Variablen zusammensetzen also[code]oForm.Filter="LCASE(Status) LIKE '%" & lcase(sFilterfield) & "%'"[/code]
Damit wird nicht zwischen Groß- und Kleinschreibung unterschieden (LCASE), das %-Zeichen ist in der SQL-Syntax Platzhalter für eine beliebige Anzahl von Zeichen.

Allerdings solltest Du überlegen, ob du in Deiner DB nicht eine Tabelle Status anlegst, in die Du die verschiedenen Stati (heisst das so?) einträgst und in Deiner Haupttabelle nur über die ID verknüpfst. Wenn Du jedesmal den Status per Hand neu einträgst kann es zu Fehlern kommen. Und wenn bei Status z.B. "Künde" steht wird dieser Datensatz auch nicht mit dem o.g. Filter erkannt.

Beste Grüße,
Steffan

Sub FilterResetten
	oDoc = ThisComponent
	oForm = oDoc.drawpage.forms.getbyindex(0)
	oForm.ApplyFilter = false
	oForm.Reload
End Sub

sFilterfield = InputBox("Bitte Status eingeben:","Datensätze filtern","<<Zu filternder Status>>")

Also bzgl. dem Resetten habe ich mir jetzt schon helfen können:

[code]Sub FilterResetten
oDoc = ThisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
oForm.ApplyFilter = false
oForm.Reload
End Sub[/code]

Entsprechend sollte bei dem Code ganz oben auch noch die Zeile oForm.ApplyFilter = true eingefügt werden for dem oForm.Reload

Ich kann den Wert für sFilterfield anstatt über ein Suchfeld im Formular über eine Inputbox abfragen:
[code]sFilterfield = InputBox("Bitte Status eingeben:","Datensätze filtern","<<Zu filternder Status>>")[/code]

Das mag für viele Kleinigkeiten sind, für mich aber schon große Schritten beim Neuerlernen einer Sprache ...

[b][color=#000080]+ Trotzdem bleibt die Frage, wie muss der Code aussehen, damit ich nach dem Feld sFilterfield filtern kann, also in der Art Status = sFilterfield.
+ Wie, wenn ich mit Platzhaltern suchen möchte, also in der Art Status = *sFilterfield*[/color][/b]

Also, danke schon einmal!!

Reginald

Sub FilterKunden
oDoc = ThisComponent  'Das ist immer so eine Muss-Zeile
oForm = oDoc.drawpage.forms.getbyindex(0)  'Drawpage des Formulars. Auch immer so eine Musszeile.
oForm.Filter="(Status = 'Kunde')"
oForm.Reload
End Sub

Hallo Steffan,

vielen Dank für deine Antwort! Ein klein wenig modifiziert funktioniert es nun:

[code]
Sub FilterKunden
oDoc = ThisComponent 'Das ist immer so eine Muss-Zeile
oForm = oDoc.drawpage.forms.getbyindex(0) 'Drawpage des Formulars. Auch immer so eine Musszeile.
oForm.Filter="(Status = 'Kunde')"
oForm.Reload
End Sub
[/code]

Jetzt die Gretchenfragen:
+ Manche Statusfelder haben den Wert "Kunde", manche "Kunden", manche "Firmenkunde". Wie muß die Zeile oForm.Filter=... aussehen, wenn ich sozusagen nach *kunde* suchen möchte?
+ Wie sieht der Spass aus, wenn der Filterwert in einer Variablen sFilter steht? Also in der Art oForm.Filter="(Status = sFilter)" (funzt so leider nicht, habe auch schon viele andere Varianten ausprobiert ....)
+ Mit welchem Wert kann ich den Filter wieder resetten, so dass ich wieder alle Datensätze sehen kann?

Vielen Dank!
Reginald

...
oDoc = ThisComponent
oCtrl = oDoc.getCurrentController()
oDraw = oDoc.drawpage
oForm = oDraw.forms.getbyName("Formularname")
oForm.Filter="(Status = 'Kunde')"
oForm.Reload
...

Hallo Reginald,
Du könntest Deinem Button1 z.B. folgenden Code zuweisen:
[code]...
oDoc = ThisComponent
oCtrl = oDoc.getCurrentController()
oDraw = oDoc.drawpage
oForm = oDraw.forms.getbyName("Formularname")
oForm.Filter="(Status = 'Kunde')"
oForm.Reload
...[/code]
Komfortabler wirds, wenn Du in Dein Formular eine Listbox einbaust, die die verschiedenen Einträge von 'Status' enthält und der dann den obigen Code zuweist. (In diesem Fall muss der Code noch noch um das Auslesen den selektierten Wertes ergänzt werden.)

Beste Grüße,
Steffan

Hallo!
Ich habe in einem Formular verschiedene Adressen: Kunden, Lieferanten und Sonstige. Das Kriterium steht in einem Feld "Status". Die kann ich mit der Standard-Filterfunktion von OO Base selektieren. Jetzt will ich das ganze aber mit einem Button machen.

Also Button 1 und er zeigt mir nur alle Kunden an. Button 2 für alle Lieferanten etc.

Kann mir jemand den Code nennen - oder zumindest den Befehl, um per Code zu filtern?

Oder, am besten: Ich habe nur einen Button und es geht eine neue Maske auf, wo ich dann die 3 Buttons sehe und dort auswählen kann.

(Ich habe vor 20 Jahrem mal Basic programmiert, und so ganz langsam komme ich wieder in das Thema Programmierung rein ...)

Danke schon mal!

Reginald