Função Interna - Select Case

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 é:

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