Microsoft Access 2010 - Das Handbuch

Die Select-Anweisung

Sobald Sie mehrfach ElseIf im Code einsetzen, gibt es eine viel übersichtlichere Anweisung zum Programmieren: Select Case. Letzten Endes programmieren Sie damit das gleiche Ergebnis, aber es ist viel kürzer geschrieben.

Hinter der Select Case-Anweisung steht der Wert, den es zu untersuchen gilt. Danach folgt nur noch der Vergleich hinter der Case-Anweisung. Schon die erste Version des bisherigen Codes ist etwas übersichtlicher:

Sub GroessereAuswahlBesser()
    Dim intAuswahl As Integer

    intAuswahl = MsgBox("Wie geht's weiter?", vbAbortRetryIgnore)

    Select Case intAuswahl
    Case vbAbort
        End     'also alles stoppen!
    Case vbRetry
         MsgBox "Nochmal versuchen..."
    Case vbIgnore
         'alles ignorieren und nix tun Case Else MsgBox "Bitte sagen Sie dem ...