Re: [de-users] Base -> Makro -> Formular -> Tabellenkontrollfeld

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 users+help@de.libreoffice.org
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