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]Extrair caracteres de texto

    avatar
    amarinho.david
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/09/2013

    [Resolvido]Extrair caracteres de texto Empty [Resolvido]Extrair caracteres de texto

    Mensagem  amarinho.david 26/3/2015, 15:18

    Por favor, pode me dar uma ajuda para desenvolver uma função? Tenho um campo na tabela que traz o modelo do equipamento, que pode ser:
    NCR 6646;
    CD 6137 (MINI SAQUE OPTEVA);
    NCR-6646 J;
    ATM 6236 G;
    CD 6137 C e etc.

    Veja que nem todas iniciam com a mesma letra e também não possuem a mesma quantidade de caracteres inicial. Alguns possuem três letras outras duas. Além disso após as letras, umas tem espaço outras tem um traço "-" que separa dos números. Que por padrão são quatro números. E no final nem todas possuem uma informação como no modelo CD 6137 (MINI SAQUE OPTEVA).

    Isso vem direto da base de dados e preciso padronizar com letras, espaço e números, como NCR 6646.

    Tentei usar a função esquerda e depois direita mas não consegui. Poderia usar o SeImed, mas ai teria de construir uma função para cada variável, e acredito que é possível fazer isso de maneira mais "enxuta". Tentei usar outras como EmSeq e Compr mas não consegui.

    Bom, espero ter passado todas as informações. Reforçando, não estou fazendo um filtro, mas na consulta criando um campo com essas informações padronizadas.

    Muito obrigado.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Extrair caracteres de texto Empty Re: [Resolvido]Extrair caracteres de texto

    Mensagem  Avelino Sampaio 26/3/2015, 17:50

    Olá!

    Então o resultado esperado é este ?

    NCR 6646
    CD 6137
    NCR 6646
    ATM 6236
    CD 6137

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    amarinho.david
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/09/2013

    [Resolvido]Extrair caracteres de texto Empty Re: [Resolvido]Extrair caracteres de texto

    Mensagem  amarinho.david 26/3/2015, 19:28

    Exatamente. Apenas o código do equipamento.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Extrair caracteres de texto Empty Re: [Resolvido]Extrair caracteres de texto

    Mensagem  Avelino Sampaio 26/3/2015, 19:40

    Ok, copie a função abaixo para um módulo global

    Public Function fncAcertaCodigo(strCodigo As String) As String
    Dim k
    If strCodigo = "" Then Exit Function
    strCodigo = Replace(strCodigo, "-", " ")
    k = Split(strCodigo, " ")
    fncAcertaCodigo = k(0) & " " & k(1)
    End Function


    Crie um campo virtual na consulta, chamando pela função.  Exemplo:

    NovoCodigo: fncAcertaCodigo([NomeCampoCodigo])

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    amarinho.david
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/09/2013

    [Resolvido]Extrair caracteres de texto Empty Re: [Resolvido]Extrair caracteres de texto

    Mensagem  amarinho.david 26/3/2015, 20:00

    Avelino,

    Muito obrigado. Funcionou perfeitamente. Muito obrigado pela ajuda. Estou aprendendo e está foi uma importante lição.

    Abraços.

    Conteúdo patrocinado


    [Resolvido]Extrair caracteres de texto Empty Re: [Resolvido]Extrair caracteres de texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 05:57