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: Alles auswählen
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