Início
![[Resolvido]Formatação de dados da caixa de listagem ao recuperar registros de tabela desacoplada. Empty](https://2img.net/i/empty.gif)
lpdias 24/9/2023, 18:29Boa tarde!
Como formatar os campos valorprod, valordesc e valortotal para números com duas casas decimais aparecer na lslitens?
Como formatar os campos valorprod, valordesc e valortotal para números com duas casas decimais aparecer na lslitens?
- Código:
Private Sub SubCrgDetlistaVendas()
Dim strSQL10 As String
Dim rs10 As DAO.Recordset
strSQL10 = "SELECT CODVENDA,CODPROD, QTDEPROD,VALORPROD,VALORDESC,VALORTOTAL FROM " _
& "tabdetvendas WHERE CODVENDA= '" & Me.lbx.Column(0) & "'"
Set rs10 = CurrentDb.OpenRecordset(strSQL10, , 4)
Do Until rs10.EOF
Me.lstItens.AddItem rs10!CODPROD & ";" & "" & ";" & "" & ";" & rs10!VALORPROD & ";" & rs10!QTDEPROD & ";" & ";" & rs10!VALORTOTAL
rs10.MoveNext
Loop
rs10.Close
Set rs10 = Nothing
End Sub
![[Resolvido]Formatação de dados da caixa de listagem ao recuperar registros de tabela desacoplada. Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)