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]Formatar para moeda

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Formatar para moeda Empty [Resolvido]Formatar para moeda

    Mensagem  formiga10x 24/12/2013, 21:08

    Boa noite a todos.
    Alguém pode me dar uma luz para o valor da ValorUntario ir no formato moeda para a textbox segue abaixo o código. Está tudo ok só esse detalhe que pegou. Agradeço a ajuda desde já e tenham um Natal abençoado.


    Private Sub txtPesquisa_Change()

    Dim descricao, und As String
    Dim cod, qtdEstoque, StqMin As Integer
    Dim ValorUntario As Double

       lstProduto.RowSource = "SELECT codProduto, descricao, unidade, " & _
                   "valorUnitario, qtdEstoque " & _
                   "FROM Produto " & _
                   "WHERE descricao Like '*" & txtPesquisa.Text & "*' " & _
                   "ORDER BY Produto.descricao;"
       lstProduto.Requery
       
       
    cod = Me.lstProduto.ListIndex + 1
    Me.txtCodigo = Me.lstProduto.Column(0, cod)

    descricao = Me.lstProduto.ListIndex + 1
    Me.txtDescricao = Me.lstProduto.Column(1, descricao)
       
    und = Me.lstProduto.ListIndex + 1
    Me.txtUnidade = Me.lstProduto.Column(2, und)
       
    ValorUntario = Me.lstProduto.ListIndex + 1
    Me.txtValorUnitario = Me.lstProduto.Column(3, ValorUntario)
       
    qtdEstoque = Me.lstProduto.ListIndex + 1
    Me.txtQtdEstoque = Me.lstProduto.Column(4, qtdEstoque)
       
    StqMin = Me.lstProduto.ListIndex + 1
    Me.txtEstoqueMinimo = Me.lstProduto.Column(5, StqMin)
       

    End Sub
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]Formatar para moeda Empty Re: [Resolvido]Formatar para moeda

    Mensagem  Kaynan 24/12/2013, 21:50

    Oi amigo formiga,manda os objetos envolvidos,sera mais facil.
    Feliz natal.. santa 
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Formatar para moeda Empty Re: [Resolvido]Formatar para moeda

    Mensagem  formiga10x 24/12/2013, 22:32

    Feliz Natal

    Veja é apenas converter uma variável para moeda antes de ir para a textbox.

    Veja o código está em azul.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]Formatar para moeda Empty Re: [Resolvido]Formatar para moeda

    Mensagem  Kaynan 25/12/2013, 21:02

    Opa amigão, isso mesmo blz.

    Abçs.
    DARTH
    DARTH
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 07/12/2013

    [Resolvido]Formatar para moeda Empty Re: [Resolvido]Formatar para moeda

    Mensagem  DARTH 28/12/2013, 15:06

    Bom dia.

    Já experimentou:
    Código:

    Me.txtValorUnitario = format(Me.lstProduto.Column(3, ValorUntario),currency)

    BOAS FESTAS
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Formatar para moeda Empty Re: [Resolvido]Formatar para moeda

    Mensagem  formiga10x 28/12/2013, 17:02

    Boa tarde DARTH desculpe não ter fechado o tópico já resolvi mesmo assim muito obrigado pela resposta e que Deus o abençoe.

    Forte abraço e um Novo Ano cheio de projetos e realizações.

    Conteúdo patrocinado


    [Resolvido]Formatar para moeda Empty Re: [Resolvido]Formatar para moeda

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 01:38