[Resolvido]arredondar preços

Boa tarde"!

tenho a sguinte função:
Private Sub PORCENTAGEM()
Dim DB As Database
Dim rs, rs1 As DAO.Recordset
Dim VLPORC As Variant
Dim LUCRO
Set DB = CurrentDb()
Set rs = OpenForSeek("TBPRECOS")
Set rs1 = OpenForSeek("PRODUTOS")
rs.Index = "IDITEN"
rs.Seek "=", Me.TXITEN.Column(0)
rs1.Index = "IDPROD"
rs1.Seek "=", Me.TXITEN.Column(0)
If rs.NoMatch Then
rs.AddNew
rs1.Edit
VLPORC = Me.TXCUSTOPROD * Me.TXMARGEM / 100
Me.TXCUSTOCT = VLPORC
Me.TXCUSTOCT.value = Format(Me!TXCUSTOCT.value, "Currency")
LUCRO = Me.TXCUSTOPROD * Me.TXLUCRO / 100
Me!TXVLRVENDA = LUCRO + Me!TXCUSTOCT + Me!TXCUSTOPROD
Me!TXVLRVENDA.value = Format(Me!TXVLRVENDA.value, "Currency")
rs!ITEN = Me!TXITEN
rs!VLRVENDA = Me!TXVLRVENDA
rs!TAXA = Me!TXMARGEM
rs1!CUSTO = Me!TXCUSTOPROD
rs.Update
rs1.Update
Else
rs.Edit
rs1.Edit
VLPORC = Me.TXCUSTOPROD * Me.TXMARGEM / 100
Me.TXCUSTOCT = VLPORC
Me.TXCUSTOCT.value = Format(Me!TXCUSTOCT.value, "Currency")
LUCRO = Me.TXCUSTOPROD * Me.TXLUCRO / 100
Me!TXVLRVENDA = LUCRO + Me!TXCUSTOCT + Me!TXCUSTOPROD
Me!TXVLRVENDA.value = Format(Me!TXVLRVENDA.value, "Currency")
Me.TXVLRVENDA.value = Round(Me.TXVLRVENDA.value, 2)
rs!ITEN = Me!TXITEN
rs!VLRVENDA = Me!TXVLRVENDA
rs!TAXA = Me!TXMARGEM
rs1!CUSTO = Me!TXCUSTOPROD
rs.Update
rs1.Update
rs.Close
rs1.Close
End If

End Sub
Elal calcula o preço de um produto, somando a taxa de cartão de credito e a margem de lucro informada pelo usuário.
Porem tenho um cliente que quer os preços fiquem redondos.
Ja tentei a função round mas nao consegui fazer funcionar.
Exemplo : Me.TXVLRVENDA.value = Round(Me.TXVLRVENDA.value, 2)
Alguem poderia me dare um ajuda de como fazer esse arredondamento/
Exemplo:
R$3,48= 3,50
R$3,44 =3,40

Boa tarde Ney.

Como usar para arrdenodar para 2 casas decimais

Valor Arredondado= Arredondar(ValorOriginal,2)

Use essa função:

Public Function Arredondar(ValorComDecimal As Double, Casas As Integer) As Double

   Dim ValorTexto As String
   Dim Virgula As Integer
   Dim ProxDig As Integer
   Dim ValorD As Double
       
   
   
   ValorTexto = Trim$(Str$(ValorComDecimal)) & String(Casas, "0")
   
   Virgula = InStr(1, ValorTexto, ".")
   
   ValorD = Val(Mid$(ValorTexto, 1, Virgula + Casas))
   
   If Virgula = 0 Then
       Arredondar = ValorComDecimal
       Exit Function
   Else
       ProxDig = Int(Mid$(ValorTexto, Virgula + Casas + 1, 1))
       If ProxDig >= 5 Then
           Arredondar = ValorD + 1 / 10 ^ Casas
       Else
           Arredondar = ValorD
       End If
   End If
   
End Function

Boa noite,
Crie uma função

Olá,

Você também pode utilizar as funções do Access.
Ex.:
- Format(Round("335.179,495",2),"#,###.#0")
- Resultado: 335.179,50

Espero ter ajudado

Boa sorte

Prezados, obrigado pelas respostas..
Antes de postar eu ja tinha dado uma olhada nospost aqui com exeplos de arredondamento.
Usei a função que nosso amigo Caique postou, não sei se fiz da maneira correta pois coloquei assim:
Me.TXVLRVENDA = Arredondar(Me.TXVLRVENDA, 2)
No caso peguei um produto que custou R$0,45 centavos coloquei a margem doc artãod e credito (5%) e a magemde lucro 90% o resultado foi
R$0,88 ous eja não funcionou.
oque eu queria e que ficaasse redondo, no caso R$0,90.

Ney,

O campo "Me.TXVLRVENDA" já vem com o valor calculado?

ele recebe o valor calculado alexandre..

segue exemplo do aplicastivo:

Tente isso:

Me.TXVLRVENDA = Format(Round(Me.TXVLRVENDA,1),"#,##0.#0")

Caramba Alexandfe mais uma vez voce matou a cobra e mostrou a cobra morta..
Funcionou certinho.
Queri entender essa linha que vce screveu..

Então,
o Problema está aqui:



Se vc utilizar a instrução abaixo, vai funcionar:

Me.TXVLRVENDA = Format(Round(Me.TXVLRVENDA,1),"#,##0.#0")




Já existem funções nativas do Access que fazem o arredondamento.

Boa sorte

Função ROUND com Format.
Não tem erro !!!


https://docs.microsoft.com/pt-br/office/vba/language/reference/user-interface-help/round-function

Muito obrigado Alexandre..
Alem de reoslver ainda da uma baita aula.
Graditão sempre

Tamo junto, Ney
Abraços