È possibile programmare l'utilizzo di "if ... else" dichiarazioni nell'applicazione di accesso utilizzando Visual Basic per le applicazioni, ma è possibile avere un programma più pulita utilizzando dichiarazioni "SELECT ... CASE", invece. Questa affermazione esegue uno dei diversi gruppi di istruzioni in base al valore della espressione di prova. L'espressione di test più comune è un numero intero o una variabile stringa. Se il valore di espressione di controllo corrisponda all'etichetta caso, allora il seguente codice sull'etichetta caso verrà eseguito.

istruzione

1 Fai clic su "Strumenti database" e fare clic su "Visual Basic" per avviare l'editor di Visual Basic. Fare clic sul menu "Inserisci" e fare clic su "modulo" per aggiungere un nuovo modulo.

2 Copia e incolla il seguente per avviare un nuovo sub e creare le variabili si intende utilizzare nel vostro Select Case:

Private Sub selectstatement ()

Dim expressionStr As String

Dim expressionInt As String

expressionStr = "3"

expressionInt = 1

3 Copia e incolla il seguente codice per creare una nuova istruzione Select Case con un'espressione di prova stringa:

Select Case expressionStr

Case "1"

Debug.Print ( "Caso 1")

Case "2"

Debug.Print ( "Caso 2")

Case "3"

Debug.Print ( "Caso 3")

End Select

4 Copia e incolla il seguente codice per creare una nuova istruzione Select Case con un'espressione di test Integer:

Select Case expressionInt

Case 1

Debug.Print ( "Caso 1")

caso 2

Debug.Print ( "Caso 2")

caso 3

Debug.Print ( "Caso 3")

End Select

5 Copia e incolla il seguente codice per creare una nuova Select Case che metterà alla prova un'espressione intera e controlli per il suo valore in una singola istruzione di caso:

Select Case expressionInt

Case 1, 2

Debug.Print ( "Caso 1 o 2")

caso 3

Debug.Print ( "Caso 3")

End Select

6 Terminate la procedura digitando "End Sub" alla fine e premere il tasto "Ctrl" e "G" per visualizzare la finestra immediata. Premere il tasto "F5" per eseguire la procedura e visualizzare i risultati.