[Resolvido]Controle nao atualiza apos o calculo

Bom dia a todos, estou tentando fazer com que um campo receba o resultado de uma expressao (calculo) mas apos o calculo o mesmo nao atualiza conforme o codigo abaixo


If EFETIVO_TRABALHADO > EFETIVO_CONTRATADO Then
MsgBox "Verifique o numero digitado !", vbExclamation, "Pessoas Trabalhadas é maior que as Pessoas contratadas !"
Me.FALTAS.SetFocus
Me.EFETIVO_TRABALHADO.SetFocus

Else
Me.FALTAS.Value = Me.EFETIVO_TRABALHADO - Me.EFETIVO_TRABALHADO
Me.FALTAS.Requery
END IF


Mesmo colocando sem if nao esta atualizando

ACESS 2007 VBA

Obrigado a todos que leram este post.

Veja se está correto o que escreveu;

Me.FALTAS.Value = Me.EFETIVO_TRABALHADO - Me.EFETIVO_TRABALHADO

Será isto ?

Código:

If Nz(Me.EFETIVO_TRABALHADO.Value, 0) > Nz(Me.EFETIVO_CONTRATADO.Value, 0) Then
    MsgBox "Verifique o numero digitado !", vbExclamation, "Pessoas Trabalhadas é maior que as Pessoas contratadas !"
    Me.EFETIVO_TRABALHADO.SetFocus
    Exit Sub
    Else
    Me.FALTAS.Value = (Nz(Me.EFETIVO_TRABALHADO.Value, 0) - Nz(Me.EFETIVO_CONTRATADO.Value, 0))
    Me.FALTAS.Requery
End If


Deu certo.

Obrigado

Obrigado pelo retorno o forum agradece.