[Resolvido]Localizar pasta e abrir filtrada por documento interno da pasta

Caros,
Gostaria de um maneira de ao clicar em um campo código no meu form folha de dados, que localizasse uma pasta no mesmo diretorio aonde está me banco de dados (exemplo: CurrentProject.Path & "\NomeDaPasta") porém já filtrando o arquivo que está dentro desse pasta filtrada pelo campo código que possui o mesmo nome do arquivo do campo do meu form.

Grato

Olá Hilkias,

Pode usar o FileDialog, não falta exemplos no forum, veja como fazer uma "Busca":
https://www.maximoaccess.com/t1115-busca-no-forum-search

Por exemplo, veja na mensagem nr. 14 deste tópico faz para PDF:
https://www.maximoaccess.com/t33735-pdf-inserir-e-abrir

Abraço

O que eu quero é muito simples pra vcs, Abrir um link de uma pasta que está gravado num campo, isso eu já sei como fazer.

Dim strCaminho As String, strPastaInicial As String
   strPastaInicial = CurrentProject.Path & "\NomedaPasta"
    strCaminho = Buscar(Me.hwnd, "Inserir Doc", strPastaInicial, _
     "Arquivos gráficos (*.*)" & vbNullChar & "*.*")
          Me.MeuCampodoForm = strCaminho

após a pasta aberta gostaria de filtrar o arquivo automaticamente com um campo que tem o mesmo nome de um arquivo do meu form


exemplo: MeuCampodoForm =Hu234   >>>>       arquivo dentro da pasta localizada e aberta = Hu234.pdf

Olá Hilkias,

Filtrar na pasta nativa do Windows, eu desconheço.
Mas qual é a ideia de abrir a pasta e mostrar o ficheiro selecionado? É para depois abrir ou selecionar o ficheiro?

Abraço

Caro Teixeira,

É para guardar o caminho do registro do Form relativo ao arquivo que está dentro dessa pasta.

Exemplo: a Pasta possue dentro vários boletos e eu quero guardar somente um especifico para visualizar no campo que guardará esse caminho em cada registro.


A pasta eu consigo abrir por código, porém aparece muitos Boletos(pdf) e eu preciso digitar na janela de pesquisa que abre, o código do boleto correspondente

O que eu queria é que esse código fosse colocado automaticamente no campo de pesquisa da janela que se abre sem precisar da digitação.


ou seja abir a pasta do diretorio fitrado pelo código e depois clicar nesse boleto.pdf para guardar o caminho


Grato

Olá Hilkias,

Se voce sabe o numero do boleto é posssivel.
Uma vez que quer o caminho onde esta a executar o projeto, nem precisa que o utilizador vá escolher.

Será só montar o caminho completo.

Abraço

Teixeira

1) Fiz o que você falou, montei o diretorio completo com extensão ".pdf" em um campo por codigo na "Fonte de Controle" de um campo Caixa de Texto:

Na linha "Fonte de Controle" coloquei assim: =[CurrentProject].[Path] & "\Boletos" & "\" & [CodNumD] & ".jpeg"
O Caminho do Documento assim >>>>> C:\Pagamentos\Boletos\15273_Bol.pdf >>>> o qual foi armazenado em um campo que chamei de "Endereço"

2) Depois para visualizar

Application.FollowHyperlink stArquivo ' Visualizar anexo onde stArquivo tem o caminho completo do campo " Endereço".

Mas a visualisação só funciona para arquivos PDF para outros arquivos de imagem não, (ex: Jpg, jpeg ) mesmo colocando o outro tipo de extensão no caminho completo. Mensagem de erro "Erro em tempo de execução 490" Não é possivel abrir o arquivo especificado"

Como fazer isso para visualizar vários tipos de arquivos de extensão diferentes?

Pode me ajudar?

Grato

Olá Hilkias,

Possivelmente não tem programa associado para as outras extensões.
Se quiser facilitar pode usar o controle webrowser, veja este exemplo
https://www.maximoaccess.com/t26904-webbrowser-controle-navegador
... e coloque o caminho completo das imagens e teste.

Abraço

Teixeira

Com poucas linhas funciona que é uma beleza para URL e também link de pasta, porém só abre o documento se colocar o tipo de extensão por escrito (Ex. PDF, Jpg, ...) mas é muito bom.


Eu consegui resolver o meu caso anexando o caminho montado automaticamente usando os campos do form continuo e gravando ente link em um campo para ser visto depois ao clicar nesse campo.

1) Para anexar e ver o documento logo ao anexar o Caminho( Qualquer Extensão)

Dim appDialog As FileDialog
Dim stFile As String
Dim stCaminho As String

stCaminho = Me.Texto355 ' Campo texto que fica com o caminho que é montado automaticamente com os campos sem a extensão do arquivo (EX. Fonte de Controle =[CodNum] & "_Comp_" & [NomeCredor])
Set appDialog = Application.FileDialog(msoFileDialogFilePicker)

With appDialog
.AllowMultiSelect = False
.Title = "Anexar Documento"
.InitialView = msoFileDialogViewDetails
.InitialFileName = CurrentProject.Path & "\2022_Bol_Comp\" & stCaminho
.Filters.Clear
.Filters.Add "Todos Tipos de Arquivos", "*.*"
.Show
End With
If appDialog.SelectedItems.Count < 1 Then
MsgBox "Nenhum arquivo selecionado", vbExclamation, "Aviso:"
Exit Sub
Else
stFile = appDialog.SelectedItems(1)
End If
Me.CaminhoBol = stFile
Application.FollowHyperlink Me.CaminhoBol ' Visualizar anexo




Com essa aplicação app.Dialog funcionou para qq extensão
Mas o seu exemplo Humilhou

Como mudo o status desse topico como Resolvido?

Olá Hilkias,

Fico feliz por ter conseguido resolver.
O fórum agradece ter partilhado a solução.

Quanto ao tópico como Resolvido, veja como é efetuado:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Teixeira

Obrigado pela sua atenção
Sucesso a todos

Abraços