OpenOffice.info

Toll, das funktioniert. :D
Vielen Dank!!

oDoc = ThisComponent
oFormU = oDoc.DrawPage.Forms(0)

Sub FilterSetz(oFormU as Object, sRezName as String)
   Dim oFormToFilter as Object
   oFormToFilter = oFormU.DrawPage.Forms(0)
   oFormToFilter.Filter = (" ""RezeptName"" = '" & sRezName & "'")
   oFormToFilter.ApplyFilter = True
   oFormToFilter.reload
End Sub

Aloha

Bei mir (OOo 3.11) funktioniert das Öffnen mit Filter wie gewünscht.

[quote]So wie ich das sehe, läuft das deshalb nicht, weil das aufrufende Formular immer noch aktiv ist und mein Versuch, das damit zu ändern, dass ich "oForm" mitgebe an die andere Funktion auch nicht funtkioniert.[/quote]

Die übergibst zwar "oForm", aber mit Deinem momentanen Code macht das überhaupt keinen Unterschied, weil Du mit
[code]oDoc = ThisComponent
oFormU = oDoc.DrawPage.Forms(0)[/code]
das übergebene Objekt direkt wieder überschreibst (und zwar auch in der aufrufenden Prozedur).
Das sollte in diesem Fall zwar nicht weiter tragisch sein, weil eigentlich das neu geöffnete Formular sowieso "ThisComponent" - also aktiv - sein sollte, aber Parameter zu übergeben und dann direkt zu überschreiben macht in den seltensten Fällen Sinn.
Um das jedoch als potenzielle Fehlerquelle auszuschliessen, solltest Du die Filter-Prozedur vielleicht lieber folgendermaßen anpassen:

[code]
Sub FilterSetz(oFormU as Object, sRezName as String)
Dim oFormToFilter as Object
oFormToFilter = oFormU.DrawPage.Forms(0)
oFormToFilter.Filter = (" ""RezeptName"" = '" & sRezName & "'")
oFormToFilter.ApplyFilter = True
oFormToFilter.reload
End Sub
[/code]

Ansonsten kann ich im Code eigentlich keine Fehler entdecken.
Man könnte höchstens noch überprüfen, ob die Datenanbindung in Deinem "Rezept"-Formular korrekt ist

Sub Formular_aufrufen(sRName as String)
	dim sFormularName as string, oContext as Object, oDatenbank as Object
	DIM oVerb as Object, i as Integer
	dim arg(1) as New com.sun.star.beans.PropertyValue
	dim aFormulare(), oDoc as Object, oForm as Object
	sFormularName = "Rezept"
	
	aFormulare = StarDesktop.CurrentComponent.getParent.getFormDocuments().getElementNames()
	
	for i = lBound(aFormulare) to uBound(aFormulare)
		if aFormulare(i) = sFormularName then
			oContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
			oDatenbank = oContext.getByName(StarDesktop.CurrentComponent.getParent.getLocation())
			oVerb = oDatenbank.getConnection("","")
			arg(0).Name = "OpenMode"
			arg(0).Value = "open"
			arg(1).Name = "ActiveConnection"
			arg(1).Value = oVerb
			oForm = StarDesktop.CurrentComponent.getParent.getFormDocuments().loadComponentFromURL(aFormulare(i), "", 0, Arg())
			REM oForm => Formular 'Rezept'
			FilterSetz(oForm, sRName)
			Exit Sub
		end if
	next
End Sub

Sub FilterSetz(oFormU as Object, sRezName as String)
	DIM  oDoc as Object
	
	REM Setzt Filter auf Formular Suchanfrage!!
	oDoc = ThisComponent
	oFormU = oDoc.DrawPage.Forms(0)

	oFormU.Filter = (" ""RezeptName"" = '" & sRezName & "'")
	oFormU.ApplyFilter = True
	oFormU.reload
	
End Sub
	

Ich habe ein Formular erstellt, mit dem ich aus den vorhandenen Datensätzen den richtigen suchen kann.
Den gefundenen Datensatz möchte ich in einem anderen Formular öffnen.
Dazu soll ein Filter gesetzt werden, oder aber eine SQL-Abfrage angewendet werden.

Mit Filter öffnen habe ich Makros gefunden, die aber nur dann laufen, wenn ich sie von dem (neuen) Formular selbst aufrufe.

ich habe folgendes versucht:
[code]
Sub Formular_aufrufen(sRName as String)
dim sFormularName as string, oContext as Object, oDatenbank as Object
DIM oVerb as Object, i as Integer
dim arg(1) as New com.sun.star.beans.PropertyValue
dim aFormulare(), oDoc as Object, oForm as Object
sFormularName = "Rezept"

aFormulare = StarDesktop.CurrentComponent.getParent.getFormDocuments().getElementNames()

for i = lBound(aFormulare) to uBound(aFormulare)
if aFormulare(i) = sFormularName then
oContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDatenbank = oContext.getByName(StarDesktop.CurrentComponent.getParent.getLocation())
oVerb = oDatenbank.getConnection("","")
arg(0).Name = "OpenMode"
arg(0).Value = "open"
arg(1).Name = "ActiveConnection"
arg(1).Value = oVerb
oForm = StarDesktop.CurrentComponent.getParent.getFormDocuments().loadComponentFromURL(aFormulare(i), "", 0, Arg())
REM oForm => Formular 'Rezept'
FilterSetz(oForm, sRName)
Exit Sub
end if
next
End Sub

Sub FilterSetz(oFormU as Object, sRezName as String)
DIM oDoc as Object

REM Setzt Filter auf Formular Suchanfrage!!
oDoc = ThisComponent
oFormU = oDoc.DrawPage.Forms(0)

oFormU.Filter = (" ""RezeptName"" = '" & sRezName & "'")
oFormU.ApplyFilter = True
oFormU.reload

End Sub

[/code]

So wie ich das sehe, läuft das deshalb nicht, weil das aufrufende Formular immer noch aktiv ist und mein Versuch, das damit zu ändern, dass ich "oForm" mitgebe an die andere Funktion auch nicht funtkioniert.

Kann mir da jemand weiterhelfen? Ich bin leider auf meiner Suche nicht fündig geworden.

Ich nutze OpenOffice 3.2.0 in Windows XP

Vielen Dank für Eure Hilfe.