Dateingabe für gleiche Datensätze automatisieren

Datenbanklösungen mit AOO/LO

Moderator: Moderatoren

F3K Total
********
Beiträge: 3720
Registriert: Mo, 28.02.2011 17:49

Re: Dateingabe für gleiche Datensätze automatisieren

Beitrag von F3K Total »

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
- in der 1. Spalte der Tabelle einen AutoWert-Primäschlüssel hast und
- nur eine Tabelle, ohne Unterformulare, am Formular hängt

geht in vielen Fällen 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: Alles auswählen

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
Gruß R