OpenOffice.info

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

... ohne das ich es probiert hätte:

[code]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[/code]

Viel Erfolg
Gruß R