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


4 participantes

    Abrir um audio

    avatar
    ALEXVARELLA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/01/2018

    Abrir um audio Empty Abrir um audio

    Mensagem  ALEXVARELLA 21/6/2023, 11:22

    bom dia pessoal td bem?

    por favor , tem como ajudar neste cód abaixo? não consigo anexar novos audios... é uma função para anexar audio para avisar sobre eventos

    Private Sub cmdLoc_Click()
    Dim Cortar As Variant, Parte As Integer

    Dim strCaminho As String, strPastaInicial As String
    strPastaInicial = "C:\Users\User\Downloads\CalendarioTarefaRSA - 32 e 64 bits"
    strCaminho = Buscar(Me.hWnd, "Adicionar Alarme", strPastaInicial, _
    "Arquivos de vídeos (*.mid; *.mp3;*.wav)" & vbNullChar & "*.mid; *.mp3;*.wav")
    If Len(strCaminho) > 0 Then
    Me.txtDirArquivo = strCaminho

    Cortar = Split(txtDirArquivo, "\")
    For Parte = 0 To UBound(Cortar)
    Me.txtDescAlarme = Cortar(Parte)
    Next Parte

    Me.txtDuracao.SetFocus

    End If
    End Sub


    obrigado!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Abrir um audio Empty Re: Abrir um audio

    Mensagem  JPaulo 21/6/2023, 13:45

    Código:
    Private Sub cmdLoc_Click()
    Dim strCortar As Variant
    Dim intParte As Integer
    Dim strFicheiro As Object
    Dim varFicheiro As Variant
        Set strFicheiro = Application.FileDialog(3)
        strFicheiro.Title = "Adicionar Alarme"
        strFicheiro.Filters.Add "Musicas", "*.mid; *.mp3;*.wav"
        strFicheiro.FilterIndex = 1
        strFicheiro.AllowMultiSelect = False
        strFicheiro.InitialFileName = "C:\Users\User\Downloads"
        strFicheiro.Show
            For Each varFicheiro In strFicheiro.SelectedItems
                  Me.txtDirArquivo = varFicheiro
            Next

    strCortar = Split(Me.txtDirArquivo, "\")
    For intParte = 0 To UBound(strCortar)
    Me.txtDescAlarme = strCortar(intParte)
    Next intParte

    Me.txtDuracao.SetFocus
    End Sub


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

    Abrir um audio Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Abrir um audio Folder_announce_new 102 Códigos VBA Gratuitos...
    Abrir um audio Folder_announce_new Instruções SQL como utilizar...
    avatar
    ALEXVARELLA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/01/2018

    Abrir um audio Empty como abrir um audio???

    Mensagem  ALEXVARELLA 21/6/2023, 14:00

    BO DIA PAULO BLZ?
    OBRIGADO IRMÃO!!!

    COLEI O COD NO FORMS QUE ESTOU USANDO, AI SELECIONEI UM SOM (ALARME ) EM MP3

    ENTAO OCORRE ESTE ERRO "O ARQUIVO DE AUDIO NÃO É VALIDO"

    PODERIA ME AJUDAR POR FAVOR

    AGRADEÇO
    Administrador
    Administrador
    Administrador
    Administrador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 426
    Registrado : 02/11/2009

    Abrir um audio Empty Re: Abrir um audio

    Mensagem  Administrador 21/6/2023, 15:07

    Ler por favor com atenção o item 12 das regras;

    REGRAS DO FÓRUM

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox  ou do próprio fórum.
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    .................................................................................
    Admin

    ALEXVARELLA gosta desta mensagem

    avatar
    ALEXVARELLA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/01/2018

    Abrir um audio Empty como abrir um audio???

    Mensagem  ALEXVARELLA 21/6/2023, 18:27

    boa tarde

    estou postando meu bd para possivel ajuda referente a tocar o audio nos avisos do evento do calendario

    agradeço a atenção e ajuda
    Anexos
    Abrir um audio Attachmentcalendario.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (392 Kb) Baixado 6 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Abrir um audio Empty Re: Abrir um audio

    Mensagem  Alvaro Teixeira 27/6/2023, 10:57

    Olá a todos,

    Aalexander Varella, antes de dar continuidade ao tópico, edite a mensagem nº 3 e regularize a situação.
    Desta forma fica em conformidade com o nº 12 das Regras do Fórum:
    "12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!"

    Abraço

    Conteúdo patrocinado


    Abrir um audio Empty Re: Abrir um audio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/7/2024, 13:52