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

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Formatar para moeda

    Mensagem  formiga10x em Ter 24 Dez 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

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Formatar para moeda

    Mensagem  Kaynan em Ter 24 Dez 2013, 21:50

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

    Respeito às Regras 100%

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

    Re: [Resolvido]Formatar para moeda

    Mensagem  formiga10x em Ter 24 Dez 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.

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Formatar para moeda

    Mensagem  Kaynan em Qua 25 Dez 2013, 21:02

    Opa amigão, isso mesmo blz.

    Abçs.
    avatar
    DARTH
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Formatar para moeda

    Mensagem  DARTH em Sab 28 Dez 2013, 15:06

    Bom dia.

    Já experimentou:
    Código:

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

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

    Respeito às Regras 100%

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

    Re: [Resolvido]Formatar para moeda

    Mensagem  formiga10x em Sab 28 Dez 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.

      Data/hora atual: Seg 20 Nov 2017, 17:12