Seite 1 von 1
Kopieren von Textfeldern per Knopfdruck
Verfasst: So, 04.09.2011 13:17
von 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
Re: Kopieren von Textfeldern per Knopfdruck
Verfasst: So, 04.09.2011 19:49
von 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
Re: Kopieren von Textfeldern per Knopfdruck
Verfasst: Di, 06.09.2011 22:12
von 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
Re: Kopieren von Textfeldern per Knopfdruck
Verfasst: Mi, 07.09.2011 06:31
von 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
Re: Kopieren von Textfeldern per Knopfdruck
Verfasst: Do, 08.09.2011 22:27
von stuffed
Damit komme ich weiter.
Vielen Dank, das war eine grosse Hilfe.
Gruss
Stuffed
Re: Kopieren von Textfeldern per Knopfdruck
Verfasst: Do, 08.09.2011 22:48
von 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