tskott
Mar 16, 2011, updated at 10:54:38 (UTC)
view6835
view7
0
Goto Top

VB Script - Wert (Währung) einer TextBox auslesen um damit zu rechnen.

GermansolvedQuestionVB for ApplicationsDevelopment
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!
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 162745

Url: https://administrator.de/contentid/162745

Printed on: April 25, 2024 at 08:04 o'clock

7 Comments
Latest comment
Goto Top
Member: MrTrebron
MrTrebron Mar 16, 2011 at 12:17:50 (UTC)
Goto Top
Hallo TSkott,

welche FM wird denn angezeigt?

Gruß
Norbert
Member: TSkott
TSkott Mar 16, 2011 at 12:33:35 (UTC)
Goto Top
die Fehlermeldung lautet:

Syntaxfehler
Zeilennr: 14

Vielen Dank schonmal
Member: MrTrebron
MrTrebron Mar 16, 2011 at 12:41:56 (UTC)
Goto Top
Hi
nehme mal text anstatt value

Gruß
Member: felixcc
felixcc Mar 16, 2011 at 12:48:12 (UTC)
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
Member: TSkott
TSkott Mar 16, 2011 at 12:48:24 (UTC)
Goto Top
leider noch gleicher fehler


Gruß
Member: TSkott
TSkott Mar 16, 2011 at 12:54:41 (UTC)
Goto Top
Vielen vielen Dank!!

Es klappt!! Ihr seid die Größten ;)
Member: MrTrebron
MrTrebron Mar 16, 2011 at 12:57:32 (UTC)
Goto Top
Doh

Habe jetzt gar nicht darauf geachtet
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments