[Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo

Noa Tarde a todos amigos

Bom eu tenho um BD “Agenda Niver” nele tem um formulário chamado “frmAgendaNiverHoje” a fonte de controle e da consulta “consultAgendaNiverHoje”
na consulta Ele tem uma expressão que me mostra o aniversariante do dia, caso não tenha aniversariante ele mostra o formulário sem dados.

Eu encontrei um tutorial que coloca Msg Ao Consultar Formulario Vazio, Colocar uma msg de aviso quando o formulário não tem registro


Coloque um campo no Rodapé do seu Formúlário e nomeie "Registros"
Coloque em Fonte de Controle desse campo: =Count([NomedoCampo])

*NomedoCampo=Nome de algum campo do Form. De preferência o Identificador.
*Você pode deixar também esse campo como Vísivel=Não

E no evento ao carregar do Form:


CODE
If Me.registros = 0 Then
MsgBox "Não existe lançamento nesta DATA para essa CHAPA!!!"
DoCmd.Close acForm, "frmtblHorasExtrasCons"
End If
Mas não deu certo, vcs podem me ajudar por favor
Desde já agradeço pela atenção

Att: Leandro{RBS}


Link BD: http://dl.dropbox.com/u/7757932/Agenda%20Niver.mdb

Veja o simples sem tutorial;

Private Sub Form_Load()
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Não existe registros!!!", vbExclamation, "Erro!!!"
DoCmd.Close
Else
Exit Sub
End If
End Sub


Ou...

Private Sub Form_Load()
If DCount("*", "[consultAgendaNiverHoje]") = 0 Then
MsgBox "Não existe registros!!!"
DoCmd.Close
Else
Exit Sub
End If
End Sub

JPaulo Venho atraves deste e-mail agradecer por sua ajuda e atenção Deus Abençoe Vc
Obrigado

Att:Leandro

Obrigado pelo retorno amigo, o fórum agradece.