Datensatz automatisch aktualisieren

[alcantaro]

Hallo an alle,
ich habe ein Problem, an dem ich einfach nicht weiterkomme und hoffe hier Hilfe zu finden.

Das Problem ist folgendes: Ich möchte beim Wechsel der Datensätze in der Tabelle Kunden in die Tabelle ZW automatisch die Kundennummer (oForm.getString(1)) schreiben. Die Anzeige im Formular über (oFormSub.getByName("Nr").value = KUNummer) bzw. (oForm.getByName("Name").Text = KUName) klappt einwandfrei. Habe ich einen prinzipiellen Denkfehler oder warum komme ich zu keinem Ergebnis??

Sub Nummer_Kopieren
Dim oForm As Object
Dim oFormSub As Object
DIM KUName AS String
DIM KUNummer AS String
oForm = ThisComponent.drawpage.forms.getByName("Kunden")
KUName = oForm.getString(11)
KUNummer = oForm.getString(1)
oForm.getByName("Name").Text = KUName
oFormSub = ThisComponent.drawpage.forms.getByName("Kunden").getByName("ZW")
oFormSub.getString(1) = oForm.getString(1)
oFormSub.getByName("Nr").value = KUNummer
oFormSub.updateRow()
oFormSub.reload
End Sub
Vielen Dank!!!!!!!