Hallo Robert und Martin,
diese eMail hatte ich schon am 19.9. an die Liste geschickt,
aber sie ist bis jetzt nicht in meinem Posteingang aufgetaucht,
obwohl dies bei anderen Anfragen, die ich gestellt habe,
immer passiert ist.
Sicherheitshalber schicke die eMail hiermit ein zweites Mal.
Jörn
Robert Großkopf schrieb:
Hallo Jörn,
Mit dem Befehl "FilterName ("A*'")" filtere ich alle Datensätze,
deren Feld "Name" mit dem Buchstaben "A" beginnt.
Das funktioniert einwandfrei
(und für jeden Buchstaben habe ich mir ein Makro erstellt).
Wenn das geschehen ist, kann ich mich allerdings
mit den Navigationssymbolen nicht durch die
gefilterten Datensätze bewegen.
Das geht erst, wenn ich vorher in ein beliebiges Feld klicke.
Hast Du ein Formular erstellt? Vielleicht hast Du ja etwas mit Unterformularen gestaltet …
nein, ich habe kein Unterformular
Müsste doch eigentlich mit dem Makrorecorder erfolgen, oder?
Hab' ich schon probiert,
aber der Makro-Recorder funktioniert nur unter Writer und Calc.
In Base kann ich ihn zwar starten und beenden,
aber es erfolgt keine Aufforderung, das erzeugte Makro unter irgend
einem Namen abzuspeichern.
Ansonsten muss ich noch einmal schauen, was ich vor eingier Zeit bei einer
Beispieldatenbank dazu konstruiert habe:
Beipiel für eine Listbox im Formular mit dem Namen "Medien":
rem Formular ansteuern, Listbox ansteuern, Listbox neu einlesen
odoc=thisComponent
odrawpage=odoc.drawpage
oform=odrawpage.forms.getByName("Medien")
oControl=oform.getByName(NameListBox)
oControl.refresh()
Hab' ich versucht, bekomme aber die Fehlermeldung:
"… NoSuchElementExceptionMessage: ."
in der Zeile "oform=odrawpage.forms.getByName("Kontakte")",
wobei "Kontakte" der Name des Formulars ist.
Martin hatte um das komplette Makro gebeten:
REM Filtern von Datensätzen: Nachnamen mit identischen Anfangsbuchstaben
sub FilterName (Filter as String)
dim oDoc as object, oForm as object
oDoc = ThisComponent
oForm = oDoc.DrawPage.Forms(0)
oForm.filter = "Nachname LIKE '" + Filter
oForm.ApplyFilter=true
oForm.reload
end sub
sub A
FilterName ("A*'")
end sub
...etwas ratlos… trotzdem: Vielen Dank
Jörn
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org
