chat entre usuarios

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.

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

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

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

Olá "ahteixeira "

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

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

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...

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.

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

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...

Olá Pedro Henrique,
Com o exemplo é mais fácil para qualquer membro compreender e poder ajudar, Assim facilitou
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

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

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