[Resolvido]Não abrir Formulário sem Dados

Estou usando os seguintes comandos para caso não tenha dados não abrir o formulário, nos 2 casos abaixo:

1) No evento "ao clicar" em 1 Formulário:

If DCount("*", "NomeConsulta") = 0 Then
MsgBox "Não existem Dados a serem exibidos", vbOKOnly + vbCritical, "Sistema - Formulário Sem Dados"
Else
End If

O formulário acima é baseado em 1 Consulta com 3 tabelas qúe por sua vez faz a filtragem para o formulário.

Problema: Aparece a mensagem, mas ao clicar em ok, abre o formulário sem os dados, o qual não deveria.

2) Em outro formulário os seguintes comandos no evento "ao clicar":

If DCount("*", "NomeTabela") = 0 Then
MsgBox "Não existem Dados a serem exibidos", vbOKOnly + vbCritical, "Sistema - Formulário Sem Dados"
Else
End If

O formulário acima é baseado diretamente em 1 tabela.

Problema: Aparece a mensagem, mas ao clicar em ok, abre o formulário sem os dados, o qual não deveria.

Olá,
Você apenas está informando que não há dados...
Terá que após a inormação cancelar o evento

If DCount("*", "NomeConsulta") = 0 Then
MsgBox "Não existem Dados a serem exibidos", vbOKOnly + vbCritical, "Sistema - Formulário Sem Dados"
Cancel = True 'Cancelo o evento
Else
End If

Exatamente.
Mas tem que colocar o código no evento aoAbrir do Formulário, porque é esse evento que tem o Cancel do evento, caso contrário o evento não será cancelado.

Código:


Private Sub Form_Open(Cancel As Integer)
If DCount("*", "NomeConsulta") = 0 Then
MsgBox "Não existem Dados a serem exibidos", vbOKOnly + vbCritical, "Sistema - Formulário Sem Dados"
Cancel = True 'Cancelo o evento
Else
End If

End Sub


Abraços

Bom dia,

Marcelo David: Que cabeça de vento a minha, realmente tens razão, esqueci de colocar a ação após a mensagem.

Balem: Mais uma vez obrigado, funcionou perfeitamente.

Agradeço a ambos pela ajuda.

Muita Paz.

Valeu pelo retorno.

Boa sorte !!

Grato amigão!!