Du kan programmere ved hjælp af " hvis ... else " udsagn i din Access-program ved hjælp af Visual Basic for Applications , men du kan få en renere program ved hjælp af " Vælg ... case" udsagn i stedet. Denne erklæring driver en af flere grupper af udsagn afhængigt af værdien af testen ekspression . Den mest almindelige test udtryk er et heltal eller en streng variabel. Hvis testen udtrykket værdi matcher tilfældet etiketten derefter koden følger sagen etiketten vil køre . Instruktioner
1
Klik på " Database Funktioner" og klik på " Visual Basic " for at starte Visual Basic Editor. Klik på " Indsæt" menuen og klikke på " Modul " for at tilføje et nyt modul
2
Kopier og indsæt følgende for at starte en ny sub og skabe de variabler, du vil bruge i din Select Case erklæring. :
Private Sub selectStatement ()
Dim expressionStr As String
Dim expressionInt As String
expressionStr = "3 "
expressionInt = 1
3
Kopier og indsæt følgende kode til at oprette en ny Select Case erklæring med en String test udtryk : Hej
Vælg Case expressionStr
Case " 1 "
Debug.Print ( " Case 1 ")
Case " 2 "
Debug.Print ( " Case 2 ")
Case" 3 "
Debug.Print ( " Case 3 ")
End Vælg
4
Kopier og indsæt følgende kode til at oprette en ny Select Case erklæring med en integer test udtryk : Hej
Vælg Case expressionInt
Case 1
Debug.Print ( "Case 1")
Case 2
Debug.Print ( "Case 2")
Case 3 fotos
Debug.Print ( "Case 3")
End Vælg
5
Kopier og indsæt følgende kode til at oprette en ny Select Case erklæring , der vil teste et heltal udtryk og checks for sin værdi i et enkelt tilfælde erklæring : Hej
Vælg Case expressionInt
Case 1 , 2 < br >
Debug.Print ( "Case 1 eller 2")
Case 3 fotos
Debug.Print ( "Case 3")
End Select
6
Afslut din procedure ved at skrive " end Sub " i slutningen og tryk på " Ctrl" og "G " for at vise Immediate -vinduet. Tryk på " F5 " for at køre proceduren og se resultaterne .