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

    [Resolvido]Dúvida para subpastas

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Dúvida para subpastas Empty [Resolvido]Dúvida para subpastas

    Mensagem  baldocchi 28/7/2016, 16:20

    Bom dia/Boa Tarde/Boa Noite a todos.

    Eu tenho um código, em anexo, que lista o conteúdo de um diretório no listbox.
    Eu procurei aqui no fórum mas não consegui encontrar algum tópico que solucione minha dificuldade.

    Eu preciso criar uma pesquisa de arquivos baseado em três parâmetros que o usuário digitar: Parte do Nome; Tipo de Arquivo; Pasta/SubPasta.

    O código é bem pequeno e simples.

    Dim xArquivos As String

    xArquivos = Dir$("c:\*.*")

    While xArquivos <> ""
    xArquivos = Dir$
    lstArquivos.AddItem xArquivos
    Wend

    Me.Requery




    O link para o mdb é: https://www.dropbox.com/s/sqq1talar3ev2yt/Pesquisa%20Documentos.mdb?dl=0


    Fazer com que o VBA pegue o que o usuário digitar no TEXT, eu consigo.

    O que eu não consigo é listar os arquivos numa sub-pasta (sub-diretório) e abri-lo com dois cliques


    Agradeço a todos.
    Anexos
    [Resolvido]Dúvida para subpastas AttachmentPesquisa Documentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 7 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Dúvida para subpastas Empty Dúvida para subpastas

    Mensagem  ahteixeira 28/7/2016, 16:43

    Olá Leandro Baldocchi,
    Não baixei o seu projecto, no entanto veja se link abaixo ajuda.
    Poderia usar uma tabela temporaria para receber os dados e depois poderia criar um form de pesquisa:
    http://www.everythingaccess.com/tutorials.asp?ID=List-files-to-a-table
    Fica a sugestão.
    Abraço


    Última edição por ahteixeira em 9/8/2016, 20:00, editado 1 vez(es)
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Dúvida para subpastas Empty Dúvida para subpastas

    Mensagem  baldocchi 28/7/2016, 17:23

    Muito obrigado, vou teste e te falo
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Dúvida para subpastas Empty Dúvida para subpastas

    Mensagem  baldocchi 8/8/2016, 15:47

    Pessoal, bom dia a todos.

    Desculpem minha burrice, alguns colegas me ajudaram, mas sou muito burro (estou aprendendo, um dia vou melhorar em VBA, prometo).

    Com a ajuda de alguns colegas eu consegui fazer o exemplo em anexo. ou o link: https://www.dropbox.com/s/gbjy1fzmgj4mq0h/Pesquisa%20Documentos.mdb?dl=0

    O que eu não sei fazer são duas coisas:

    1 - Listar os subdiretórios;

    2 - Fazer o loop de pesquisa quando o programa apenas dois arquivos.
    Por exemplo, numa pesquisa em que o usuário digite "teste", por exemplo, e o programa encontre apenas dois arquivos, o resultado é sempre um arquivo.
    Ele não mostra os dois arquivos.

    Se alguém puder ajudar agradeço demais.

    Obrigado desde já.

    Anexos
    [Resolvido]Dúvida para subpastas AttachmentPesquisa Documentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 11 vez(es)
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 17/09/2010

    [Resolvido]Dúvida para subpastas Empty Re: [Resolvido]Dúvida para subpastas

    Mensagem  Pablo Neruda 13/8/2016, 14:38

    Baldocchi, não vou te dar o peixe, vou tentar te ensinar a pescar!!! rsrsr

    Dê uma olhada nesse exemplo....

    https://www.maximoaccess.com/t8749-resolvidoduvida-abrir-aquivo-pdf-dentro-do-access


    .................................................................................
    [Resolvido]Dúvida para subpastas Elohim Elohim Manutenção & Sistemas
    ..............Powered by MS Access with VBA code..............
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Dúvida para subpastas Empty Re: [Resolvido]Dúvida para subpastas

    Mensagem  baldocchi 15/8/2016, 15:34

    Olá Pablo Neruda, bom dia.

    Depois de estudar o exemplo que você deu, e ver outros exemplos que outros colegas deram, eu consegui chegar no exemplo em anexo.

    funciona assim:
    o usuário clica no botão da pasta para selecionar o diretório desejado
    depois, clica em "clique aqui para pesquisar".

    O programa monta a árvore assim:

    \\pasta\subpasta
    arquivo
    arquivo

    \\pasta\subpasta\subpasta
    arquivo
    arquivo
    arquivo
    arquivo




    e assim por diante
    Anexos
    [Resolvido]Dúvida para subpastas AttachmentPesqArquivos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (65 Kb) Baixado 16 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 05/11/2009

    [Resolvido]Dúvida para subpastas Empty Re: [Resolvido]Dúvida para subpastas

    Mensagem  Alexandre Neves 21/8/2016, 18:29

    Boa tarde
    Se já estiver resolvido, marque o Resolvido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Dúvida para subpastas Empty Re: [Resolvido]Dúvida para subpastas

    Mensagem  baldocchi 23/8/2016, 00:41

    Olá,

    ainda não está totalmente resolvido.
    Eu não sei como pesquisar por partes do nome do arquivo.
    Desculpa minha demora, mas estou aprendendo.

    Att

    Leandro
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 05/11/2009

    [Resolvido]Dúvida para subpastas Empty Re: [Resolvido]Dúvida para subpastas

    Mensagem  Alexandre Neves 28/8/2016, 10:08

    Bom dia
    para pesquisar por partes do nome, utilize caracteres coringa (?,*) com o operador like


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Dúvida para subpastas Empty Re: [Resolvido]Dúvida para subpastas

    Mensagem  baldocchi 1/3/2019, 12:32

    tópico resolvido

      Data/hora atual: 25/7/2021, 04:44