Hallo ForumsmitgliederInnen,
ich habe das Netz und die Beiträge schon nach der Lösung durchforstet, doch nichts Passendes gefunden - nur Stückwerk.
Nach etlichen Versuchen, möchte ich die Lösungsfindung abkürzen und euch um ein wenig Zeit bitten- es sollte für euch ein Einfaches sein!
Ich habe eine Tabelle in welcher mehrere nummerische Währungswerte eingetragen werden.
Aus den gefüllten Feldern möchte ich eigentlich nur die Summe in einem Feld außerhalb dieser Tabelle laufend bilden.
Die Idee war nun in den Wertefeldern in der Aktivität 'On Change' die Summe immer um den Eintrag zu erweitern.
Folgendes Formelwerk habe ich nun zusammengestellt ... das Ergebnis ist "0"???
Sub Onchange(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim umsatz As String
Dim umsatzsumme As String
Dim umsatz2 As Integer
Dim umsatzsumme2 As Integer
Dim summe As Integer
Set uidoc = ws.CurrentDocument
umsatz = uidoc.FieldGetText(Cstr(Umsatz_1_1))
umsatzsumme = uidoc.FieldGetText(Cstr(UmsatzSumme))
umsatz2 = Val(umsatz)
umsatzsumme2 = Val(umsatzsumme)
summe = umsatz2 + umsatzsumme2
Call uidoc.FieldSetText("UmsatzSumme", Cstr(summe))
End Sub
Für eure Hilfe wäre ich euch sehr verbunden!
Folgendes habe ich schon probiert ohnedass es Erfolg brachte:
' summe = uidoc.FieldGetText(Cstr(Umsatz_1_1))
' summe = uidoc.FieldGetText(Umsatz_1_1)
' Call uidoc.FieldSetText("UmsatzSumme", summe) >> String expected
' Call uidoc.Document.ReplaceItemValue("UmsatzSumme", Umsatz_1_1) >> Nichts passiert
' Call uidoc.FieldSetText("UmsatzSumme", uidoc.FieldGetText(Umsatz_1_1)) >> String expected
' Call uidoc.FieldSetText("UmsatzSumme", uidoc.FieldGetText(Cstr(Umsatz_1_1))) >> "H"
' Call uidoc.FieldSetText("UmsatzSumme", Cint(uidoc.FieldGetText(Cstr(Umsatz_1_1)))) >> String found, Short expected
' Call uidoc.Document.ReplaceItemValue("UmsatzSumme", Cint(uidoc.FieldGetText(Cstr(Umsatz_1_1)))) >> String found, Short expected
' Call uidoc.FieldSetText("UmsatzSumme", Clng(uidoc.FieldGetText(Cstr(Umsatz_1_1)))) >> String found. Long expetced
' Call uidoc.FieldSetText("UmsatzSumme", Cstr(uidoc.FieldGetText(Cstr(Umsatz_1_1)))) >> "H"
' Call uidoc.Document.ReplaceItemValue("UmsatzSumme",uidoc.FieldGetText(Cstr(Umsatz_1_1))) >> Nichts passiert
Beste Grüße und eine gute Zeit!