[Resolvido]Exemplo Sistema de Mensagem Privada

Fala galera boa noite, estou tentando ver como funciona o sistema de Mensagens Privadas esta disponivel no repositorio do forum postado pelo amigo webruxim https://www.maximoaccess.com/t31284-sistema-de-mensagem-privada
Quando eu clico no Form Chat_leitura ele me aparece o seguinte erro:

E quando eu clico em depurar ele faz referencia a seguinte linha,

E nao abre o formulario. Queria poder estar testando esse exemplo para adaptar a algumas ideias. Alguem poderia me ajudar com isso?


Agradeco!

Isso acontece porque você não tem dados na consulta "viewChat";

Antes dessa linha do erro de Recordset Nulo, adicione;

Código:

If rst.RecordCount = 0 Then Exit Sub

Obrigado JPaulo, resolvido.

Obrigado pelo retorno.

Fico feliz de um ano depois da resposta os usuários virem dar o retorno.

Bons estudos e obrigado