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]Varios criterios

    hugopanzer
    hugopanzer
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    [Resolvido]Varios criterios Empty Varios criterios

    Mensagem  hugopanzer 26/10/2012, 11:54

    Caros amigos preciso da vossa ajuda para a construçao do seguinte codigo vba. Preciso que a determinada hora se o valor no campo Producao do meu formulario for igual a 0 entao toca o som 1.wav.
    Sera qualquer coisa deste tipo:

    If Time = #11:46:00 AM# And Me.Producao.Value = 1 Then
    API_PlaySound "C:\Documents and Settings\user\Ambiente de trabalho\AR_Outubro\1.wav"

    Para um valor funciona perfeitamente, mas como faço para que, dependendo do valor que apareca no campo producao toque o respectivo som

    if À hora xx:xx:xx
    se o valor porducao = 1 entao toca o som 1.wav
    se o valor porducao = 2 entao toca o som 2.wav
    se o valor porducao = 3 entao toca o som 3.wav
    se o valor porducao = 4 entao toca o som 4.wav
    se o valor porducao = 5 entao toca o som 5.wav
    end if

    Desde já agradeco qualquer ajuda possivel
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Varios criterios Empty Re: [Resolvido]Varios criterios

    Mensagem  Avelino Sampaio 26/10/2012, 12:13

    Se vc manter os arquivos de som numerados e correspondentes ao campo produção, fica bem simples.

    if À hora xx:xx:xx then
    toca o som "Som" & me!produção & ".wav"
    end if

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    hugopanzer
    hugopanzer
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    [Resolvido]Varios criterios Empty Re: [Resolvido]Varios criterios

    Mensagem  hugopanzer 26/10/2012, 12:41

    Obrigado amigo Avelino mas nao entendi a sintaxe. A Sintaxe sera esta?

    If Time = #12:41:00 PM# Then
    Me.Producao& "1.wav"
    Me.Producao& "2.wav"
    Me.Producao& "3.wav"
    End If

    Desculpa mas nao sou grande expert em VBA
    avatar
    Convidad
    Convidado


    [Resolvido]Varios criterios Empty Re: [Resolvido]Varios criterios

    Mensagem  Convidad 26/10/2012, 12:49

    penso ser isto

    If Time = #12:41:00 PM# Then
    API_PlaySound "C:\Documents and Settings\user\Ambiente de trabalho\AR_Outubro\" & Me!produção & ".wav"
    hugopanzer
    hugopanzer
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    [Resolvido]Varios criterios Empty Re: [Resolvido]Varios criterios

    Mensagem  hugopanzer 26/10/2012, 12:59

    Mário é isso mesmo obrigado.
    Obrigado tambem Avelino pela ajuda.


    Grande abraço

    Conteúdo patrocinado


    [Resolvido]Varios criterios Empty Re: [Resolvido]Varios criterios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 21:00