Top-Themen

Aktuelle Themen (A bis Z)

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, 6193 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
Entwicklung
VB Script gesucht um Videodateien auslesen zu können.
gelöst Frage von templierEntwicklung7 Kommentare

Hallo zusammen, ich habe einen Kunden der auf seinem SAN hunderte von Präsentationsvideos angesammelt hat. Diese sollen nun in ...

VB for Applications
VB Script - Besitzer auslesen und E-Mail versenden
gelöst Frage von smackeeVB for Applications2 Kommentare

Hallo Forum Ich möchte gerne mein Ordner und Dateien in einem Verzeichnis auf die Besitzer durchsuchen. Die Besitzer sollten ...

VB for Applications
VB-Script in VB-Script starten und Parameter übergeben
gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Visual Studio
VB bestimmte Stelle im Bild highlighten wenn MouseOver Textbox?
gelöst Frage von PixL86Visual Studio9 Kommentare

Guten Morgen werte Admins, da es etwas ruhiger geworden ist in der Firma, habe ich nun einen Auftrag erhalten, ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 21 StundenViren und Trojaner1 Kommentar

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 1 TagRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 4 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 5 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Windows 10
Probleme mit Dateien, deren Pfad + Dateiname länger als 256 Zeichen sind
Frage von FalaffelWindows 1011 Kommentare

Guten Tag, unter Windows 10 scheint es immer noch das Problem zu geben, dass der Pfad + Dateiname einer ...

Vmware
DOS 6.22 in VMWare mit CD-ROM
gelöst Frage von hesperVmware10 Kommentare

Hallo zusammen! Ich hab ein saublödes Problem. Es ist eine VMWare mit DOS 6.22 zu erstellen auf dem ein ...

Microsoft Office
Outlook 2016 - Makro startet nicht über Knopf im Menüband
Frage von ZunarasMicrosoft Office9 Kommentare

Schönen guten Tag! ich brauche wieder einmal Hilfe. Ich möchte gerne von Office 2010 32bit auf 2016 64bit wechseln ...