von geimist » Fr, 31.12.2010 18:05
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.
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]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[/code]
Habt ihr einen Tipp?
Danke schon mal.