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


3 participantes

    chat entre usuarios

    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 277
    Registrado : 07/12/2009

    chat entre usuarios Empty chat entre usuarios

    Mensagem  jntrindade 20/10/2016, 11:53

    bom tarde, baixei o exemplo do chat entre usuarios e gostei muito, mas gostaria de saber se tem como colocar um sinal sonoro avisando da chegada da mensagem.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  Alvaro Teixeira 20/10/2016, 12:48

    Olá Jorge Trindade,

    Já experimentou uma pesquisa aqui no fórum, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Olhe este tópico por exemplo:
    www.maximoaccess.com/t19556-chat-entre-usuarios-opcao-de-cadastro-e-visualizacao-mensagens-exclusivas

    Abraço
    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 277
    Registrado : 07/12/2009

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  jntrindade 20/10/2016, 13:02

    E este justamente esse exemplo que baixei, so que eu queria um sinal sonoro quando chegasse uma nova mensagem.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  Alvaro Teixeira 20/10/2016, 13:14

    Olá, estou no celular de desconheço o projecto.
    Mas pode ter um form que fica oculto após o login do utilizador.
    E no evento on timer pode verificar se existe mensagens novas.
    Quando existir pode por beep ou tocar algum ficheiro.
    Fica a dica.
    Abraço
    avatar
    PetryX
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 22/03/2017

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  PetryX 29/3/2017, 15:10

    Olá "ahteixeira "

    Estou tentando incluir aqui um Form como sugeriu, mais não sei como criar o código você poderia dar uma ideia...
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  Alvaro Teixeira 30/3/2017, 13:01

    Olá,
    O formulario frmConversation está sempre aberto, é aqui que pretende aviso sonoro?
    Abraço
    avatar
    PetryX
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 22/03/2017

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  PetryX 30/3/2017, 14:13

    Não! Tenho um botão no FPrincipal, e é la que gostaria que me aleta se
    "Algo como botão mudando de cor ou fica piscando ou aparecendo uma MsgBox"...

    Desde ja obrigado...
    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 277
    Registrado : 07/12/2009

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  jntrindade 30/3/2017, 20:42

    a questão sobre o sinal sonoro e se derepente voce estiver trabalhando em outro programa tipo word, excel e desse um sinal que chegou mensagem.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  Alvaro Teixeira 31/3/2017, 19:28

    Olá, poste a sua base de dados com os formularios envolvidos na questão.
    Assim fica mais fácil para ajudar.
    Abraço
    avatar
    PetryX
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 22/03/2017

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  PetryX 5/4/2017, 09:32

    Olá, segui anexo um exemplo do que basicamente seria minha duvida, sim com o auxilio dos senhores por favor!...
    Eu coloque no anexo um BD com Frms chat e Painel Principal onde se encontra o botão em que desejo um alerte "sonoro juntamente com um alerta no btn"

    Senhas...

    Admin:123

    User:1234

    VB:arquivo1q2w3e

    Desde ja obrigado pela a atenção de todos...
    Anexos
    chat entre usuarios AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (700 Kb) Baixado 38 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  Alvaro Teixeira 5/4/2017, 12:49

    Olá Pedro Henrique,
    Com o exemplo é mais fácil para qualquer membro compreender e poder ajudar, Assim facilitou Wink
    Com o seguinte código obtemos o pretendido.
    Código:
    Option Compare Database
    Option Explicit
    Public dblControlo, dblMsn As Double   'variável

    Private Sub Form_Open(Cancel As Integer)
        'verifica ultima mensagem ao abrir
        dblControlo = Nz(DMax("indexKey", "tblConversation"), 0)
    End Sub


    Private Sub Form_Timer()
    Me.txtTempo.Requery

        'consulta último base de dados
        dblMsn = Nz(DMax("indexKey", "tblConversation"), 0)
        'verifica se é maior (nova)
        If dblMsn > dblControlo Then
            
            'aqui faz o que pretender
            DoCmd.Beep
            MsgBox "Olá tem uma mensagem nova, verifique!", vbInformation, ""
            'atribuir novo numero ao controlo
            dblControlo = dblMsn
        End If
    End Sub
    Nota: está a fazer o controlo de mensagens novas, não está a fazer por utilizador.
    Será apenas ajustar para mensagens "gerais" e por "utilizador", o metodo será dentro do mesmo.

    Segue em anexo o meu teste.
    Abraço
    Anexos
    chat entre usuarios AttachmentAlarme_chat.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (61 Kb) Baixado 45 vez(es)
    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 277
    Registrado : 07/12/2009

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  jntrindade 7/4/2017, 10:17

    galera vejam a adptação depois que o ahteixeira mostrou os caminhos das pedras, mas tambem que da uma melhoradinha quem sabe o nosso amigo nos ajude.

    abrçs
    Anexos
    chat entre usuarios Attachmentchat.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (340 Kb) Baixado 53 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  Alvaro Teixeira 11/4/2017, 19:25

    Olá Pedro Henrique,
    Ainda não vi o seu projecto que postou na mensagem anteriror.

    A questão do tópico ficou resolvida, se sim não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos
    Abraço

    Conteúdo patrocinado


    chat entre usuarios Empty Re: chat entre usuarios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 15:03