Função dirty em formulario desacoplado

Viva
Utilizo um formulario desacoplado e pretendia que se algum campo fosse alterado, ao sair do form ele pergunta-se se pretendia gravar as alterações.
Utilizei a propriedade dirty mas não funcionou em formulario desacoplado.
Tem como fazer isso sem ser na propriedade ao alterar em cada campo?

Um Abraço
Rui Sérgio

Uma opção pode ser carregar os dados em uma variável ao abrir o registro e depois confrontar os dados presentes nos campos com os carregados na variável. Algo como:

varDados = Me.NomeCampo1 & Me.Campo2 & Me.Campo3

Depois, na hora de verificar se mudou algo:

Código:

If varDados <> Me.NomeCampo1 & Me.Campo2 & Me.Campo3 Then
    If MsgBox("Houve alterações nos dados. Deseja gravá-la?", vbYesNo + vbQuestion, "Dados alterados") = vbYes Then
        Gravar os dados
    End If
End If

A variável deve ser declarada fora dos eventos do formulário:

Option Compare Database
Option Explicit
Dim varDados As String

Olá

Baixe o aplicativo Meastro do meu site que tem um formulário desvinculado como exemplo. Nele eu uso a cor vermelha para definir qualquer alteração e ainda é possivel realizar o salvamento de forma altomática ao fechar o formulário. Veja mais detalhes do Maestro, neste meu artigo abaixo:

http://www.usandoaccess.com.br/dicas/dica34.asp?id=1#inicio

Bom estudo!

Muito obrigado Avelino e criquio, vou testar e depois dou feedback.
Cumprimentos
Rui Sérgio

Viva
Como tenho vários formularios e alguns com mais de 30 campos fica demorado estar a colocar código no evento "ao alterar" para cada campo, estou a pensar utilizar este ccódigo:

Dim ctl As control
Dim VarDadosAlt As String
For Each ctl In Controls
If ctl.ControlType = acTextBox Then
If ctl.Locked = False Then
ctl.SetFocus
If Nz(ctl.Name) = 0 Then
VarDadosAlt = VarDadosAlt & " "
Else
VarDadosAlt = VarDadosAlt & ctl.Text
End If
End If
End If
Next
If VarDadosAlt <>VarDadosOrigem Then
MsgBox "edição"
Else
MsgBox "consulta"
End If

só que não me esta a reconhecer quando o campo está nulo e se não colocar a linha ctl.setfocus dá erro.

O que acham desta ideia efetuada com base nos vossos exemplos?
Um Abraço
Rui Sérgio

Tente assim:

Código:

...
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        If ctl.Locked = False Then
            VarDadosAlt = VarDadosAlt & ctl.Value
        End If
    End If
Next
...

Precisa ter em nota tambem se todos os textbox não bloqueados entram na condição. Caso não, precisa adaptar.

Viva
Como você disse funciona, mas pode não gravar alguns dados, como por exemplo:
Imaginando que temos só 3 campos
Campo1 = A
Campo2 está em branco (nulo)
Campo3 = B
Nesta situação se eu alterar o campo2 para o valor B e alterar o campo3 para nulo, vai dar o resultado que não houve alterações pois o resultado é o mesmo AB
É raro acontecer mas pode acontecer.

Um Abraço

Coloque algo como um ponto e vírgula entre os dados:

...
VarDadosAlt = VarDadosAlt & ";" & ctl.Value
...

Valeu criquio, execelente ideia
Obrigado