[Resolvido]Erro em parcelamento

Boa noite colegas.
Estou fazendo um sistemas cujo a parte do parcelamento está "Ok", mas  minha dúvida é:
Mesmo eu arredondanto o preço ou não vai trazer problema mais tarde e não estou sabendo a solução disso
Ex.:
80/3 = 26,66666666667
se arredondar e multiplicar vai dar 80,01
se eu fixar deixar 26,66*3 = 79,98 esse centavos vindos de varias outros lançamento da margem de erro que irão pensar furto.
Como se trabalha com isso?

Você tem que somar a diferença do arredondamento na 1a. Parcela ou Na última.

Não estou sabendo aplicar isso.
ja dar erro .
Estou perdido nesse projeto desde ontem.
tenho que concluir essa parte

80/3 = 26,66 a diferença e 26,67 aplicando isso está dando 80,01

No exemplo, vc fez 80,00/3, que é igual a 26,66.
Se vc multiplicar o valor de cada parcela pela quantidade de parcelas, o valor é 79,98.
Vc faz 80,00 - 79,98 = 0,02 e soma esse valor na última parcela.

perai que ta dando erro. a dirença está indo para todas.
Hoje a abeça não está pensando, mas tendo que sair disso.

Não estou sabendo como inserir a diferença nela.
e quando clica no campo da diferença ela alem de 0,02 fica 019999999999996

Código:

[....]
Else
    StrValorParc = Me.txtValorTotal / Me.txtParc
     Me.txtValorExatoDaDivisao = Left(StrValorParc, 5) ' essa vai para a lista
     Me.txtMultiplicaOvalor = Me.txtValorExatoDaDivisao * Me.txtParc
     Me.txtDiferenca = Me.txtValorTotal - txtMultiplicaOvalor ' adiciona em uma das parcelas
    
    
For i = 1 To Me.txtParc
    StrDateAdd = DateAdd("m", i, Format(Me.txtData, "dd/mm/yyyy"))
    StrParc = i & "/" & Me.txtParc / Me.txtParc
sSQL = "INSERT INTO tbl_fnparcelas"
    sSQL = sSQL & "("
    sSQL = sSQL & " Nome"
    sSQL = sSQL & ",CursoTurma"
    sSQL = sSQL & ",Valor"
    sSQL = sSQL & ",TipodePG"
    sSQL = sSQL & ",Data"
    sSQL = sSQL & ",DataDoLancamento"
    sSQL = sSQL & ")"
    sSQL = sSQL & " VALUES "
    sSQL = sSQL & "("
    sSQL = sSQL & " '" & Trim(Me.txtNome.Value) & "'"
    sSQL = sSQL & ",'" & Me.txtCursoTurma.Value & "'"
    sSQL = sSQL & ",'" & Me.txtValorExatoDaDivisao & "'"
    sSQL = sSQL & ",'" & Me.cboTipoDePG & "'"
    sSQL = sSQL & ",'" & StrDateAdd & "'"
    sSQL = sSQL & ",'" & Me.txtDataDoLancamento.Value & "'"
    sSQL = sSQL & ")"
CurrentDb.Execute sSQL

Next i
[....]

Tente isso:

Código:



[....]
Else
    StrValorParc = Me.txtValorTotal / Me.txtParc
    Me.txtValorExatoDaDivisao = Left(StrValorParc, 5) ' essa vai para a lista
    Me.txtMultiplicaOvalor = Me.txtValorExatoDaDivisao * Me.txtParc
    Me.txtDiferenca = Me.txtValorTotal - txtMultiplicaOvalor ' adiciona em uma das parcelas
   
   
For i = 1 To Me.txtParc
    StrDateAdd = DateAdd("m", i, Format(Me.txtData, "dd/mm/yyyy"))
    StrParc = i & "/" & Me.txtParc / Me.txtParc
    '-- Alexandre Fim - Se for a ultima parcela, soma a diferença -------------------
    If i = Me.txtParc Then
        Me.txtValorExatoDaDivisao = (Me.txtValorExatoDaDivisao + Me.txtDiferenca)
    End If
    '-------------------------------------------------------------------------------
    sSQL = "INSERT INTO tbl_fnparcelas"
    sSQL = sSQL & "("
    sSQL = sSQL & " Nome"
    sSQL = sSQL & ",CursoTurma"
    sSQL = sSQL & ",Valor"
    sSQL = sSQL & ",TipodePG"
    sSQL = sSQL & ",Data"
    sSQL = sSQL & ",DataDoLancamento"
    sSQL = sSQL & ")"
    sSQL = sSQL & " VALUES "
    sSQL = sSQL & "("
    sSQL = sSQL & " '" & Trim(Me.txtNome.Value) & "'"
    sSQL = sSQL & ",'" & Me.txtCursoTurma.Value & "'"
    '-- Retira ponto e substitui virgula por ponto. Ex.: 1.250,33 muda para 1250.33 ----------------
    '-- para se adequar na instrução de insert
    sSQL = sSQL & ",'" & Replace(Replace(Me.txtValorExatoDaDivisao, ".", ""), ",", ".") & "'"
    '-----------------------------------------------------------------------------------------------
    sSQL = sSQL & ",'" & Me.cboTipoDePG & "'"
    sSQL = sSQL & ",'" & StrDateAdd & "'"
    sSQL = sSQL & ",'" & Me.txtDataDoLancamento.Value & "'"
    sSQL = sSQL & ")"
    CurrentDb.Execute sSQL

Next i
[....]



Att,

Alexandre Fim

Deu certo.
Obg pela paciencia ai.
Estava colocando if for=1 to txtParc, ou seja, quando começar  o loop já adicionar.
eu entrava com sql aqui..
depois do primeiro ja não adicionava mais.