Hallo zusammen,
Jetzt habe ich noch ein paar Fragen zu meinem Eingabeformular, das hauptsächlich aus 5 Tabellensteuerelementen besteht mit jeweils 5 Spalten. Also keine Unterformulare. Die erste Spalte ist stets die ID. Die Spalten „Vorname“ und „Nachname“ enthalten Pflichteingaben. Hier ein Ausschnitt mit „gridVater“ und „gridMutter“:
- Formular_mit5Grids.JPG (41.26 KiB) 57 mal betrachtet
Von einem Tabellensteuerelement ins nächste springe ich mit
„Strg“+TAB, „Pos1“, „nach rechts“
und bin dann in der Spalte „Vorname“.
Die vielen interessanten Beiträge hier im Forum haben mich motiviert, eine Automatisierung dieses Vorgangs zu versuchen, obwohl Makros für mich Neuland sind. Ich habe dazu die letzte Spalte von „gridVater“ ("Vater Anmerkungen") mit folgendem Makro „bei Fokusverlust“ versehen:
Code: Alles auswählen
SUB NachGridMutterSpringen
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oGrid3 AS OBJECT
DIM oControl AS OBJECT
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.forms.getByName("MainForm")
oGrid3 = oForm.getByName("gridMutter")
oControl = oDoc.CurrentController.GetControl(oGrid3)
oControl.SetFocus
oControl.SetCurrentColumnPosition(1)
END SUB
Das klappt auch – fast. Denn der Datensatzzeiger (Cursor) springt zunächst eine Zeile runter und speichert dabei den aktuellen Datensatz, bevor er in die aktuelle Zeile zurückspringt. Das führt wegen den noch ausstehenden Pflichteingaben zu einer Fehlermeldung.
Das Problem konnte ich umgehen, indem ich eine eigentlich unnötige 6. Spalte angefügt habe (Dateninhalt = „ID“, wie Spalte 1). Jetzt hängt das Makro an der vorletzten Spalte, wodurch der Cursor beim Runterspringen im gleichen Datensatz bleibt.
Ich stelle mir als Makro-Anfänger die Frage, ob es nicht möglich ist, den Zeiger aus der letzten Spalte springen zu lassen ohne einen Ausrutscher in die nächste Zeile.
Weil ich für dieses Weiterspringen mehrere gleichartige Makros benötige, verwende ich diese Kurzfassung:
Code: Alles auswählen
SUB NachGridMutterSpringen
oGrid3 = thisComponent.Drawpage.forms.MainForm.gridMutter
oControl = thisComponent.CurrentController.GetControl(oGrid3)
oControl.SetFocus
oControl.SetCurrentColumnPosition(1)
END SUB
Gibt es eine Möglichkeit, für diese Sprünge ein gemeinsames Makro zu erstellen, dass also nicht „oGrid3“ usw. als Sprungziel angegeben wird, sondern allgemein „das nächste Tabellensteuerelement“?