[Resolvido]Código para Parâmetro de Data de Início e Data de Término

Boa tarde, mestres!

No Menu do meu BD adicionei um botão para abrir um relatório, que se baseia numa consulta parametrizada por [Data de Início] e [Data de término]. Quando tento cancelar o parâmetro, o BD está sendo encerrado também. Eu gostaria que ele retornasse ao Menu de origem. Tentei usar o conteúdo do fórum (https://www.maximoaccess.com/t1843-resolvidomensagem-confirmacao-parametros-obrigatorios) para resolver o problema, mas está acontecendo alguma coisa que não estou entendendo. Além disso, se não há dados no período consultado, uma mensagem é disparada me informando que "Não há registros no período". Gostaria de acrescentar isso também ao código, mas não sei como fazer.

O código a seguir eu o estou colocando no botão do Menu do Relatório que quero abrir

Private Sub PlanejamentoFinanceiro_Click()
   
   If IsNull("DATA DE INÍCIO") Or Me.[DATA DE INÍCIO] = "" Then
       MsgBox "Preenchimento obrigatório Data de Início!"
       DoCmd.CancelEvent
   End If

   If IsNull("DATA DE TÉRMINO") Or Me.[DATA DE TÉRMINO] = "" Then
       MsgBox "Preenchimento obrigatório Data de Término!"
    DoCmd.CancelEvent

   Else

       DoCmd.Close
       DoCmd.OpenReport acViewNormal, "Planejamento Financeiro(Fluxo)"
   
   End If

   End Sub

Será que poderiam me ajudar?
Um grande abraço e boa semana a todos.

Para que não abra o relatório, no evento Em Sujo coloque msgbox"Não há dados entre esse perídos",vbinformation," Seu título".
Para que não feche é só tirar o docmd.close.

crysostomo, boa noite. Muito obrigado por sua atenção.

A mensagem "Não há dados entre esses períodos" que vc me sugeriu já está em Folha de Propriedades, Evento, "Se Nenhum Dado" do Relatório. E ela está funcionando corretamente.

O que não está funcionando é o seguinte: ao clicar no botão de geração do relatório, a macro desse botão fecha o Menu e abre o relatório. Não havendo dado para o relatório, a mensagem que vc me reiterou aparece. Se clico no botão ok da mensagem, eu não reabro o Menu. Por isso, tenho que fechar o BD e fazer todo o procedimento novamente. Eu gostaria de simplificar isso, de modo que, se o relatório não tivesse dados, ao clicar no ok dessa mensagem um código me retornasse ao Menu.

A mesma coisa está acontecendo quando digito as datas do período da consulta parametrizada do mesmo relatório. Ao cancelar ou deixar em branco qualquer das duas datas (Data de Início e Data de Término) não reabro o Menu.

Se fosse possível gostaria de resolver os probleminhas num código só, entendeu?

Valeu, viu!

Vish. Troquei os nomes do evento.
Deixa o bd anexado que vai ser mais rápido pada gente te ajudar.

macro desse botão fecha o Menu e abre o relatório escreveu:

Só tirar a macro que fecha o bd.
Agora estou fora do PC.

Chrysóstomo, mais uma vez muito agradecido por sua atenção.

Anexo, envio o BD. Vou colocar um passo a passo aqui. A figura abaixo é uma foto do BD.



1 - Entrar no Menu de Relatórios.

2 - O BD vai solicitar [Data de Início] e [Data de Término] para definir o período desejado. Se digitar as datas direitinho, e havendo registros como ocorre no ano de 2022, o Relatório vai abrir ok e fechar o Menu Relatórios (que não quero mesmo que continue aberto). Aqui vai então a minha primeira dúvida. Copiei o código que está na mensagem nº 1 de uma postagem do Fórum para tentar resolvê-la, mas esse código não funcionou. Se eu deixar os campos [Data de Início] ou [Data de Término] em branco ou se quiser cancelar a geração do Relatório, eu não consigo reabrir o Menu de Relatórios. Com o ribbon desabilitado, eu tenho que fechar o BD e reentrar. Eu acho que posso melhorar isso.

3 - Se digitar [Data de Início] 01/01/2021 e [Data de Término] 31/01/2021, o Relatório não vai abrir, porque vai aparecer a mensagem de que não há dados nesse intervalo. Ao clicar no ok da mensagem, acontece o mesmo problema da etapa 2: o Menu de Relatórios não reabre e mais uma vez preciso fechar o BD e reentrar.

Boa tarde

Chrysóstomo, valeu mestre. Vou testar aqui e posto o resultado em seguida.

Obrigado e um grande abraço

Chrysóstomo, voltando aqui para agradecê-lo pela paciência e por disponibilizar seu tempo para me ajudar.
Entendi sua solução. Testei e funcionou direitinho.
Um grande abraço.

Sucesso.