[Resolvido]Guardar Não ( Limpa )

boas
tenho o seguinte código p/ guardar os lançamentos efetuados o que pretendia era que ao dizer :
- Não
Limpava dos os Dados lançados antes de gravar inclusive os dados da combo.
Obrigado


Private Sub GravarFO_Click()
On Error Resume Next

If Me.Dirty Then
If MsgBox("Guardar Lançamentos?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then

DoCmd.RunCommand acCmdSave

Else

DoCmd.CancelEvent
Me.Undo

End If
End If
End Sub

Olá Marco,
Tente isso:

Private Sub GravarFO_Click()
On Error Resume Next
If Me.Dirty Then 'Que comparação é essa? Se Dirty o quê?
If MsgBox("Guardar Lançamentos?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSave
Else
DoCmd.CancelEvent
Me.NomeCampo1 = ""
Me.NomeCampo2 = ""
'...
Me.NomeCampoX = ""
End If
End If
End Sub

boas
tentei amigo... só que deu o seguinte erro :

compile error:
method or data member not found

atenção que da este erro na linha que tenta limpar a combo

No campo da Combo, tente:
Me.NomeDaCombo.Undo

ok... assim que faço não gravar fica certo... tira os dados da combo... mas...
se fizer guardar não tira mantem o Utente que lá estava anteriormente.

Tente:

Private Sub GravarFO_Click()
On Error Resume Next
If Me.Dirty Then 'Que comparação é essa? Se Dirty o quê?
If MsgBox("Guardar Lançamentos?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSave
Me.NomeDaCombo.Undo
Else
...

Certinho e Direitinho... Muito Obrigado ! valeu

Em nome do fórum, agradeço o retorno.
Sucesso.
Valeu.