Kopieren von Textfeldern per Knopfdruck

[stuffed]

Hallo zusammen

Bin ein ganz frischer Base Benutzer und habe schon eine komplizierte Frage

Ich habe ein Formular zur Eingabe von Adressen, einmal für Mutter und einmal für Vater.

Jetzt möchte ich, dass der Benutzer nach Eingabe der Mutter-Adresse diese Daten per Knopfdruck auf die Adressfelder des Vaters übertragen kann (welche sich im selben Formular befinden).

Geht sowas wohl?

Danke & Gruss...
stuffed

[F3K Total]

Hallo,
sicher geht das.
Ohne den genauen Aufbau deiner DB zu kennen kann Dir aber sicherlich keiner helfen.
Wenn Du sie (Daten verfremdet) hier hochlädst, kann man mal schauen.


Gruß R

[stuffed]

Hi,

OK, ich versuche mal, mein Anliegen zu verdeutlichen:

Ich habe eine Tabelle mit zwei Spalten namens "Quelle" und "Ziel" (die Tabelle spielt hier allerdings gar keine Rolle).

Darauf lege ich ein Formular mit zwei Textfeldern namens "Quelle" und "Ziel".
Der User gibt im Formular im Feld "Quelle" einen Wert ein, z.B. xyz.

Ich hätte nun gerne einen Button auf dem Formular, mit welchem der Inhalt des Textfeldes "Quelle" in das Textfeld "Ziel" übertragen wird.

Wenn ich's nicht hinbekomme, sterbe ich auch nicht, aber vielleicht hat ja noch jemand eine Idee.

Danke & Gruss
Stuffed

[F3K Total]

Hallo,
anbei eine kleine Datenbank mit dem Formular "Eingabe Quelle Ziel" in dem das Gewünschte funktioniert.
Am Button hängt das Makro:

Code: Alles auswählen

Sub Copy_Quelle_Ziel

oform=ThisComponent.drawpage.forms.MainForm 'MainForm=Name des Formulars (Bearbeitungsmodus Formular/Rechtsklick auf ein Feld/Formular/Allgemein/Name)
oFieldQuelle=oform.txtQuelle'txtQuelle Name des Kontrollelements (Bearbeitungsmodus Formular/Rechtsklick auf das Eingabefeld "Quelle"/Kontrollfeld/Allgemein/Name)
oFieldQuelle.commit=true
if oform.isnew then
oform.insertrow
oform.updaterow
else
oform.updaterow
endif
oQuelle=oform.getstring(2)'2=zweite Spalte der Tabelle:Quelle
oForm.updatestring(3,oQuelle)'3=dritte Spalte der Tabelle:Ziel

End Sub

Gruß R

[stuffed]

Damit komme ich weiter.

Vielen Dank, das war eine grosse Hilfe.

Gruss
Stuffed

[F3K Total]

Hi,
habe noch eine letzte Zeile im Makro vergessen:

Code: Alles auswählen

Sub Copy_Quelle_Ziel

oform=ThisComponent.drawpage.forms.MainForm 'MainForm=Name des Formulars (Bearbeitungsmodus Formular/Rechtsklick auf ein Feld/Formular/Allgemein/Name)
oFieldQuelle=oform.txtQuelle'txtQuelle Name des Kontrollelements (Bearbeitungsmodus Formular/Rechtsklick auf das Eingabefeld "Quelle"/Kontrollfeld/Allgemein/Name)
oFieldQuelle.commit=true
if oform.isnew then
oform.insertrow
oform.updaterow
else
oform.updaterow
endif
oQuelle=oform.getstring(2)'2=zweite Spalte der Tabelle:Quelle
oForm.updatestring(3,oQuelle)'3=dritte Spalte der Tabelle:Ziel
oform.updaterow
End Sub

Gruß R