Du kan programmere med " hvis ... Else " uttalelser i din Access-programmet ved hjelp av Visual Basic for Applications , men du kan ha en renere program ved å bruke " select ... case" uttalelser i stedet . Denne uttalelsen driver en av flere grupper av utsagn avhengig av verdien av testen uttrykket . Den vanligste testen uttrykket er et helt tall eller en streng variabel . Hvis testen uttrykket stemmer overens med saken etiketten deretter koden fulgt saken etiketten vil utføre . Instruksjoner
en

Klikk " Database Tools " og klikk " Visual Basic" for å starte Visual Basic Editor . Klikk på " Insert"-menyen og klikk " Module" for å legge til en ny modul
2

Kopier og lim inn følgende for å starte en ny sub og skape variablene du vil bruke i Select sak uttalelse. :

Private Sub selectStatement ( )

Dim expressionStr As String

Dim expressionInt As String

expressionStr = " 3 "

expressionInt = 1
3

Kopier og lim inn følgende kode for å opprette en ny Select sak uttalelse med en String test uttrykk : en

Velg sak expressionStr

veske " 1 "

Debug.Print ( " Case 1 ")

veske" 2 "

Debug.Print ( " Case 2 ")

veske" 3 "

Debug.Print ( " Case 3 ")

End Velg
4

Kopier og lim inn følgende kode for å opprette en ny Select sak uttalelse med en heltall test uttrykk : en

Velg sak expressionInt

sak 1

Debug.Print ( "Case 1 ")

tilfelle 2

Debug.Print ( "Case 2 ")

sak 3

Debug.Print ( "Case 3 ")

End Velg
5

Kopier og lim inn følgende kode for å opprette en ny Select sak uttalelse som vil teste et heltall uttrykk og sjekker for sin valuta i en enkelt sak uttalelse:

Velg sak expressionInt

tilfelle 1 , 2

Debug.Print ( "Case 1 eller 2 ")

sak 3

Debug.Print ( "Case 3 ")

End Select

6

Avslutt prosedyren ved å skrive "End Sub " på slutten og trykk " Ctrl" og " G " for å vise det gjeldende vinduet . Trykk "F5 " for å kjøre prosedyren og se på resultatene .