Exibir mensagem e Fechar Relatório

Pessoal, boa tarde!

Estou com um probleminha: Criei uma condição para exibir uma mensagem qdo não existir dados em uma tabela para imprimir, porém qdo não existe aparece a mensagem, mas o relatório continua abrindo, o que devo fazer?

OBS: Segue anexo, o BD para vossas análises.

Obrigado

onde está o bd?

Toyebom, bom dia!

Segue BD anexo.

Obrigado

Não estou encontrando o botão para imprimir nem a mensagem.

Mas em todo caso experimenta uma coista tipo no evento de impressão

Else
If Me.nomedocampo = "" Then
DoCmd.Close
End If

Toyebom, boa tarde!

Fiz conforme sua orientação, porém continua abrindo o relatório quando em branco.

Por favor, verifique pra mim.

Segue anexo o Bd.

obrigado.

Ok tenta assim:

Código:

Private Sub Comando603_Click()
If Me.NewRecord Then Exit Sub
DoCmd.OpenReport "Relatório Geral  de Membros", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom100
End Sub

Se for para um registo especifico, tenta:

Código:

Private Sub Comando603_Click()
If Me.NewRecord Then Exit Sub
DoCmd.OpenReport "Relatório Geral  de Membros", acViewPreview, , "Sistema Geral de Secretaria (teste).ID =" & Me!ID
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom100
End Sub

Outra coisa, não deixes espaços no nome das coisas pode gerar problemas, poe assim por exemplo
SistemaGeraldeSecretaria(teste)
Relatório_Geral_de_Membros