Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

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

Frage Entwicklung VB for Applications

Mitglied: TSkott

TSkott (Level 1) - Jetzt verbinden

16.03.2011, aktualisiert 11:54 Uhr, 6085 Aufrufe, 7 Kommentare

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:

01.
  
02.
        Set Zeigen	        = Item.GetInspector.ModifiedFormPages("Allgemein").Controls("Test1") 
03.
	Set Btrag1		= Item.GetInspector.ModifiedFormPages("Seite1").Controls("Beitrag1") 
04.
	Set ZwSum1		= Item.GetInspector.ModifiedFormPages("Seite1").Controls("Zahlungsweise1") 
05.
 
06.
	'-Berechnung-Verträge-----------------------------------------------------------------------------------' 
07.
	 
08.
	Dim summe, zw_ergebnis 
09.
	summe = 0 
10.
	zw_ergebnis = 0 
11.
	 
12.
			if ZwSum1.value = "jährlich" then 
13.
				Btrag1.value = zw_ergebnis                             '<---- hier scheint der Fehler zu sein!' 
14.
				zw_ergebnis / 12 
15.
				summe = summe + zw_ergebnis 
16.
			end if 
17.
 
18.
			if ZwSum1.value = "halbjährlich" then 
19.
				Btrag1.value = zw_ergebnis                             '<---- hier scheint der Fehler zu sein!' 
20.
				zw_ergebnis / 6 
21.
				summe = summe + zw_ergebnis 
22.
			end if 
23.
24.
25.
26.
 
27.
	zeigen.text = summe 
28.
 


Vielen Dank für Eure Aufmerksamkeit!
Mitglied: MrTrebron
16.03.2011 um 13:17 Uhr
Hallo TSkott,

welche FM wird denn angezeigt?

Gruß
Norbert
Bitte warten ..
Mitglied: TSkott
16.03.2011 um 13:33 Uhr
die Fehlermeldung lautet:

Syntaxfehler
Zeilennr: 14

Vielen Dank schonmal
Bitte warten ..
Mitglied: MrTrebron
16.03.2011 um 13:41 Uhr
Hi
nehme mal text anstatt value

Gruß
Bitte warten ..
Mitglied: felixcc
16.03.2011 um 13:48 Uhr
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:
01.
zw_ergebnis = Btrag1.Text 
02.
zw_ergebnis = zw_ergebnis / 12 
03.
summe = summe + zw_ergebnis
So sollte es funktionieren.
gruß
Felix
Bitte warten ..
Mitglied: TSkott
16.03.2011 um 13:48 Uhr
leider noch gleicher fehler


Gruß
Bitte warten ..
Mitglied: TSkott
16.03.2011 um 13:54 Uhr
Vielen vielen Dank!!

Es klappt!! Ihr seid die Größten ;)
Bitte warten ..
Mitglied: MrTrebron
16.03.2011 um 13:57 Uhr
Doh

Habe jetzt gar nicht darauf geachtet
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

VB for Applications
gelöst VBA: Wert von einer Website (pdf-Dokument) auslesen und in Excel kopieren (16)

Frage von Stern123 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...