Erro ao Cancelar Parametro

Bom dia,

Sou novo aqui no Fórum e estou começando a engatinhar no Access, e gostaria de pedir a ajuda de vocês .

Criei uma consulta onde tenho um campo data e neste coloquei para o usuário digitar as datas que ele  quer que retorne conforme abaixo:

Entre [digite a data inicial] E [digite a data final]

Diretamente na consulta ele esta ok .

Porém criei um formulário e neste um botão que chama a consulta , se o usuário digitar as datas Ok , porém se ele cancelar me abre um erro.

Macro Passo a Passo

Nome da Macro: Fomulário1 Comando6 : OnClick : Macro Iserida
Condição:
Nome da Ação: AbrirConsulta
Numero do Erro: 2001
Argumentos: Produção Rafael; Folha de dados; Somente leitura


Alguém sabe como posso corrigir este erro ?

Agradeço

acho que a consulta ja esta sendo executada no formulário.... por isso esta aparecendo somente leitura...


mas posta o arquivo ai para verificarmos.....

Segue um exemplo, não é o que estou fazendo pois o arquivo tem quase 1 Mega e esta amarrada ao banco de dados SQL via ODBC.

No Exemplo em anexo , vc digita a letra a por exemplo , vai abrir o parâmetro da data , ai vc clica em cancelar .

Vai dar o mesmo erro que esta acontecendo no real .

Obrigado por enquanto .

não postou o arquivo!!

Sorry ..

Segue ...

Amigão se seu Objetivo é apenas Evitar que essa Mensagem apareca pro usuário, no caso dele desistir da pesquisa, faça como no Exemplo...


Mudei de Macro> para Codigo

'Se Apresentar Erro, e For o ERRO 2001 ele IGNORA, mas se for Outro erro ele exibe Normalmente...
On Error GoTo 1
'Aqui ele Abre a Consulta
DoCmd.OpenQuery "cn_Teste", acViewNormal
1:
If Err.Number = 2001 Then
Err.Number = 0
Exit Sub
Else

MsgBox Err.Description
Exit Sub