[Resolvido]Comando que não fecha Formulario.

Bom dia Amigos

Tenho este comando para não deixar repetir movimentos na mesma data e funciona perfeito, mas tenho só uma duvida ?
O comando faz tudo menos o fechar o formulario. Porque ?

A seguir a por os campos TxtTipo, e TxtTipo1 como nulos, PARA. e eu queria que  form fosse fechado de seguida.

Private Sub DataMes_Exit(Cancel As Integer)
On Error Resume Next
Dim X As Integer
X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "#")
If X = 1 Then
MsgBox "Já Tem Aberto o Registo de Stock Para este Mês " & Data & "." & Chr(13) & "Abra Esse Documento No Menu Principal " & Chr(13) & "Em Alterar Registo " & Chr(13) & "Registo Alterar", vbInformation, "Produção"
Me.txtTipo = Null
Me.txtTipo1 = Null
DoCmd.Close acForm, "frmPedidos"
Exit Sub
 
End If

Obrigado

Bom dia,
E a instrução é executada? Se fôr, coloca o tratamento de erros para ver qual o erro

Boa tarde Alexandre

Como fazer isso ?
Obrigado

Alexandre fiz assim e da

ERRO:2585

Private Sub DataMes_Exit(Cancel As Integer)
On Error GoTo trataerro
Dim X As Integer
X = DCount("[IDmes]", "Mes", "[txtData] =#" & Format(Me.TxtData, "dd/mm/yyyy") & "#")
If X = 1 Then
MsgBox "Já Tem Aberto o Registo de Stock Para o Mês de " & Format(TxtData, "MMMM") & "." & Chr(13) & "Abra Esse Documento No Menu Principal " & Chr(13) & "Movimentação " & Chr(13) & "Alterar Registo", vbInformation, "Produção"
Me.txtTipo = Null
Me.txtTipo1 = Null
DoCmd.Close acForm, "frmPedidos"
End If
trataerro:
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.Helpfile, Err.HelpContext
End Sub

Bom dia amigos..

Assis você ja tentou mudar de evento esse comando? Teria essa possibilidade?

Fernando vou tentar e retorno.
A função é do Mestre JPaulo
Também estou a ver se o Mestre Alexandre me diz qualquer coisa sobre o erro que informa

Obrigado a todos

Aguardo

Ok Assis..

Provavelmente, estará a ser pedido para fechar sem gravar as alterações pendentes.
Testa gravar (ou desfazer) as alterações antes do fecho do formulário

Boa tarde amigos

Depois de várias tentativas sem resolver o assunto.
Segui a ideia do Fernando Bueno, e coloquei o código ao abrir o formulário e ..... resultou, nem chega a abrir o form.
Obrigado a todos.

Que bom que deu certo Assis

Agradeço o retorno em nome do forúm, sucesso!!