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, 6124 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 ..
Ähnliche Inhalte
VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

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

Frage von LindeUnimog zum Thema Outlook & Mail ...

Java
gelöst Net user per script aus txt oder csv für FTP (9)

Frage von OlliPWS zum Thema Java ...

Windows Systemdateien
Windows 7 und 10 herunterfahren Knopf mit Script belegen (21)

Frage von c-o-o-p-e-r92 zum Thema Windows Systemdateien ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (16)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

CMS
Lokales Wordpress im LAN - wie aufsetzen? (15)

Frage von Static zum Thema CMS ...

LAN, WAN, Wireless
IP im privaten Netz nicht erreichbar (12)

Frage von guntis zum Thema LAN, WAN, Wireless ...

Windows Server
Druck wird nicht erlaubt (10)

Frage von daquick zum Thema Windows Server ...