Você pode programar usando " if ... else " declarações em seu aplicativo Access usando o Visual Basic para aplicativos, mas você pode ter um programa de limpeza usando " select ... case" declarações em seu lugar. Esta instrução é executada uma de vários grupos de instruções , dependendo o valor da expressão de teste . A expressão de teste mais comum é um inteiro ou uma variável de cadeia. Se o valor da expressão de teste corresponde à etiqueta caso , em seguida, o código a seguir a etiqueta caso será executado. Instruções
1

Clique em "Ferramentas de banco de dados " e clique em " Visual Basic " para iniciar o Editor do Visual Basic. Clique no menu "Inserir" e clique em " Módulo " para adicionar um novo módulo
2

Copie e cole o seguinte para iniciar uma nova sub e criar as variáveis ​​que você vai usar em sua instrução Select Case. :

Private Sub SelectStatement ()

Dim expressionStr As String Dim

expressionInt As String

expressionStr = "3"

expressionInt = 1
3

Copie e cole o seguinte código para criar uma nova instrução Select Case com uma expressão de teste de Cordas :

Selecione Caso expressionStr
caso

" 1 "

Debug.Print ( " Caso 1 ")

caso " 2 "

Debug.Print ( " Caso 2 ")

Caso " 3 "

Debug.Print ( " Caso 3 ")

End Select
4

Copiar e colar o seguinte código para criar uma nova instrução Select Case com uma expressão de teste integer :

Selecione Caso expressionInt

Caso 1

Debug.Print ( "Caso 1")

Caso 2

Debug.Print ( "Caso 2")

Caso 3

Debug.Print ( "Caso 3")

End Select
5

Copie e cole o seguinte código para criar uma nova instrução Select caso que vai testar uma expressão e cheques inteiro para o seu valor em uma única instrução do caso:

Selecione Caso expressionInt

Caso 1 , 2

Debug.Print ( "Caso 1 ou 2" )

Caso 3

Debug.Print ( "Caso 3")

End Select

6

Termine o seu procedimento , digitando " End Sub " no final e pressione " Ctrl" e "G " para visualizar a janela Immediate. Pressione " F5" para executar o procedimento e ver os resultados.