tskott
Goto Top

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:

 
        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!

Content-ID: 162745

Url: https://administrator.de/forum/vb-script-wert-waehrung-einer-textbox-auslesen-um-damit-zu-rechnen-162745.html

Ausgedruckt am: 15.04.2025 um 07:04 Uhr

MrTrebron
MrTrebron 16.03.2011 um 13:17:50 Uhr
Goto Top
Hallo TSkott,

welche FM wird denn angezeigt?

Gruß
Norbert
TSkott
TSkott 16.03.2011 um 13:33:35 Uhr
Goto Top
die Fehlermeldung lautet:

Syntaxfehler
Zeilennr: 14

Vielen Dank schonmal
MrTrebron
MrTrebron 16.03.2011 um 13:41:56 Uhr
Goto Top
Hi
nehme mal text anstatt value

Gruß
felixcc
felixcc 16.03.2011 um 13:48:12 Uhr
Goto Top
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:
zw_ergebnis = Btrag1.Text
zw_ergebnis = zw_ergebnis / 12
summe = summe + zw_ergebnis

So sollte es funktionieren.
gruß
Felix
TSkott
TSkott 16.03.2011 um 13:48:24 Uhr
Goto Top
leider noch gleicher fehler


Gruß
TSkott
TSkott 16.03.2011 um 13:54:41 Uhr
Goto Top
Vielen vielen Dank!!

Es klappt!! Ihr seid die Größten ;)
MrTrebron
MrTrebron 16.03.2011 um 13:57:32 Uhr
Goto Top
Doh

Habe jetzt gar nicht darauf geachtet