[Resolvido]Erro ao chamar função do modulo

Estou tentando reutilizar um trecho de código, pois esse trecho aparece muitas vezes na aplicação, porem parte do código retorna o seguinte  erro:

uso invalido para para a palavra-chave Me

eis o Código  em questão:

Código:



If MsgBox("Fechar cadastro?", vbYesNo + vbDefaultButton1 + vbExclamation, "Sair do Registro") = vbYes Then

' Erro neste trecho
      Me.Undo

' O código é interrompido no trecho acima
      DoCmd.Close

   Else


   End If






Eduardo

A palavra reservada ( Me ) faz referencia ao formulário onde ela está sendo usada, ou seja no módulo classe do formulário

e não no módulo básico, onde deve estar tua função.

Para a proveitar a função, que está no módulo básico, deve mudar o

Me.Undo

para

Screeen.ActiveForm.Undo

Para saber sobre qualquer comando do Access, basta clicar sobre a palavra deseja e apertar F1.

[ ]'s

If MsgBox("Fechar cadastro?", vbYesNo + vbDefaultButton1 + vbExclamation, "Sair do Registro") = vbYes Then
'se a mensagem ("Fechar cadastro ?") for igual a sim, então.....

'.....seu código aqui para o evento sim....
bla..
bla..
bla..
bla..
else ' caso contrário, o não escolhido
Me.Undo
DoCmd.Close
End If

Eita...Não vi que estava a responder Noob.

Desculpe

"É nois" Silvio

Mas o problema dele é que está usando o ( Me ) na função em um módulo básico, por isso o erro.

[ ]'s

Obrigado pela ajuda, consegui resolver aqui com as dicas de vocês!