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


3 participantes

    [Resolvido]Capturar posição da String.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Capturar posição da String. Empty [Resolvido]Capturar posição da String.

    Mensagem  XPTOS 6/5/2015, 01:20

    Boa noite,

    Meu BD temo uma tabela chamada (tblCedocFichaMV) com o campo: Campo12, tipo texto, que possui os registros abaixo.


    166927 WEMERSON FLAVIO
    325856 ANGELA FREDERICH
    303278 LUCIANO CAMPOS
    3253 SHEILA CORREA
    166574 CYNTHIA MARIA
    321 GUILHERME SANTOS
    30151 ESTERLINA COSTA


    Estou usando o código abaixo para tentar capturar tudo que está antes do primeiro espaço de cada linha.

    Alguem tem uma sugestão para indicar, porque no código abaixo eu somente localizo até o sexto caracter. Porém, nem sempre o espaço tem uma posição fixa.

    On Error Resume Next
    Dim nEspaco As String
    Dim strTexto As String
    Dim intPos As String
    nEspaco = Campo12
    intPos = InStr(nEspaco, " ") 'Localiza a string a partir do primeiro caracter
    'strTexto = right(Mid(nEspaco, 6, 100), 100) 'Remove a string à esquerda do simbolo
    'strTexto = left(Mid(nEspaco, 1, 6), 6) 'Remove a string à direita do simbolo
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Capturar posição da String. Empty Re: [Resolvido]Capturar posição da String.

    Mensagem  Avelino Sampaio 6/5/2015, 08:30

    Olá!

    Se a ideia é capturar o número inicial, basta utilizar a função val(). Exemplo:

    val("166927 WEMERSON FLAVIO") ::::> 166927

    strTexto = val(me!campo12)

    Aguardamos




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Capturar posição da String. Empty Re: [Resolvido]Capturar posição da String.

    Mensagem  Alvaro Teixeira 6/5/2015, 08:45

    Olá Gomes,

    Teste alterando as ultimas duas linhas do código postado:

    strTextoESQ = Left(nEspaco, intPos - 1) 'Esquerda do espaço
    strTextoDIR = Right(nEspaco, Len(nEspaco) - intPos) 'Direita do espaço


    Abraço
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Capturar posição da String. Empty Re: [Resolvido]Capturar posição da String.

    Mensagem  XPTOS 6/5/2015, 12:08

    Prezado ahteixeira e Avelino,

    Ambas as dicas me ajudaram.

    irei adaptar a segunda opção, pois precisarei obter os caracteres antes e depois da primeira virgula numa variavel. para depois lançar a variavel em uma consulta acrescimo.

    Grato,
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Capturar posição da String. Empty Re: [Resolvido]Capturar posição da String.

    Mensagem  Alvaro Teixeira 6/5/2015, 14:31

    Olá
    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Capturar posição da String. Empty Re: [Resolvido]Capturar posição da String.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:14