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
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