OpenOffice.info

oForm.Filter = "LOWER(""Firstname"") LIKE LOWER('%" & sFilter & "%') OR LOWER(""Lastname"") LIKE LOWER('%" & sFilter & "%')"

Aloha DPunch!

Also das funktioniert! Danke! Super!!!

Ich habe mit ein wenig Ausprobieren auch das hinbekommen, dass er im Falle des Namens den Vornamen und Nachnamen gleichzeitig filtert. Sehr praktisch für unsere DAUs:

[code]oForm.Filter = "LOWER(""Firstname"") LIKE LOWER('%" & sFilter & "%') OR LOWER(""Lastname"") LIKE LOWER('%" & sFilter & "%')"[/code]

Danke noch einmal an alle, die geholfen haben! :D

Grüße,
Reginald

Sub ApplyFormFilter
	oDoc = thiscomponent
	oForm = oDoc.Drawpage.Forms(0)
	sFilter = InputBox("Bitte Namen eingeben:","Datensätze filtern","<<Zu filternder Name>>")
	oForm.Filter = "LOWER(""Name"") LIKE LOWER('%" & sFilter & "%')"
	oForm.applyFilter = True
	oForm.reload
	If oForm.isAfterLast Then
		MsgBox("Keine Datensätze gefunden für" & Chr(13) & sFilter,48,"Datensätze filtern")
	End If
End Sub

Sub RemoveFormFilter
	oDoc = thiscomponent
	oForm = oDoc.Drawpage.Forms(0)
	oForm.Filter = ""
	oForm.applyFilter = False
	oForm.reload
End sub

Aloha

Versuch mal folgendes:

[code]
Sub ApplyFormFilter
oDoc = thiscomponent
oForm = oDoc.Drawpage.Forms(0)
sFilter = InputBox("Bitte Namen eingeben:","Datensätze filtern","<<Zu filternder Name>>")
oForm.Filter = "LOWER(""Name"") LIKE LOWER('%" & sFilter & "%')"
oForm.applyFilter = True
oForm.reload
If oForm.isAfterLast Then
MsgBox("Keine Datensätze gefunden für" & Chr(13) & sFilter,48,"Datensätze filtern")
End If
End Sub

Sub RemoveFormFilter
oDoc = thiscomponent
oForm = oDoc.Drawpage.Forms(0)
oForm.Filter = ""
oForm.applyFilter = False
oForm.reload
End sub
[/code]

Hatten wir die Tage schonmal....

siehe: http://de.openoffice.info/viewtopic.php?f=8&t=40246


...das ist die eine Hälfte "der Wahrheit".

Noch eingestellt werden muss, dass die neuen Datensätze als Filter für's Formular angenommen werden.
Ich such' mal (glaube: ActiveFilter)

Hallo, ich habe eine kleine OO Base Datenbank mit Kunden und möchte für die Anwender (DAUs) einen Button in ein Formular einbauen, per dessen Knopfdruck eine 0815 Eingabemaske aufgeht, wo ich einen Namen eingebe, der dann automatisch mit Wildcards gefiltert wird. Also der User gibt ein [color=#0000BF]schmi[/color] und gefiltert wird im Nachnamensfeld [color=#0000BF]*schmi*[/color], um [color=#0000BF]Schmitt[/color], [color=#0000BF]Schmidt[/color] oder [color=#0000BF]Maier-Schmidt[/color] zu finden.

Einen zweiten Button bräuchte ich, um den Filter wieder abzuschalten. Die Filterfunktion, die OO standardmäßig bietet, macht zwar genau das, was ich brauche, ist aber für die User schon zu umständlich...

Ich selbst habe vor 20 Jahren mal mit Basic und Turbopascal programmiert, habe seitdem aber fast nichts mit Programmierung mehr gemacht.

Danke vorab!!
Reginald