Du liest in Deinem Makro gar keine Variablen aus. So kannst Du natürlich auch nicht weiter geben.
Start des Makros:
Code: Alles auswählen
SUB openForm(oEvent AS OBJECT)
Code: Alles auswählen
oForm = oEvent.Source.Model.Parent
Code: Alles auswählen
stVName = oForm.getByName("txtVorname").getCurrentValue()
Jetzt willst Du das neue Formular öffnen - das passiert ja sicher schon korrekt. Anschließend musst Du in diesem Formular auf die Felder zugreifen, in die Du das Ganze rein schreiben willst:
Code: Alles auswählen
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.Forms.getByName("MainForm")
oFeld = oForm.getByName("Hier soll der Vorname rein")
oFeld.BoundField.UpdateString(stVName)
Gruß
Robert