OpenOffice.info

Sub S_copy_current_row

oform=thisComponent.drawpage.forms(0)
ocolumns=oform.columns
ncount=ocolumns.count
dim a_Values(ncount) as string
for i=2 to ncount
  a_Values(i)=oform.getstring(i)
next i
oform.moveToInsertRow
for i=2 to ncount
  oform.updatestring(i,a_Values(i))
next i
oform.insertrow
end sub

Selber Hallo!
Einen vorgefertigten Befehl zum Kopieren eines Datensatzes kenne ich nicht.
Per Makro ist das aber möglich. Dafür benötigt man mehr Infos über den Aufbau der Datenbank, genauer des betroffenen Formulares und die Spaltentypen der Tabelle.
Am besten ein Beispieldokument hochladen, ggf. verfremdet.
Dann könnte Dir geholfen werden.

Wenn Du
[color=#0040FF]- in der 1. Spalte der Tabelle einen AutoWert-Primäschlüssel hast und
- nur eine Tabelle, ohne Unterformulare, am Formular hängt[/color]
geht in [color=#0040FF]vielen Fällen[/color] dieses Makro, was man an einen Button "aktuellen Datensatz kopieren" hängt. Das Makro kopiert den aktuell ausgewählten Datensatz ans Ende der Tabelle.
[code]Sub S_copy_current_row

oform=thisComponent.drawpage.forms(0)
ocolumns=oform.columns
ncount=ocolumns.count
dim a_Values(ncount) as string
for i=2 to ncount
a_Values(i)=oform.getstring(i)
next i
oform.moveToInsertRow
for i=2 to ncount
oform.updatestring(i,a_Values(i))
next i
oform.insertrow
end sub[/code]

Gruß R