Werte von Feld1 nach Feld2 übertragen

[julia29]

Hallo,
ich suche eine Möglichkeit in einem Formular mit einzelnen Datenbankfeldern einen Feldwert per Mausklick in ein anderes Feld kopieren/übertragen. Zum Beispiel habe ich da das Feld1 und möchte, am Besten per Schaltfläche, den Feldinhalt in Feld2 eintragen. Dies geht natürlich auch per Kopieren, kann aber bei vielen DS schon lästig werden (hohe Fehlermöglichkeit).
Dies sollte mit einem Makro machbar sein, habe jedoch keine Ahnung wie mein Code dafür aussehen müsste.
Kann mir hier einer helfen?

Gruß
Julia

[pmoegenb]

Hallo Julia,

probiers mal mit SQL. Z. B.:

Code: Alles auswählen

UPDATE Tabelle1
SET Feld2 = Feld1
WHERE Feld? = sonstwas 

[julia29]

Hallo Julia,

probiers mal mit SQL. Z. B.:

Code: Alles auswählen

UPDATE Tabelle1
SET Feld2 = Feld1
WHERE Feld? = sonstwas 

Hallo pmoegenb,

sieht ja einfach aus, hat bei mir auf Anhieb erstmal nur Fehler produziert. Dies liegt bestimmt nicht an Deinem Code sonder eher an meine Unkenntnis was generell das Handling mit OO-Base betrifft.
Werde mir das morgen genauer ausprobieren.

Vielen Dank erstmal
Gruß
Julia

[egottfried]

hallo,
ohne Garantie, dass es funktioniert

Code: Alles auswählen

Dim oDoc as Object,oDocCtl as Object, oForm as Object, oFeld as Object, oFeld2 as Object
 Dim oFeldView as Object, oFeld2View as Object
 Dim inhalt as String

 	oDoc = ThisComponent
	oDocCtl = oDoc.getCurrentController()
 	oForm = oDoc.drawpage.forms(0)
 	oFeld = oForm.getByName("Feld1")
 	oFeldView = oDocCtl.getControl(oFeld)
 	inhalt = oFeldView.text 
	
	oFeld2 = oForm.getByName("Feld2")
 	oFeld2View = oDocCtl.getControl(oFeld2)
	oFeld2View.text = inhalt
 

Ich öffne mit ähnlichem, umfangreicheren Code aus einem externen Suchformular heraus das Formular Vorgang bearbeiten und übergebe die Vorgangs-ID an das neue Formular. Unter OOo 2.3.0 funktioniert der Code, unter 2.4.1 leider nicht, Gründe bisher unbekannt, arbeite deshalb zunächst weiter unter 2.3.0 an meinem Projekt.
viele Grüße
egottfried