MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 478
    Registrado : 11/12/2017

    [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem Empty [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

    Mensagem  Ismael Silva em 7/11/2019, 14:30

    Bom dia,

    Como eu posso fazer para que na minha caixa de listagem, os valores R$, aparecem com 3 casas decimais?
    Na minha tabela, os valores estão configurados com 3 casas decimais, mas na caixa de listagem, o mesmo arredonda, e não fica com as 3 casas.

    Obrigado se alguém puder me ajudar.

    Ismael Silva
    Antonildo
    Antonildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 14/03/2014

    [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem Empty Re: [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

    Mensagem  Antonildo em 8/11/2019, 03:55

    oi! vc pode usar esta função a baixo

    Public Function fncAjustaCampo(varCampo) As String
    Dim j As Byte
    varCampo = Format(varCampo, "#,##0.00")
    j = Len(Replace(varCampo, ",", "") & "")
    fncAjustaCampo = Space(11 - j) & varCampo
    End Function


    e personalize ao seu gosto e na consulta que vc esta usando no campo do total vc assim fncAjustaCampo(seucampo)

    espero ter lhe ajudado
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 478
    Registrado : 11/12/2017

    [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem Empty Re: [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

    Mensagem  Ismael Silva em 8/11/2019, 11:41

    Bom dia,

    Não sei o que estou fazendo de errado, mas não está dando certo, veja:

    Public Function fncAjustaCampo(Val_Unit) As String

    Dim j As Byte

    Val_Unit = Format(Val_Unit, "#,##0.00")
    j = Len(Replace(Val_Unit, ",", "") & "")
    fncAjustaCampo = Space(11 - j) & Val_Unit

    E na consulta, coloque assim, conforme disse:

    fncAjustaCampo([Val_Unit])

    Mas não está dando certo, diz que Função Indefinida na Expressão.

    Onde está o meu erro?

    Obrigado Ismael


    End Function
    Antonildo
    Antonildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 14/03/2014

    [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem Empty Re: [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

    Mensagem  Antonildo em 8/11/2019, 15:12

    boa tarde!!

    a função tem que estar assim

    Public Function fncAjustaCampo(varCampo) As String
    Dim j As Byte
    varCampo = Format(varCampo, "#,##0.00")
    j = Len(Replace(varCampo, ",", "") & "")
    fncAjustaCampo = Space(11 - j) & varCampo
    End Function

    salvo como um modulo

    na sua consulta e que vai ficar assim
    fncAjustaCampo(Val_Unit)

    entendeu?
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 478
    Registrado : 11/12/2017

    [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem Empty Re: [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

    Mensagem  Ismael Silva em 8/11/2019, 16:46

    Agora sim. Eu não estava colocando no módulo.

    Resolvido. Muito Obrigado!
    Antonildo
    Antonildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 14/03/2014

    [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem Empty Re: [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

    Mensagem  Antonildo em 8/11/2019, 17:03

    por nada!! precisando estamos aqui!!!

    um abraço!!
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 478
    Registrado : 11/12/2017

    [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem Empty Re: [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

    Mensagem  Ismael Silva em 8/11/2019, 17:05

    Obrigado!

    Conteúdo patrocinado

    [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem Empty Re: [Resolvido]Valores R$ com 3 Casas Decimais na Caixa de Listagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/11/2019, 03:47