Formulario com documento Anexo

Boa tarde amigos,

Procurei no Repositório de exemplos mas não encontrei nada que pudesse me ajudar. Tenho uma tabela com 03 campos, nome, endereço do arquivo(campo que mostra o caminho do local onde esta armazenado o arquivo no pc) e data. Quero criar um Form que faça a busca por nome e que traga todos os nomes com as respectivas datas e com um icone que representa o arquivo e que quando clicar ele abra o arquivo. No momento da filtragem, se aparecerem 05 nomes que contenham a palavra digitada no campo nome, cada item deve ter o icone do seu respectivo arquivo.

Não entendi muito bem. O que você precisa é clicar no nome do arquivo e abri-lo? Se for isso, veja aqui.

Boa tarde, mrgmonz
Adapte
Declare Function ShellExecute Lib "SHELL32.DLL" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

'Global Const SW_SHOWNORMAL = 1

Function AbrirDoc(NomeDocumento As String, Optional imprimir As Boolean)
On Error GoTo AbrirDoc_Error

If imprimir Then
AbrirDoc = ShellExecute(0, "Print", NomeDocumento, vbNullString, "", SW_ShowNormal)
Else
AbrirDoc = ShellExecute(Application.hWndAccessApp, "Open", NomeDocumento, "", "C:\", SW_ShowNormal)
End If
ExitFunction:
Exit Function

AbrirDoc_Error:
MsgBox "Error: " & err & " " & Error
GoTo ExitFunction
End Function

Obrigado pelo retorno Mestres Criquio e Alexandre,

Mestre Criquio, a intenção é que no form apareça a relação dos itens filtrados e um "icone" para cada linha representando o arquivo que sera aberto ao clicar no mesmo. Na listagem aparecerá apenas o nome, a data e o icone (não vai aparecer o nome do arquivo com o mapeamento do caminho onde o mesmo esta armazenado). S

Mestre Alexandre, onde tenho q adaptar este codigo?

Muito obrigado

Amigos Mestres, estou usando o codigo abaixo para executar um relatorio no comando duplo clique, no entanto, tenho uma coluna na tabela que traz o endereço de um arquivo (ende_arquivo) e queria que ao clicar por duas vezes que esse arquivo fosse aberto fora do access mesmo, por exemplo, se for arquivo pdf, ao clicar duas vezes ele abre o pdf. A dificuldade é que não sei se existe um comando para colocar no codigo que execute essa função.

Private Sub Lista_DblClick(Cancel As Integer)
If IsNull(Me!Lista.Column(0)) Then Exit Sub
DoCmd.OpenReport "rltPedidos", acViewPreview, , "ID =" & Me!Lista.Column(0)
DoCmd.Maximize
End Sub

Explicando melhor:

Na tabela
NOME DO ARQUIVO, DATA, ENDE_ARQUIVO
Folha de Pagamento, 01/10/2012, c:\meus documentos\pagamentosmaio.doc
Folha de Faltas, 01/10/2012, c:\meusdocumentos\faltasmaio.xls

No form
Tenho um list box que lista todos os registros salvos na tabela, com uma função de busca por filtro, sendo que no form somente é exibida a data e o nome do arquivo

DATA-------|----NOME DO ARQUIVO
------------------------------------
01/10/2012-|----Folha de Pagamento
------------------------------------
01/10/2012-|----Folha de Faltas

Com o codigo apresentado na mensagem anterior, se eu der 02 clicks sobre qualquer uma das linhas, eu executo o relatorio em access que esta configurado para trazer as informações de cadastro. Mas o que eu preciso é uma opção para abrir o arquivo (fora do access) de acordo com o que esta mapeado no campo ende_arquivo. Se tiver outra opção que não seja por 02 clicks, acho que pode resolver tambem. Aguardo a ajuda dos mestres!