MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Função Interna - Select Case

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    Função Interna - Select Case Empty Função Interna - Select Case

    Mensagem  JPaulo 28/8/2013, 11:30

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Função Interna - Select Case Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Função Interna - Select Case Folder_announce_new 102 Códigos VBA Gratuitos...
    Função Interna - Select Case Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 14/6/2021, 06:39