Você inseriu uma expressão que contém uma referencia inválida à propriedade Dirty

Boa tarde caros colegas, esta é minha primeira publicação neste Fórum. Dia após dia recorro ao Fórum para solucionar os problemas que tenho com relação a Access e sempre consegui, porem me ocorreu um erro que não achei a solução e descrevo a vocês abaixo:

Tenho um Formulário que contem um SubFormulario, no formulario principal exitem alguns campos que efetuam filtros para o subformulario e também um botão Novo, um Excluir e um Fechar.

Ocorre que o meu botão fechar exibe a mensagem do Titulo deste Tópico "Você inseriu uma expressão que contém uma referencia inválida à propriedade Dirty" e não consegui fazer com que o seja reconhecido este comando.

Private Sub BtnFecharmov_Click()
On Error GoTo Err_btnFecharmov_Click

If (Me.Dirty) Then
DoCmd.RunCommand acCmdUndo
Me.Dirty = False
End If
DoCmd.Close

Exit_btnFecharmov_Click:
Exit Sub

Err_btnFecharmov_Click:
MsgBox Err.Description
Resume Exit_btnFecharmov_Click
End Sub

O código é este acima, e quando a execução chega no comando Me.Dirty ocorre o erro citado. Tente mudar deixando apenas o comando DoCmd.RunCommand acCmdUndo porem neste caso a mensagem é outra: "O comando ou a ação 'Desfazer' não esta disponível agora".

Se algum dos colegas do Forum já passou por este problema ou sabe o que posso fazer para contornar a situação agradeceria muito.

Olá Ronei,

Seja bem-vindo ao fórum!!

Por gentileza, compartilhe uma cópia do seu bd para análise e solução do problema.

Veja no link abaixo como postar anexos:
https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

É isso.

Valeu

Alexandre Fim

Segue em anexo o BD conforme solicitado.

O Formulário é o Frm_Movimento

Olá Ronei,

Baixei seu bd e fiz os testes, e não ocorreu nenhum problema.
Execute a ação "Compctar/Reparar", feche o sistema e abra novamente.
Verifique se ainda ocorre o erro.

Att,

Alexandre

Boa noite Alexandre obrigado pela dica, porem não funcionou e tentei outra verificação que foi abrir o sistema em outra versão do Access. O meu Access é o 2007 é aparece a mensagem que adicionei sobre o comando Dirty, abri o sistema na versão Access 365 e não ocorreu o erro. Creio que deva ser algo com relação a versão mesmo, só que o mais estranho é que tenho outros sistemas que possuem Formulários e Subformulários com o botão fechar e que tem exatamente o mesmo código e funciona. Não sei se tem algo que se possa fazer neste caso para resolver este problema.

tinha uma aspas a  mais no codigo

FCamara baixei seu arquivo e ocorreu o mesmo erro. Onde vc diz que tinha uma aspas a mais?

Ola Ronei,

Compile o sistema e veja se aparece alguma mensagem.




Att

Alexandre Fim

Efetuei esta opção mas não apareceu nada de erro, creio que seja algo de versão do access mesmo.

Ronei, faz o seguinte:

1 - Crie um bd no Access 365
2 - Importe todos os objetos da versão 2007 para nova versão
3 - Realize os testes e analise se ocorre o erro.

Tente isso

Valeu

Efetuei a importação da versão 2007 para versão 365 e como disse anteriormente o erro infelizmente persiste.