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]Como se faz para delimitar a quantidades de zeros para remoção.

    avatar
    rafaelsleal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 28/08/2014

    [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção. Empty [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção.

    Mensagem  rafaelsleal em 30/7/2020, 17:32

    Favor ajuda neste função do exemplo do nosso colega.

    Exemplo na minha tabela eu tenho um codigo 0000003859 eu quero que exiba 0003859.
    Antes de qualquer coisa muito obrigado pela atenção de todos.


    Function fncRemoverZerosEsq(Str As String)

    'Trata zeros esquerda
    Do While Left(Str, 1) = "0"
    Str = Mid(Str, 2)
    Loop

    fncRemoverZerosEsq = Str

    End Function

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1062
    Registrado : 13/12/2016

    [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção. Empty Re: [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção.

    Mensagem  Alexandre Fim em 30/7/2020, 18:44

    Olá Rafael,

    Os dados serão exibidos em um formulário?


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    rafaelsleal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 28/08/2014

    [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção. Empty Re: [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção.

    Mensagem  rafaelsleal em 30/7/2020, 19:03

    Boa tarde!
    Não será exibido no formulário
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1062
    Registrado : 13/12/2016

    [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção. Empty Re: [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção.

    Mensagem  Alexandre Fim em 30/7/2020, 19:52

    Ok.

    Pelo que eu entendi pelo exemplo "0003859", o campo terá 7 posições.
    Desta forma, vc pode fazer da seguinte maneira:
    Código:


    Public Function fncAjuste(Str As String, iLarg As Integer) As String
       
        'Ajusta o tamanho do texto
        fncAjuste = Right(Str, iLarg)
       
    End Function


    Exemplos:

    SeuCampo = fncAjuste("0000003859",7) ==> Resultado: 0003859
    SeuCampo = fncAjuste("0000003859",6) ==> Resultado: 003859
    SeuCampo = fncAjuste("0000003859",5) ==> Resultado: 03859


    Espero ter ajudado.

    boa sorte






    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    rafaelsleal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 28/08/2014

    [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção. Empty Re: [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção.

    Mensagem  rafaelsleal em 3/8/2020, 14:24

    Muito obrigado pela dicas deu certo.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1062
    Registrado : 13/12/2016

    [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção. Empty Re: [Resolvido]Como se faz para delimitar a quantidades de zeros para remoção.

    Mensagem  Alexandre Fim em 3/8/2020, 15:07

    Valeu Rafael,

    O forum agradece.

    Boa sorte e abraços


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 15/8/2020, 00:43