Navigation

Themen

Programm ändern Schritt 6

Ein VBA-Programm ändern: Abschlussarbeiten

Zum Abschluss benötigen wie jetzt noch den Code für die OK-Schaltfläche.

Dort finden weitere Prüfungen statt und – wenn alles OK ist – wird das Alter angezeigt und nachfolgend das Programm beendet.

Zu Beginn wurde die Anforderung formuliert, dass alle Felder Pflichteingaben sind. Dies hätte man bei den „reinen“ Texteingaben direkt durchführen können, nur wollen wir dies zentral an einer Stelle durchführen.

Dabei prüfen wir (nochmals) die Feldinhalte und erzeugen einen entsprechenden Hinweis, der auf die Fehler aufmerksam macht. Hier wollen wir nun alle Fehler auf einmal anzeigen, damit der Nutzer nicht mit mehreren Hinweisen konfrontiert wird, die im Grunde genommen die gleiche Aussage beinhalten.

Diese letzte Aufgabe beschäftigt sich hauptsächlich mit String-Operationen, da wir je nach Fehleranzahl eine unterschiedliche Hinweismeldung erstellen müssen.

Sind alle Daten OK, so wird das Alter errechnet, angezeigt und das Programm anschließend beendet.
Noch ein Tipp für die Hinweismeldung: obwohl man Strings in „beliebiger“ Länge aneinanderreihen kann, sollte man doch hier und da einen „Zeilenumbruch“ einfügen, um die „Lesbarkeit“ zu erhöhen. Einen Zeilenumbruch wird durch die Kombination von zwei „Zeichen“ erreicht:

Carriage Return + Line Feed (CR + LF)

Dies funktioniert in der gesamten Windows-Welt, nur „sieht“ man diese Zeichen nicht, lediglich deren „Wirkung“. Um diese „Wirkung“ zu erreichen, müssen wir also diese beiden „Zeichen“ zusammenführen und in unseren Hinweistext „einbauen“.

Genauso wie alle anderen „sichtbaren“ Zeichen besitzen auch diese nicht sichtbaren (Steuer)zeichen sog. Ascii-Codes: Carriage Return = 13 und Line Feed = 10.

Damit man nicht mit diesen kryptischen Zahlenwerten hantieren muss, stellt uns VBA eine Reihe von sog. Konstanten zur Verfügung, welche diese Werte beinhalten. Für unseren Zweck nutzen wir daher die VBA-Konstante vbCrLf:

Hinweis = Text1 & vbCrLf & Text2