MaximoAccess

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

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
    avatar
    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 465
    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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3383
    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!
    avatar
    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 465
    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: Seg 26 Jun 2017, 09:37