MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Chat - Comunicador Instantâneo Interno

    Compartilhe
    avatar
    joaomarcosferlinibento
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Chat - Comunicador Instantâneo Interno

    Mensagem  joaomarcosferlinibento em Sex 31 Out 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 - CII.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (397 Kb) Baixado 351 vez(es)

    kakay
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  kakay em Qua 03 Jun 2015, 21:05

    Excelente,

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

    Sds.


    Ademilson Santos


    cleytondouglas2
    Novato
    Novato

    Respeito às Regras 100%

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

    Bom dia

    Mensagem  cleytondouglas2 em Qua 29 Jul 2015, 15:37

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

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  Alexandre Neves em Qua 29 Jul 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
    avatar
    joaomarcosferlinibento
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  joaomarcosferlinibento em Ter 29 Set 2015, 18:21

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

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  LEAM em Sab 24 Out 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.

    ederson
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  ederson em Seg 30 Maio 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?

    ederson
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  ederson em Ter 07 Jun 2016, 22:00

    up
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms em Qua 08 Jun 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

    ederson
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  ederson em Qui 09 Jun 2016, 13:06

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

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms em Qui 09 Jun 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 "?
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  cleverson_manaus em Qui 09 Jun 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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

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

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms em Qui 09 Jun 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.

    renyrosa
    Novato
    Novato

    Respeito às Regras 100%

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

    Dúvida - O que fazer quando a mensagem é maior do que o quadro de exibição.

    Mensagem  renyrosa em Qui 09 Jun 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?
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms em Qui 09 Jun 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?
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  Alexandre Neves em Qui 09 Jun 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
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms em Qui 09 Jun 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
    Anexos
    Nova Imagem de Bitmap.bmp
    Você não tem permissão para fazer download dos arquivos anexados.
    (593 Kb) Baixado 10 vez(es)

    ederson
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  ederson em Qui 09 Jun 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á.
    avatar
    anderson_cgms
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  anderson_cgms em Sex 10 Jun 2016, 13:43

    Very Happy Very Happy obrigado!!!


    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Chat - Comunicador Instantâneo Interno

    Mensagem  Alexandre Neves em Sex 10 Jun 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

      Data/hora atual: Seg 25 Set 2017, 17:55