[Resolvido]Problema com código VBA para calcular valores e colocar o resultado em um campo

Boa tarde amigos do fórum,
Hoje preciso da vossa ajuda com algo:

Na base de dados Access que está em anexo, eu preciso de calcular um campo, para isso criei um código vba, e preciso de colocar esse resultado no campo: Valor Xtra
Este código ocorre através da ação de clicar no botão 43 que está no formulário processamentos.

Alguém me consegue ajudar por favor com este problema?

Muito obrigado,

Boa noite, s aolução que tive aqui foi;
Trocar o double para Currency e colocar campos desassociados.
A causa deve ser pelo formato, pois ele está em moeda flutuantes e em fraçãoex.: 43,333333

Já tentei efetuar essas alterações mas o problema continua.
Se poderem me ajudar por favor.

O código é:


Private Sub Comando43_Click()



Dim DiasParaProcessamento As Double

Dim NumFaltasReais As Double

Dim SalarioLiquidoDia As Currency

Dim ValorXtra As Currency



' Obtenha os valores dos campos relevantes

DiasParaProcessamento = Me![Dias para Processamento]

NumFaltasReais = Me![Nº Faltas Reais]

SalarioLiquidoDia = Me![Salário Liquido Dia]



' Calcule o Valor Xtra

ValorXtra = (DiasParaProcessamento - NumFaltasReais) * SalarioLiquidoDia



' Preencha o campo Valor Xtra com o resultado

Me![Valor Xtra] = ValorXtra



End Sub

Código:

Private Sub Comando43_Click()

    Dim DiasParaProcessamento As Double
    Dim NumFaltasReais As Double
    Dim SalarioLiquidoDia As Double
    Dim ValorXtra As Double

    ' Obtenha os valores dos campos relevantes
    DiasParaProcessamento = Me![Dias para Processamento]
    NumFaltasReais = Me![Nº Faltas Reais]
    SalarioLiquidoDia = Me![Salário Liquido Dia]

    ' Calcule o Valor Xtra
    ValorXtra = (DiasParaProcessamento - NumFaltasReais) * SalarioLiquidoDia

    ' Preenche o campo Valor Xtra com o resultado
    Me![Valor Xtra] = Format(ValorXtra, "Currency")

End Sub

Muito obrigado pela colaboração amigo, mas infelizmente o erro continua a persistir ;(

Paulo,

compile o sistema e o Access vai informar a linha do erro.


Esta declaração de End Sub deve ser alguma "sujeira" no código.
Ele está declarado em local errado.

É isso

Att,

Alexandre Fim

Tal como o Alexandre disse, sempre que você mexer no VBA, deve ir a Debug/Compile e compilar para o VBA lhe informar de todos os erros e você tratar deles.

Está aqui a correção do seu banco:

amigos, problema solucionado, muito obrigado pela ajuda!

Obrigado pelo retorno o fórum agradece.