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

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

    avatar
    hilfabfeb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/12/2013

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

    Mensagem  hilfabfeb 8/6/2022, 15:27

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 9/6/2022, 11:00

    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


    avatar
    hilfabfeb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/12/2013

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

    Mensagem  hilfabfeb 10/6/2022, 01:20

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 10/6/2022, 08:20

    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
    avatar
    hilfabfeb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/12/2013

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

    Mensagem  hilfabfeb 10/6/2022, 14:47

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 10/6/2022, 16:14

    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
    avatar
    hilfabfeb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/12/2013

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

    Mensagem  hilfabfeb 12/6/2022, 12:47

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 13/6/2022, 22:40

    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

    hilfabfeb gosta desta mensagem

    avatar
    hilfabfeb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/12/2013

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

    Mensagem  hilfabfeb 14/6/2022, 21:20

    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

    hilfabfeb gosta desta mensagem

    avatar
    hilfabfeb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/12/2013

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

    Mensagem  hilfabfeb 24/6/2022, 00:48

    Como mudo o status desse topico como Resolvido?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 25/6/2022, 17:18

    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
    avatar
    hilfabfeb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/12/2013

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

    Mensagem  hilfabfeb 25/6/2022, 21:06

    Teixeira

    Obrigado pela sua atenção
    Sucesso a todos
    avatar
    hilfabfeb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 15/12/2013

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

    Mensagem  hilfabfeb 25/6/2022, 21:12

    Abraços
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 25/6/2022, 22:14

    cheers

      Data/hora atual: 3/7/2022, 10:07