How to Program fra Select uttalelser med Visual Basic i Microsoft Access

Du kan programmere ved hjelp av "hvis ... else" uttalelser i din Access-program ved hjelp av Visual Basic for applikasjoner, men du kan ha en renere program ved hjelp av "Velg ... saken" 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. Dersom testen uttrykket verdi som svarer til det tilfelle etiketten deretter koden følgende tilfelle etiketten vil utføre.

Bruksanvisning

1 Klikk "Databaseverktøy" 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 de variablene du vil bruke i din Velg sak uttalelse:

Private Sub selectStatement ()

Dim expressionStr As String

Dim expressionInt As String

expressionStr = "tre"

expressionInt = 1

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

Velg Sak expressionStr

Case "1"

Debug.Print ( "Case 1")

Case "2"

Debug.Print ( "Case 2")

Case "3"

Debug.Print ( "Case 3")

End Select

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

Velg Sak expressionInt

Case 1

Debug.Print ( "Case 1")

tilfelle 2

Debug.Print ( "Case 2")

sak 3

Debug.Print ( "Case 3")

End Select

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

Velg Sak expressionInt

Case 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 resultatet.