Chat - Comunicador Instantâneo Interno

Boa tarde Comunidade!

Estou disponibilizando a versão 2.0 do Chat que já coloquei a disposição anteriormente neste fórum!

Esta atualização contém alterações, tais como:

> Nova Interface
> Disponibilidade do Usuário - [Offline // Disponível]
> Vencimento de Senha a cada 7 dias
> Data e Hora de Envio da Mensagem
> Alteração de Senha do Usuário

***Para usar em rede, basta compartilhar em rede uma pasta e colocar o programa nela. Depois faça em cada computador a ação de criar um "Atalho" e depois é só usar!

**Versões para Office 2003 e 2007/2013 no mesmo "zip".

Excelente,

Para usar em rede, basta apenas enviar atalho para área de trabalho, é isso mesmo.

Sds.


Ademilson Santos

Bom dia, onde está o arquivo da versão 2.0?

Boa tarde, cleytondouglas2 e bem-vindo ao fórum
Leia as regras e siga-as. Respeite o título das dúvidas

cleytondouglas2, Sim está na versão 2.0

Vie seu BD tem como não ficar gravado as conversas tipo limpar

Gostaria de acrescentar uma mensagem quando chegasse novas mensagens, tentei pegando o indexKey, porém ao "pegar" esse número gera erro, como se o campo estivesse null.

Alguém teria uma solução para informar para o destinatário que ele possui msgs não lidas?

up

Boa tarde,

Gostaria de um empurrão quanto ao chat do amigo joaomarcosferlinibento, alguém poderia me dizer onde esta o código, e ou, o que faz com que a na tabela Usuários a coluna do Status mude de " Offline " para " Disponível "

Não encontrei e gostaria de ver o código para adaptar para ao fechar o chat no botão sair a tabela Usuários a coluna do Status retorne-se a " Offline "


desde já grato

DoCmd.RunSQL "Update Usuários Set Status= 'OFF LINE' Where NomeUsuario='" & CaixaUsuarioAtual & "'"

Bom dia ederson.

o comando ficou assim:

Private Sub Comando30_Click()
DoCmd.RunSQL "Update Usuários Set Status= 'Off line' Where NomeUsuario='" & CaixaUsuarioAtual & "'"
DoCmd.Quit
End Sub



porém não funcionou


e vc sabe me dizer onde esta o código, e ou, o que faz com que a na tabela Usuários a coluna do Status mude de " Offline " para " Disponível "?

Anderson,



Ao fazer o Login, no próprio form existe a cx de texto StatusUsu com o valor padrão "Disponível".

Esse valor é acrescentando à tabela Usuários, através da função verificaLogin.

Acesse o modo estrutura do form e analise o código.

Abraços,

Cleverson

Bom dia cleverson_manaus

achei o código e ele faz exatamente como você descreveu e ficou mais fácil buscar como funciona apesar de eu não ter feito isto ainda , para ao fechar o chat no botão sair e a tabela Usuários a coluna do Status retorne a " Offline " o código do amigo ederson foi na mosca, só retirei uma parte.

no caso ficou assim;

Private Sub Comando30_Click()
DoCmd.RunSQL "Update Usuários Set Status= 'Off line' '"
DoCmd.Quit
End Sub


Obrigado a todos.

Caros amigos,
Estava esperando muito esta atualização, entretanto, ainda resta uma melhoria ausente desde a versão antiga.
Como fazer para que ao ser enviada uma mensagem grande, o conteúdo q não couber na tela
passe automaticamente para a outra linha. É possível?

Boa tarde, o código não ficou 100% funcional, um usuário ao sair do chat faz com que o status de todos os usuários fique como off line, o que falta fazer, para que o código altere somente o status do usuário que se desconectou?

Boa tarde,
Acrescente condição para afectar apenas o utilizador pretendido
DoCmd.RunSQL "Update Usuários Set Status= 'Off line' WHERE Usuario=" & TxtNrUtilizador

Boa tarde Alexandre.

esta a dar o seguinte erro anexo.


código: Private Sub Comando30_Click()
DoCmd.RunSQL "Update Usuários Set Status= 'Off line' WHERE Usuario=" & CaixaUsuarioAtual & "'"
DoCmd.Quit
End Sub

Where NomeUsuario e não where Usuario.

Faltou também um apóstrofo depois do = que ficará assim: Where NomeUsuario='" & CaixaUsuarioAtual & "'"

Troque isso que funcionará.

obrigado!!!

Boa tarde, renyrosa
Já resolveu a sua questão?