OpenOffice.info

Hallo,

wnn Du in der Bearbeiten-Ansicht Deines Formulars den Button markierst und dann die Eigenschaften aufrufst (z.B. mit rechter Maustaste), dann hast Du beim letzten Reiter die Möglichkeit, das Makro einer Aktion des Buttons zuzuordnen.

Viele Grüß
AhQ

Sub SearchByState 
dim oFilter as object 
dim oFormCtl as object 

oFormCtl = ThisComponent.Drawpage.Forms.getByName("Kunden") 
oFilter = oFormCtl.getByName("oFilt") 

if oFilter.CurrentValue <> "" then
	oFormCtl.Filter = "State LIKE " + "'"+oFilter.CurrentValue+"'" 
	oFormCtl.ApplyFilter = True else oFormCtl.ApplyFilter = False 
end if 

oFormCtl.Reload 

End Sub

Hallo Leute,

ich erstelle Grad ein Formular wo die Daten der Kunden enthalten sind. Allerdings damit es kundenfreundlicher ist, will ich ein Feld erstellen, wo man die Kdnr eingeben soll, und dann direkt die Daten angezeigt werden. Allerdings bekomme ich das nicht hin. Ich hab zwar ein Feld erstellt, doch durch die Eingabe und dann mit einer Aktualisierung der Seite passiert nichts. Ich danke jetzt schon für Hilfen


Hier der Code:

[code]Sub SearchByState
dim oFilter as object
dim oFormCtl as object

oFormCtl = ThisComponent.Drawpage.Forms.getByName("Kunden")
oFilter = oFormCtl.getByName("oFilt")

if oFilter.CurrentValue <> "" then
oFormCtl.Filter = "State LIKE " + "'"+oFilter.CurrentValue+"'"
oFormCtl.ApplyFilter = True else oFormCtl.ApplyFilter = False
end if

oFormCtl.Reload

End Sub
[/code]
ich hab alles hinbekommen, trotzdem danke.