[Resolvido]Detetar se valor do campo foi alterado

Boa tarde amigos

No clik de um botão queria detetar se o valor do campo "Texto43" foi alterado.

O campo Texto43 é um campo onde tem a soma de outros campos.

Estou a tentar usar o comando abaixo mas não está a detetar quando o campo "Texto43" é alterado, e queria a informação da MsgBox.


If Nz(Texto43) <> Nz(Texto43.OldValue) Then

If MsgBox("Dados Alterados Deseja Salvar ? " & Chr(10) + Cliente & Chr(10) + Chr(13) & "No Valor de " & Format(EncValor, "#,##0.00"), vbYesNo + vbQuestion, "Aviso") = vbNo Then

else

aqui o meu código
end if


End If

Boa tarde, Assis
Tens algum controlo que contenha dado único de registo (código, etc)?

se sim
currentdb.execute "DELETE * FROM Tabela WHERE Código=" & TxtCodigo

OldValue só funciona se o campo estivesse numa tabela, em caixas desvinculadas não funciona.

Use o Dirty.

Obrigado JPaulo

Fica aqui pode servir para exemplo.


If Me.Dirty = True Then
If MsgBox("Dados Alterados Deseja Salvar ? " & Chr(10) + Cliente & Chr(10) + Chr(13) & "No Valor de " & Format(EncValor, "#,##0.00"), vbYesNo + vbQuestion, "Aviso") = vbNo Then
Me.Undo
Else


Dim DB1 As DAO.Database, rs As DAO.Recordset
Set DB1 = CurrentDb()
Set rs = DB1.OpenRecordset("encomenda", dbOpenDynaset)
rs.FindFirst "ln = " & Me.Lnn
rs.Edit
rs("RecebiFT") = Me.Texto43.Value
rs.Update
rs.Close
Set rs = Nothing
Set DB1 = Nothing

End If
End If

Complemente a instrução para ficar completa;

Código:

If Me.Dirty = True Then
   Me.Dirty = False