MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Extrair últimos 5 caracteres de um texto/número

    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 23/12/2011

    [Resolvido]Extrair últimos 5 caracteres de um texto/número Empty [Resolvido]Extrair últimos 5 caracteres de um texto/número

    Mensagem  Krauss em 27/11/2020, 02:05

    Salve Srs.!!!

    Todos os tópicos que achei aqui sobre Mid, testei na minha condição e não consegui adaptar.

    Acredito ser bem simples: após digitar o código 1121999900011 no campo "leituraCodigoProd", como faço para extrair os últimos 5 caracteres de um código que tem 13 e jogá-lo no campo "txtCodProd"? Obs.: O valor do campo é numérico, mas este campo está configurado como texto na tabela, pois futuramente ele também terá letras.

    Ex.: 1121999900011
    Preciso extrair o 00011 (considerando sempre os zeros à esquerda).

    Tentei: Me.txtCodProd = Mid(leituraCodigoProd.Text, 9, 13) no evento após atualizar do campo leituraCodProd, mas não deu certo.


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 414
    Registrado : 25/02/2016

    [Resolvido]Extrair últimos 5 caracteres de um texto/número Empty Re: [Resolvido]Extrair últimos 5 caracteres de um texto/número

    Mensagem  FranklinJSP em 27/11/2020, 02:58

    Boa noite Krauss

    Tenta assim:

    Código:
    Me.txtCodProd = Right(leituraCodigoProd.Text, 5)

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 23/12/2011

    [Resolvido]Extrair últimos 5 caracteres de um texto/número Empty Re: [Resolvido]Extrair últimos 5 caracteres de um texto/número

    Mensagem  Krauss em 27/11/2020, 03:29

    Saudações Franklin!

    Deu o mesmo erro -> Erro em tempo de execução '2185': "Você não pode fazer referência a uma propriedade ou a um método de um controle, a menos que o controle tenha o foco."


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 23/12/2011

    [Resolvido]Extrair últimos 5 caracteres de um texto/número Empty Re: [Resolvido]Extrair últimos 5 caracteres de um texto/número

    Mensagem  Krauss em 27/11/2020, 03:42

    Franklin, fiz um teste retirando o ".Text" da expressão e funfou cara. Valeu mesmo pela ajuda, abs!

    Ficou assim: Me.campoDestino = Right(campoOrigem, 5)


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 414
    Registrado : 25/02/2016

    [Resolvido]Extrair últimos 5 caracteres de um texto/número Empty Re: [Resolvido]Extrair últimos 5 caracteres de um texto/número

    Mensagem  FranklinJSP em 29/11/2020, 00:28

    Que bom Krauss!

    lol! lol! lol!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: 18/1/2021, 19:27