MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Formatar para moeda

    Compartilhe

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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 : 2267
    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 

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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 : 2267
    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.

    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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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: Qua 07 Dez 2016, 18:17