Code: Alles auswählen
Sub Spieler aus Manschaft (event as object)
Spielername = ThisComponent.Drawpage.Forms().getByIndex( 0 ).getByName( "Textfeld_Spielername" ).Text
onewdoc=ThisDatabaseDocument.FormDocuments.getByName( event.Source.Model.Tag ).open 'Formularname
oForm = onewdoc.DrawPage.Forms.GetByIndex( 0 )
ofield= oForm.getByName("Textfeld_Spielername")
ofield.Text=Spielername
ofield.commit=true
end sub
Gruß R