amigos , me de uma ajuda, eu coloco comando para fecha somente o relatório e ele fecha o programa todo.
- Código:
Private Sub Report_NoData(Cancel As Integer)
MsgBox " Não há nenhum compromisso marcado nesse mês. ", vbExclamation, "Relátório"
DoCmd.Close acReport, "relatorioDeListaDeCompromisso"
DoCmd.OpenForm "Lista_de_Compromissos"
End Sub