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

2 participantes

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

    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

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

    Mensagem  wsenna 29/9/2014, 00:10

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 29/9/2014, 10:51

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]executar arquivo wav uma única vêz. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]executar arquivo wav uma única vêz. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]executar arquivo wav uma única vêz. Folder_announce_new Instruções SQL como utilizar...
    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

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

    Mensagem  wsenna 29/9/2014, 12:06

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 29/9/2014, 12:58

    Obrigado pelo retorno velho, o forum agradece.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]executar arquivo wav uma única vêz. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]executar arquivo wav uma única vêz. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]executar arquivo wav uma única vêz. Folder_announce_new Instruções SQL como utilizar...
    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

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

    Mensagem  wsenna 29/9/2014, 13:23

    Pra não passar em branco...

    Veja a imagem do formulário mensionado acima.

    Abração, WSenna
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 29/9/2014, 13:50

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]executar arquivo wav uma única vêz. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]executar arquivo wav uma única vêz. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]executar arquivo wav uma única vêz. Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 27/9/2022, 18:02