Boa 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