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


2 participantes

    [Resolvido]Split com critério

    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    [Resolvido]Split com critério Empty [Resolvido]Split com critério

    Mensagem  janettepires 4/5/2017, 21:23

    Boa tarde

    Alguém sabe me informar como faço para pegar a coluna 2 com critério = 20?

    anArray = Split(linha, ";")
       rs.AddNew
       rs(0) = Trim(anArray(1))
       rs(1) = Trim(anArray(6))
       rs(2) = Trim(anArray(13))
       'rs(3) = Trim(anArray(3))
      ' rs(4) = Trim(anArray(4))
       rs.Update
    Loop


    Abs
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Split com critério Empty Re: [Resolvido]Split com critério

    Mensagem  JPaulo 5/5/2017, 13:56

    Ola Janette;

    Explique o que será a coluna 2, é o Trim(anArray(1)) ?

    Se for isso é o simples;

    Código:
    anArray = Split(linha, ";")
       If Trim(anArray(1)) = "20" Then
         RS.AddNew
         RS(0) = Trim(anArray(1))
         RS(1) = Trim(anArray(6))
         RS(2) = Trim(anArray(13))
         'rs(3) = Trim(anArray(3))
        ' rs(4) = Trim(anArray(4))
         RS.Update
       Else
       'não faz nada
       End If
    Loop


    .................................................................................
    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

    [Resolvido]Split com critério Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Split com critério Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Split com critério Folder_announce_new Instruções SQL como utilizar...
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    [Resolvido]Split com critério Empty Re: [Resolvido]Split com critério

    Mensagem  janettepires 5/5/2017, 14:03

    Bom dia!

    isso mesmo

    RS(2) = Trim(anArray(13))

    quero pegar só com valor = 20
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    [Resolvido]Split com critério Empty Re: [Resolvido]Split com critério

    Mensagem  janettepires 5/5/2017, 14:41

    E se possível importar apenas os 6 primeiros digitos da coluna

    RS(1) = Trim(anArray(6))


    Obrigada
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    [Resolvido]Split com critério Empty Re: [Resolvido]Split com critério

    Mensagem  janettepires 5/5/2017, 15:06

    Querido JPaulo,

    Funcionou tudo perfeitamente!

    anArray = Split(linha, ";")

    If Trim(anArray(6)) = "20" Then

    rs.AddNew
    rs(0) = Trim(anArray(1))
    rs(1) = Trim(anArray(6))
    rs(2) = Left(Trim(anArray(13)), 6)
    rs(3) = Trim(anArray(5))
    ' rs(4) = Trim(anArray(4))
    rs.Update
    Else
    End If
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Split com critério Empty Re: [Resolvido]Split com critério

    Mensagem  JPaulo 5/5/2017, 16:06

    Obrigada pelo retorno o forum agradece.


    .................................................................................
    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

    [Resolvido]Split com critério Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Split com critério Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Split com critério Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Split com critério Empty Re: [Resolvido]Split com critério

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:48