Kapitel 34
Visual Basic für Applikationen
740
Case-Anweisungen
Außer mit der
If
-Anweisung besteht auch die Möglichkeit, mithilfe von
Case
-Anweisungen zu ver-
zweigen. Diese Struktur ist gerade bei vielen Verzweigungen oft übersichtlicher. Die allgemeine
Form der
Case
-Anweisung lautet:
Die im vorangegangenen Abschnitt verwendete Rabattstaffel stellt sich mit der
Case
-Anweisung wie
folgt dar:
Springen mit GoTo
Mit dem Befehl
GoTo
kann eine bestimmte, mit einer Zeilennummer oder mit einem Text bezeich-
nete Zeile angesprungen werden. Mit diesem Befehl können Sie nur innerhalb der aktuellen Pro-
zedur springen.
GoTo
-Anweisungen werden verwendet, um Laufzeitfehler abzufangen, wie im
Abschnitt »Fehlersuche und -behandlung« weiter unten in diesem Kapitel beschrieben ist. Zu viele
GoTo
-Anweisungen sollten beim Programmieren vermieden werden, denn der Programm-Code
wird dadurch schwer lesbar – eigentlich sollten Sie überhaupt keine
GoTo
-Befehle verwenden. Als
Sprungmarke wurde im folgenden Beispiel
Ende
angegeben. Um die Zeile zu bezeichnen, in die
gesprungen werden soll, wird vor die Zeile ein
Ende
: eingefügt:
Select Case Testausdruck
[Case Ausdrucksliste-n
[Anweisungen-n]] ...
[Case Else
[elseAnw]]
End Select
Select Case intAnzahl
Case Is >= 1000
dblRabatt = 0.1
Case Is >= 500
dblRabatt = 0.05
Case Is >= 100
dblRabatt = 0.01
Case Else
dblRabatt = 0
End Select
...
If intAnzahl > 10000 Then GoTo Ende
...
Ende:
...
End Sub
Get Microsoft Office Access 2007 - Das Handbuch now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.
