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

    Abrir um texto em PDF listado numa ListBox

    avatar
    arongiffoni
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 06/02/2017

    Abrir um texto em PDF listado numa ListBox Empty Abrir um texto em PDF listado numa ListBox

    Mensagem  arongiffoni 6/2/2017, 11:27

    Bom dia pessoal!

    Estou com dificuldades para montar um código para abrir um arquivo PDF a partir de clique-duplo. Este arquivo PDF aparece dentro de uma listbox. Quero um comando para, quando der dois cliques neste arquivo listado na ListBox, abri-lo em PDF.

    A listbox abre a partir de um comando relacionado a subpastas. Até aqui tudo bem.

    Se eu uso o Shell, o comando abre o AdobeReader, mas sem o texto.

    Alguém pode me ajudar? A listbox está em anexo.
    Anexos
    Abrir um texto em PDF listado numa ListBox Attachmentprint_listbox.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (128 Kb) Baixado 6 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4557
    Registrado : 06/11/2009

    Abrir um texto em PDF listado numa ListBox Empty Re: Abrir um texto em PDF listado numa ListBox

    Mensagem  Assis 6/2/2017, 11:45

    Bom dia

    Tente adaptar

    Troque "Me.Lista0" pelo nome da sua cx de listagem

    Private Sub Lista0_DblClick(Cancel As Integer)
    Dim varItem As Variant
    If IsNull(Me.Lista0) Then
    MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
    Exit Sub
    End If
    For Each varItem In Lista0.ItemsSelected
    If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then

    Dim strCaminho$
    strCaminho = CurrentProject.path & "\PDF\" 'aqui o destino da pasta dos PDF
    On Error GoTo 1

    Application.FollowHyperlink strCaminho & Me.Lista0.Column(0)

    1:

    Else
    DoCmd.CancelEvent
    Exit Sub
    End If
    Next varItem
    Me.Lista0.Requery
    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    arongiffoni
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 06/02/2017

    Abrir um texto em PDF listado numa ListBox Empty Re: Abrir um texto em PDF listado numa ListBox

    Mensagem  arongiffoni 6/2/2017, 12:16

    Bom dia Assis! Obrigado pelo retorno.

    Esta retornando com a mensagem de "método ou membro não encontrado", logo na primeira linha do seu código.

    Eu exclui a sua declaração de strCaminho, pois eu já tinha declarado anteriormente. E minha ListBox tem o nome de textos_disponiveis. Veja como está meu código completo, junto com a sua sugestão:

    Dim Caminho As String

    Sub AtualizaArquivos(SubPasta As String)

    Dim objFSO As Object
    Dim objPasta As Object
    Dim objArquivo As Object


    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'Set objPasta = objFSO.GetFolder(Application.ActiveWorkbook.Path & "\Videos\" & SubPasta & "\")
    Set objPasta = objFSO.GetFolder("C:\Psy_Project" & "\Textos\" & SubPasta & "\")

    Caminho = objPasta.Path & "\"

    textos_disponiveis.Clear

    For Each objArquivo In objPasta.Files
    textos_disponiveis.AddItem objArquivo.Name

    Next
    End Sub

    Private Sub botao_gestalt_Click()
    Call AtualizaArquivos("Gestalt Terapia")
    End Sub

    Private Sub botao_hipnose_Click()
    Call AtualizaArquivos("Hipnose")
    End Sub

    Private Sub botao_psicanalise_Click()
    Call AtualizaArquivos("Psicanálise")
    End Sub

    Private Sub botão_tcc_Click()
    Call AtualizaArquivos("TCC")
    End Sub

    Private Sub textos_disponiveis_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Dim varItem As Variant
    If IsNull(Me.textos_disponiveis) Then
    MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
    Exit Sub
    End If
    For Each varItem In textos_disponiveis.ItemsSelected
    If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then
    On Error GoTo 1

    Application.FollowHyperlink Caminho & Me.textos_disponiveis.Column(0)

    1:

    Else
    DoCmd.CancelEvent
    Exit Sub
    End If
    Next varItem
    Me.textos_disponiveis.Requery
    End Sub

    End Sub

      Data/hora atual: 27/1/2022, 00:29