Hallo Frieder, Robert,
ich habe das Makro zum Laufen gebracht. Knackpunkt war die Reihenfolge
der Makro-Sequenzen.
sub Probe
dim oTable1, ofild, oControll
oTable1 = thisComponent.drawpage.forms(0).getByName("MainForm_Nachname")
If oTable1.getRowSet.RowCount =0 Then Exit Sub
'Die folgende Reihenfolge der Zeilen muss unbedingt einghalten werden
oTable1.getRowSet.Last
oControll = thiscomponent.CurrentController.getControl(oTable1)
oControll.SetCurrentColumnPosition(1)
thiscomponent.CurrentController.getControl(oTable1).setFocus
sNameID = oTable1.getByIndex(1).Text
oTable1.getRowSet.moveToInsertRow
' Ende der Reihenfolge, die unbedingt eingehalten werden muss
ofild=oTable1.getByIndex(1)
ofild.Text= sNameID
ofild.commit
oControll.SetCurrentColumnPosition(4)
end sub
Vielen Dank für Eure Hilfe.
Gruß
Jochen
--
Informationen zum Abmelden: E-Mail an [email protected]
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
