MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


+5
LEAM
Alexandre Neves
cleytondouglas2
Ademilsom
joaomarcosferlinibento
9 participantes

    Chat - Comunicador Instantâneo Interno

    joaomarcosferlinibento
    joaomarcosferlinibento
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 23/02/2011

    Chat - Comunicador Instantâneo Interno Empty Chat - Comunicador Instantâneo Interno

    Mensagem  joaomarcosferlinibento 31/10/2014, 16:35

    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".
    Anexos
    Chat - Comunicador Instantâneo Interno AttachmentChat - CII.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (397 Kb) Baixado 417 vez(es)
    avatar
    Ademilsom
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/04/2011

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  Ademilsom 3/6/2015, 21:05

    Excelente,

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

    Sds.


    Ademilson Santos

    avatar
    cleytondouglas2
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 28/07/2015

    Chat - Comunicador Instantâneo Interno Empty Bom dia

    Mensagem  cleytondouglas2 29/7/2015, 15:37

    Bom dia, onde está o arquivo da versão 2.0?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  Alexandre Neves 29/7/2015, 19:29

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    joaomarcosferlinibento
    joaomarcosferlinibento
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 23/02/2011

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  joaomarcosferlinibento 29/9/2015, 18:21

    cleytondouglas2, Sim está na versão 2.0
    LEAM
    LEAM
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 696
    Registrado : 02/04/2011

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  LEAM 24/10/2015, 14:53

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


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    avatar
    ederson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 27/04/2013

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  ederson 30/5/2016, 14:12

    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?
    avatar
    ederson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 27/04/2013

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  ederson 7/6/2016, 22:00

    up
    anderson_cgms
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms 8/6/2016, 19:22

    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 " Question

    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
    avatar
    ederson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 27/04/2013

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  ederson 9/6/2016, 13:06

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms 9/6/2016, 13:41

    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 Sad


    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 "?
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  cleverson_manaus 9/6/2016, 14:37


    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


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    anderson_cgms
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms 9/6/2016, 15:33

    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 Razz , 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.
    avatar
    renyrosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 1
    Registrado : 04/10/2013

    Chat - Comunicador Instantâneo Interno Empty Dúvida - O que fazer quando a mensagem é maior do que o quadro de exibição.

    Mensagem  renyrosa 9/6/2016, 17:57

    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?
    anderson_cgms
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms 9/6/2016, 18:21

    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?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  Alexandre Neves 9/6/2016, 18:32

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    anderson_cgms
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms 9/6/2016, 19:07

    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
    avatar
    ederson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 27/04/2013

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  ederson 9/6/2016, 20:08

    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á.
    anderson_cgms
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms 10/6/2016, 13:43

    Very Happy Very Happy obrigado!!!


    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  Alexandre Neves 10/6/2016, 14:05

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Chat - Comunicador Instantâneo Interno Empty Re: Chat - Comunicador Instantâneo Interno

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:56