U kunt programmeren met behulp van "als ... anders " uitspraken in uw Access- toepassing met behulp van Visual Basic voor toepassingen , maar u kunt een cleaner programma hebben met " select ... case "verklaringen plaats . Deze verklaring wordt het een van verscheidene reeksen verklaringen afhankelijk van de waarde van de test expressie . De meest voorkomende test- expressie is een geheel getal of een string variabele . Als de test uitdrukking waarde overeenkomt met de zaak label vervolgens de code volgt de zaak label zal uitvoeren . Instructies
1 Klik op " Database Tools" en klik op " Visual Basic " om de Visual Basic Editor te starten . Klik op het menu "Invoegen " en klik op "Module " om een nieuwe module toe te voegen
Copy 2 en plak de volgende opties om een nieuwe sub te starten en de variabelen die je gaat gebruiken in uw Select Case statement . : Private Sub selectStatement
( ) Dim expressionStr
als Koord Dim expressionInt
als Koord expressionStr
= " 3 "
expressionInt = 1
Kopieer 3 en plak de volgende code om een nieuwe Select Case statement met een string test- expressie te maken :
Selecteer Case expressionStr Case
" 1 " Debug.Print
( " Case 1 " ) Case
" 2 " Debug.Print
( " Case 2 " ) Case
" 3 " Debug.Print
( " Case 3 " ) End of Selecteer
Kopieer 4 en plak de volgende code om een nieuwe Select Case statement te creëren met een integer testuitdrukking :
Selecteer Case expressionInt Case 1 Debug.Print
( "Case 1 " ) Case 2
Debug.Print ( "Case 2 " ) Case 3 Debug.Print
( "Case 3 " ) End of Selecteer
5 kopieer en plak de volgende code om een nieuwe Select Case statement dat een Integer expressie en controles zal testen voor de waarde ervan in een enkele zaak statement maken:
Selecteer Case expressionInt Case 1
, 2 < br Debug.Print > ( "Case 1 of 2 " ) Case 3 Debug.Print
( "Case 3 " ) End Select
6 uw procedure af door te typen " end Sub " op het einde en druk op " Ctrl " en " G " om het venster Direct weer te geven . Druk op " F5 " om de procedure te lopen en bekijk de resultaten .
|
