MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Variável com valores múltiplos

    Compartilhe

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

    [Resolvido]Variável com valores múltiplos

    Mensagem  João Ricardo em Dom 30 Mar 2014, 23:13

    Olá pessoal!!   cheers 

     Question   Question  É possível criar uma variável e atribuir a ela diversos valores, com separadores, para depois poder usar na instrução if ... then ... else?  Crying or Very sad   Crying or Very sad 

    O que pretendo é criar uma variável onde eu possa atribuir as séries dos alunos da escola (6º A, 6º B, 7º A, 7º B, ..., 3º MB) e depois fazer uma comparação:

    if strSerie = (aqui entraria a variável) then
    msgBox "blablabla"
    else

    Eu já pesquisei sobre matrizes, mas, até onde eu compreendi, daria um conjunto de 14 posições a serem declaradas (de 6º A ao 3º MB), mais outras 12 posições (Ed. Inf. ao 5º B) para o outro grupo de alunos.


     Very Happy Laughing Razz affraid Neutral Rolling Eyes

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Variável com valores múltiplos

    Mensagem  Avelino Sampaio em Seg 31 Mar 2014, 07:48

    Olá!

    Bom, vc pode colocar a sequencia em uma variavel simples e então utilizar a função Instr() para localizar.  Exemplo:

    dim strLista$
    strlista = "6º A, 6º B, 7º A, 7º B, ..., 3º MB"

    if instr(strlista,"7º A")>0 then
    'a 7º A está na lista
    end if


    Ou vc pode utilizar a função split()

    dim k, j as byte
    k = split("6º A, 6º B, 7º A, 7º B, ..., 3º MB",",")
    for j = 0 to uBound(k)
      if k(j) = "7º A" then
         'a 7º A está na lista
         exit for
      end if
    next


    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

    Re: [Resolvido]Variável com valores múltiplos

    Mensagem  João Ricardo em Qua 02 Abr 2014, 15:20

    Grande Avelino!!!
    Grato pelo retorno e desculpas pela demora, tá meio corrido aqui!!!
    Funcionou perfeitamente.

      Data/hora atual: Sab 10 Dez 2016, 06:50