[Resolvido]Relatório por consulta

Tenho um projeto onde meus registros possuem uma data de vencimento. Consegui criar uma consulta através do assistente, mas achei muito simples.
Então gostaria de saber como faço para criar um relatório para impressão, através de um botão que abrisse uma InputBox onde existiriam dois locais, uma para data inicial e outro para data final, com as opções Ok e Cancelar. Após digitar o intervalo desejado, um relatório seria apresentado para impressão. Os dados para pesquisa seriam retirados de uma lista. Também gostaria que uma mensagem aparecesse caso o usuário inserisse uma data incompatível ou clicasse em Ok sem ter inserido uma data ainda.
O arquivo do projeto segue em anexo.

Espero uma ajuda.

Olá Eduardo, seja bem vindo ao forum! O arquivo não veio. Talvez esteja em formato incompatível ou o tamanho está alem do permitido. Dê uma olhada na minha assinatura abaixo ↓↓↓

Obrigado por responder.
Então, eu já havia realizado estes procedimentos. É um arquivo modelo Access 2007 e tem só 840 Kb. Estranho.
Tentei novamente e não consegui.

POde enviar para o email de um Moderador que colocamos aqui:

sergiovieirasoft@gmail.com

Caso queira, envie para ccsregistros@gmail.com ou coloque em um servidor público, como www.dropbox.com ou www.megaupload.com

Criquio

O amigo mandou para o meu,aqui está

http://dl.dropbox.com/u/8157744/Controle%20de%20Inqu%C3%A9ritos.zip

Veja o exemplo e tente adaptar.

http://maximoaccess.forumeiros.com/t95-form-filtra-consulta-de-referencia-cruzada

Qualquer coisa dê um grito aqui.

Obrigado pela força.
Vou tentar e ver o que consigo. O problema é que sou muito limitado em Access.

O modelo que me enviou deu certo, JPaulo. Consegui deixar do jeito que queria.
Entretanto, está ocorrendo um erro que não sei como solucioná-lo.
Digitei o seguinte código. O problema é que ao abrir o formulário ao se clicar no botão Comando5(Pesquisar) pela primeira vez, ele abre o relatório sem nenhuma pesquisa. Após fechar o relatório e realizar a pesquisa, o funcionamento é normal. O problema é a primeira pesquisa.
Como conserto isso?

Private Sub Comando5_Click()
If Me.data1 = "" Or Me.data2 = "" Then
MsgBox "Insira as datas desejadas.", vbInformation, "Aviso"
Me.data1 = ""
Me.data2 = ""
Me.data1.SetFocus
End If
If Me.data1 > Me.data2 Then
MsgBox "A data inicial não pode ser superior à data final.", vbExclamation, "Aviso"
Me.data1 = ""
Me.data2 = ""
Me.data1.SetFocus
End If
On Error Resume Next
DoCmd.OpenReport "rltConsultaPorData", acViewPreview
End Sub

Private Sub Comando5_Click()
On Error Resume Next
If IsNull(Me.data1)Or Data1 = "" And IsNull(Me.data2)Or Data2 = "" Then
MsgBox "Insira as datas desejadas.", vbInformation, "Aviso"
Me.data1 = ""
Me.data2 = ""
Me.data1.SetFocus
End If
If Me.data1 > Me.data2 Then
MsgBox "A data inicial não pode ser superior à data final.", vbExclamation, "Aviso"
Me.data1 = ""
Me.data2 = ""
Me.data1.SetFocus
End If
DoCmd.OpenReport "rltConsultaPorData", acViewPreview
End Sub

Quero muito agradecer ao Criquio, ao JPaulo e ao Vieira pela pronta ajuda que me deram. Há tempos queria criar esta função e graças a vocês, eu consegui.
Muito obrigado.

Durante testes, vieira, descobri dois erros.
O primeiro era que ao deixar a primeira data em branco e qualquer valor na segunda, ao clicar em Pesquisar, era mostrada a mensaem de que a dat afinal não poderia ser iinferior à inicial.
O segundo é que se clicasse em limpar tendo apenas inserido uma das datas, o relatório sem nenhum dado era mostrado.
Para solucionar eu substitui a função AND por OR na primeira linha:

If IsNull(Me.data1)Or Data1 = "" Or IsNull(Me.data2)Or Data2 = "" Then
Agora ele está funcionando corretamente.

Resolvido

Obrigado pelo retorno. Bom trabalho