Du kan programmera använda " om ... else " uttalanden i Access- program med Visual Basic for Applications , men du kan ha ett renare program med hjälp av " select ... case " uttalanden istället. Detta uttalande driver en av flera grupper av uttalanden beroende på värdet av testet uttrycket . Det vanligaste testet uttryck är ett heltal eller en sträng variabel . Om testet uttrycket värdet matchar fallet etiketten då koden följt fallet etiketten kommer att utföra . Instruktioner
1
Klicka på " Databas Verktyg " och klicka på " Visual Basic " för att starta Visual Basic Editor . Klicka på " Infoga " -menyn och klicka på " modul " för att lägga till en ny modul
2
Kopiera och klistra in följande för att starta en ny sub och skapa de variabler som du kommer att använda i ditt Select Case uttalande . :
Private Sub selectStatement ( ) katalog
Dim expressionStr As String
Dim expressionInt As String
expressionStr = " 3 "
expressionInt = 1 Addera 3
Kopiera och klistra in följande kod för att skapa en ny Select Case uttalande med en String testa uttryck :
Välj ärende expressionStr Case
" 1 "
Debug.Print ( " mål 1 " ) katalog
Case " 2 "
Debug.Print ( " mål 2 " ) katalog
Case " 3 "
Debug.Print ( " mål 3 " ) katalog
End Välj
4
Kopiera och klistra in följande kod för att skapa en ny Select Case uttalande med en integer testet uttryck :
Välj Case expressionInt
fall 1 Debug.Print
( " mål 1 " ) katalog
fall 2 Review
Debug.Print ( " mål 2 " ) katalog
mål 3 bilder
Debug.Print ( " mål 3 " ) katalog
End Välj
5
kopiera och klistra in följande kod för att skapa en ny Select Case uttalande som kommer att testa ett Heltalsuttryck och kontroller för dess värde i ett enda fall uttalande :
Välj Case expressionInt
fall 1 , 2
Debug.Print ( " fall 1 eller 2 " ) katalog
mål 3 bilder
Debug.Print ( " mål 3 " ) katalog
End Select
6
avsluta proceduren genom att skriva " end Sub " i slutet och tryck på " Ctrl " och " G " för att visa Immediate fönstret . Tryck " F5 " för att köra proceduren och se resultaten .
