VB Script - Wert (Währung) einer TextBox auslesen um damit zu rechnen.
Hallo.
Ich versuche, einen jährlichen Beitrag (Btrag1), der in die TextBox (Beitrag1) eingetragen wurde, auszulesen um mit Ihm zu rechen. Leider bekomme ich an markierter Stelle einen Syntaxfehler.
Wie kann ich also der Variabel 'zw_ergebnis' den Wert hinzufügen, den man im Formular in die entsprechende Textbox eingetragen hat? Am liebsten, hätte ich auch die Feldeigenschaft 'Währung' beibehalten.
Hier mein bisheriger Code:
Vielen Dank für Eure Aufmerksamkeit!
Ich versuche, einen jährlichen Beitrag (Btrag1), der in die TextBox (Beitrag1) eingetragen wurde, auszulesen um mit Ihm zu rechen. Leider bekomme ich an markierter Stelle einen Syntaxfehler.
Wie kann ich also der Variabel 'zw_ergebnis' den Wert hinzufügen, den man im Formular in die entsprechende Textbox eingetragen hat? Am liebsten, hätte ich auch die Feldeigenschaft 'Währung' beibehalten.
Hier mein bisheriger Code:
Set Zeigen = Item.GetInspector.ModifiedFormPages("Allgemein").Controls("Test1")
Set Btrag1 = Item.GetInspector.ModifiedFormPages("Seite1").Controls("Beitrag1")
Set ZwSum1 = Item.GetInspector.ModifiedFormPages("Seite1").Controls("Zahlungsweise1")
'-Berechnung-Verträge-----------------------------------------------------------------------------------'
Dim summe, zw_ergebnis
summe = 0
zw_ergebnis = 0
if ZwSum1.value = "jährlich" then
Btrag1.value = zw_ergebnis '<---- hier scheint der Fehler zu sein!'
zw_ergebnis / 12
summe = summe + zw_ergebnis
end if
if ZwSum1.value = "halbjährlich" then
Btrag1.value = zw_ergebnis '<---- hier scheint der Fehler zu sein!'
zw_ergebnis / 6
summe = summe + zw_ergebnis
end if
.
.
.
zeigen.text = summe
Vielen Dank für Eure Aufmerksamkeit!
Please also mark the comments that contributed to the solution of the article
Content-Key: 162745
Url: https://administrator.de/contentid/162745
Printed on: April 25, 2024 at 16:04 o'clock
7 Comments
Latest comment
Hallo TSkott,
wenn du den Text auslesen willst, dann musst du das doch umgekehrt schreiben.
Auch die Zeile darunter gibt für mich leider keinen Sinn, du teilst zw_ergebnis durch 12 und machst aber nichts weiter damit.
Versuch es mal so:
So sollte es funktionieren.
gruß
Felix
wenn du den Text auslesen willst, dann musst du das doch umgekehrt schreiben.
Auch die Zeile darunter gibt für mich leider keinen Sinn, du teilst zw_ergebnis durch 12 und machst aber nichts weiter damit.
Versuch es mal so:
zw_ergebnis = Btrag1.Text
zw_ergebnis = zw_ergebnis / 12
summe = summe + zw_ergebnis
So sollte es funktionieren.
gruß
Felix