[Resolvido]CAIXA DE MENSAGEM

Criei um formulário com dois campos para datas, nos quais são inseridas datas para pesquisa em determindao intervalo de tempo. Para tanto, criei uma Consulta qyrConsultaPorData, onde no campo Critério digitei o seguinte: Entre [Forms].[frmConsultaPorData].[data1] E [Forms].[frmConsultaPorData].[data2].
Tudo está funcionando perfeitamente, pois o resultado da consulta aparece no relatório: DoCmd.OpenReport "rltConsultaPorData", acViewPreview
Acontece que, caso pesquisarmos um intervalo que não possui registros a serem mostrados, abre-se o relatório em branco. Gostaria de saber como faço para mostrar uma caixa de mensagem quando não tiver registros, ao invés de abri-lo em branco. [/justify]

If DCount("*", "rltConsultaPorData", "Data >=" & Me.Data1 & " And Data<=" & Me.Data2) = 0 Then
MsgBox "Não registros para esse intervalo", vbOkOnly + vbCritical, "Sem dados"
Else
DoCmd.OpenReport "rltConsultaPorData", acViewPreview
End If

Outra opção pode ser usando o evento "Se nenhum dado" do relatório, aonde você coloca a mensagem e um Close

MsgBox "Não registros para esse intervalo", vbOkOnly + vbCritical, "Sem dados"
DoCmd.Close

Eu havia inserido o seguinte código:
Private Sub Comando5_Click()
On Error Resume Next
If IsNull(Me.data1) Or data1 = "" Or 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
If DCount("*", "qyrConsultaPorData") = 0 Then
MsgBox "Não há registro(s) com os parâmetros informados", vbInformation, "Aviso"
Else
DoCmd.OpenReport "rltConsultaPorData", acViewPreview
End If
End Sub
Ele funcionou perfeitamente, porém, caso coloque uma data inicial superior à final, é mostrada a caixa de mensagem falando sobre o erro e em seguida abre-se a caixa de mensagem dizendo que não há registros a serem informados.

Vou testar o seu código, Criquio.

Com o código que me passou, Criquio, ele não realiza nenhuma pesquisa, mesmo tendo regsitros a serem informados, ele responde que não existem.

Tente alterar assim:

If DCount("*", "rltConsultaPorData", "Data >=#" & Me.Data1 & "# And Data<=#" & Me.Data2 & "#") = 0 Then

Continua abrindo a caixa de mensagem informando que não há registros a serem informados, mesmo quando não se insere uma das datas ou quando a data inical é superior à final.

Veja se assim vai:

Private Sub Comando5_Click()
'On Error Resume Next → Aconselho deixar desabilitado enquanto estiver testando
If IsNull(Me.data1) Or data1 = "" Or IsNull(Me.data2) Or data2 = "" Then
MsgBox "Insira as datas desejadas.", vbInformation, "Aviso"
Me.data1 = ""
Me.data2 = ""
Me.data1.SetFocus
ElseIf 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
ElseIf DCount("*", "qyrConsultaPorData") = 0 Then
MsgBox "Não há registro(s) com os parâmetros informados", vbInformation, "Aviso"
Else
DoCmd.OpenReport "rltConsultaPorData", acViewPreview
End If
End Sub

Congratulations!!!!, Criquio!!!!

Funcionou Corretamente! Está perfeito agora.

Muito obrigado mesmo!
Mais uma dúvida, Criquio:
Estou querendo criar mais consultas no mesmo formulário, ou seja, a consulta acima refere-se a duas situações: Cartório e Fórum, porém, existem mais três situações: Cota Cumprida, Relatado e Outros.
Estou pensando em inserir um rádio button para cada situação, sendo assim, após inserir as datas, o usuário pudesse escolher qual a situação queria pesquisar. A minha dúvida é a seguinte, após criar uma consulta para cada, como deverei inserir o(s) código(s) para que seja mostrado o relatório referente ao intervalo da data informada referente à situação desejada?

Amigo, nova dúvida, novo tópico, ok?

Sem problemas. Desculpe, mas pensei que como haiva visto os código, poderia aproveitar.

Tranquilo.