[Resolvido]Ver e abrir ficheiro PDF através duma listbox dentro dum formulário

Bom dia a todos

Tenho uma BD referente a uma prova desportiva, onde estão inscritos 200 atletas. A visualização da fiche individual de cada atleta é feita através dum formulário que faz uma consulta através do número de inscrição do atleta (1 a 200), mostrado num campo chamado "numAtleta".
Nesse formulário quero uma listbox que mostre todos os ficheiros PDF que se encontram no processo digital de cada atleta. Os respectivos processos digitais estão guardados no seguinte caminho: "C:\ProcessosAtletas\?" em que "?" corresponde a uma pasta nomeada com um número de 1 até 200.

Já tenho a listbox e o código que estou a usar é o seguinte:

Dim strArquivo As String
Dim strCaminho As String
Me!ListaProDig.RowSource = ""
strCaminho = "C:\ProcessosAtletas\" & Me.numAtleta
strArquivo = Dir$(strCaminho & "*")
Do While Len(strArquivo) > 0
Me!ListaProDig.AddItem strArquivo
strArquivo = Dir$()
Loop

Acontece porém que não consigo visualizar nada na listbox. Se tirar a parte do "& Me.numAtleta" e acrescentar no caminho, por exemplo o número 100, vejo todo o processo do atleta número 100. Mas eu quero ver o processo correspondente ao número do atleta que estou a visualizar no formulário.

A segunda parte, tem a ver com a abertura de cada ficheiro PDF que se encontra na pasta do processo. Quero que ao clicar em cima do nome do ficheiro listado na listbox, abra o respectivo PDF.

Alguém tem alguma dica? Obrigado a todos.

Bom dia,

Para uma melhor ajuda posta aqui a tua BD para ver...


Abraço...

Roberto

Obrigado pelo interesse, mas não posso divulgar a BD. Além de ser muito mais complexa do que aquilo que aqui pretendo, contém dados pessoais de atletas que estão protegidos por Lei. Além disso, a Organização da prova pediu-me sigilo e assinei um acordo de confidencialidade.

Se puder ajudar-me e dar-me umas dicas com base na generalidade, eu agradeço.
De qualquer modo, muito obrigado.
Um abraço

Boa tarde,

vou tentar ajuda-lo mesmo sem poder visualizar seu form.....
no código abaixo está um código que uso para poder abrir os PDF directamente pela lista como você quer.
Vai ter que dar uns ajusto para suas necessidades.


Private Sub Lista0_DblClick(Cancel As Integer)
Dim varItem As Variant
If IsNull(Me.Lista0) Then
MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Informação"
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\" & Me.Text11 & "\" & Me.Text13 & "\"
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


Vou tratar do resto...
Abraço...

Para a sua lista ficar preenchida.... eu uso este código..

Private Sub Form_Timer()
Me.Recalc
Dim strArquivo As String
Dim strCaminho As String
Me!Lista0.RowSource = ""
strCaminho = CurrentProject.Path & "\PDF\" & Me.Text11 & "\" & Me.Text13 & "\"
strArquivo = Dir$(strCaminho & "*.pdf")
Do While Len(strArquivo) > 0
Me.Lista0.AddItem strArquivo
strArquivo = Dir$()
Loop
TimerInterval = 0
End Sub

Roberto

Após os ajustes necessários, ficou tudo a funcionar correctamente.
Obrigado pelas dicas. Foram uma grande ajuda.

Muito obrigado mesmo
Um abraço

Boa tarde,

Foi um prazer ter ajudado....

Abraço e disponha sempre...