Função Interna ‘Select Case’
No Microsoft Access, a instrução Case só pode ser usado no código VBA.
Ela tem a funcionalidade de uma instrução tal como o IF e ELSE, abrangendo maiores recursos com menos linhas de código.
A sintaxe para a declaração do case é:
Obs:
Se nenhum dos Case`s forem verdadeiros, passa para o Else que é opcional.
Exemplo com Letras:
Exemplo num intervalo de valores:
Delimitando valores por vírgula:
Comparando valores com a instrução Is:
No Microsoft Access, a instrução Case só pode ser usado no código VBA.
Ela tem a funcionalidade de uma instrução tal como o IF e ELSE, abrangendo maiores recursos com menos linhas de código.
A sintaxe para a declaração do case é:
Select Case “Objeto”
Case 1
X=1
Case 2
X_2
Case 3
X=3
Case Else
X=0
End Select
Obs:
Se nenhum dos Case`s forem verdadeiros, passa para o Else que é opcional.
Exemplo com Letras:
Select Case SuaCombobox
Case "P"
Me![SeuCampoPaíses] = "Portugal"
Case "B"
Me![SeuCampoPaíses] = "Brasil"
Case "E"
Me![SeuCampoPaíses] = "Espanha"
Case "A"
Me![SeuCampoPaíses] = "Argentina"
End Select
Exemplo num intervalo de valores:
Select Case SuaCombobox
Case 1 To 10
Me![SeuCampoTurma] = "Infantil"
Case 11 To 17
Me![SeuCampoTurma] = "Adolescente"
Case 18 To 150
Me![SeuCampoTurma] = "Adulto"
End Select
Delimitando valores por vírgula:
Select Case SuaCombobox
Case 1,2,3,4,5,6,7,8,9,10
Me![SeuCampoTurma] = "Infantil"
Case 11,12,13,14,15,16,17
Me![SeuCampoTurma] = "Adolescente"
Case 18,19,20,…
Me![SeuCampoTurma] = "Adulto"
End Select
Comparando valores com a instrução Is:
Select Case SuaCombobox
Case Is < 11
Me![SeuCampoTurma] = "Infantil"
Case Is = 12
Me![SeuCampoTurma] = "Adolescente"
Case Is = 18
Me![SeuCampoTurma] = "Adulto"
End Select