[Resolvido]executar arquivo wav uma única vêz.

Olá Feras de plantão, boa noite.

Possuo um exemplo do Mestre JPaulo (Agenda de compromissos com alarme - http://maximoaccess.forumeiros.com/t155-agendamento-de-eventos-com-alarme?highlight=agenda+com+alarme) que executa um arquivo wav até que se marque uma checkbox para interromper o audio.

O que pretendo é executar outro arquivo wav uma única vêz ao clicar num comando para fechar o formulário.

Abraços, WSenna

Olá grande Rei;

Se você setar o comando "PlaySound", para False, ele não repete...

Exemplo no botão fechar do form alerta;

Private Sub Command5_Click()
'By JPaulo ® Maximo Access
Dim X As String
If Me.chkLida.Value = 0 Then
MsgBox "Tem de Confirmar com Concluída..."
DoCmd.CancelEvent
Else
   Call StopSound
DoEvents
X = Left$(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "byebye.wav"
Call PlaySound(X, False) 'Se False não repete
   DoCmd.Close
End If
End Sub

http://dl.dropboxusercontent.com/u/771097/AlarmeOLD.rar

Grande Mestre JPaulo, bom dia.

Amigão, agradeço sua boa vontade em ajudar sempre que preciso de forma simples e direta.
Acontece que logo após ter iniciado este tópico andei pensando um pouco com meus botões e fiz o que sugeriu e a coisa funfou de forma perfeita.
Na verdade eu criei um formulário com a imagem de uma urna eletrônica que lança os horários de entrada e saída num outro formulário, a tecla branca lança a entrada e a laranja lança a saída. Feito isso o usuário tecla na de cor verde para finalizar a operação e aí toca aquele alarme da urna eletrônica e fecha. Ficou muio bom.
Sendo assim, desejo que tenha uma ótima semana e mais uma vêz agradeço a sua pronta ajuda.

Grande abraço, WSenna

Obrigado pelo retorno velho, o forum agradece.

Pra não passar em branco...

Veja a imagem do formulário mensionado acima.

Abração, WSenna

Como sempre um excelente layout,  parabéns amigão.