[gelöst] Formular: Zellenwert in Kontrollfeld übertragen

[geimist]

Hallo,

In einem Base-Formularcontainer habe ich nebeneinander 2 Formulare: 1. Rechnung und 2. Kunde.
Wenn ich einen neuen Kunden erstelle, so möchte ich einfach per Button die generierte Kundennummer in das Rechnungsformular übertragen.

Mein Problem liegt darin, dass der Wert zwar korrekt übertragen wird aber nicht richtig in dem Zielkontrollfeld 'verankert' zu sein scheint, denn beim speichern der entsprechenden Rechnung wird das Kontrollfeld wie leer behandelt und der Wert nicht gespeichert.

Hier der Code:

Code: Alles auswählen

Sub KUNDENNUMMER_UEBERNEHMEN

'ziel: 		fmtkdnr
'quelle: 	txtkdnr

Dim oFeld as variant
Dim oDoc as variant
Dim oForm as variant

	oDoc = ThisComponent
	oForm = oDoc.DrawPage.Forms.getByName("Kunde")
'	oForm.reload()
	oFeld = oForm.getbyname("txtkdnr")
	iKdNr = oFeld.text
	
	If iKdNr = "" then
		sNachricht = "Neuen Kunden erst speichern! " + chr(13) + "Dann erneut übertragen. "
		If MsgBox (sNachricht ,48+1,"ACHTUNG") = 1 Then exit sub
	End If
	
	oForm2 = oDoc.DrawPage.Forms.getByName("rechnungen")
	oFeld2 = oForm2.getbyname("fmtkdnr")

	If oFeld2.text <> "" then
		sNachricht = "Kunde schon eingetragen! " + chr(13) + chr(13)+ "Soll der vorhandene Eintrag ersetzt werden? "
		If MsgBox (sNachricht ,32+1,"ACHTUNG") = 2 Then exit sub
	End If

	oFeld2.text = iKdNr
           
End Sub

Habt ihr einen Tipp?

Danke schon mal.

[DPunch]

Aloha

Änder mal

Code: Alles auswählen

oFeld2.text = iKdNr

in

Code: Alles auswählen

oFeld2.BoundField.updateInt(iKdNr)

[geimist]

Hallo DPunch,

vielen Dank. Der Tipp war goldrichtig!