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


4 participantes

    [Resolvido]Abre pasta caminho BE

    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Abre pasta caminho BE Empty [Resolvido]Abre pasta caminho BE

    Mensagem  PauloFerreira 21/7/2018, 21:52

    Oi companheiros de "Guerra", preciso uma vez mais de um Help ! Com o seguinte código abro uma pasta no Explorer, mas pretendia mesmo era, abrir as pastas que estão no mesmo diretório do BE.

    Código:
    Private Sub Abrepasta_Click()
    Shell "explorer.exe " & Me.txtNomePasta, vbMaximizedFocus
    End Sub

    Obrigado a todos…
    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  PauloFerreira 22/7/2018, 10:26

    Amigos irei deixar um pequeno exemplo e por onde ando, ainda sem êxito ! Obrigado companheiros.

    Como disse deixaria por onde ando sem êxito ( Shell CurrentProject.Path & Me.txtNOME, vbMaximizedFocus )
    Anexos
    [Resolvido]Abre pasta caminho BE AttachmentExemploAbrePasta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 22 vez(es)
    avatar
    delsonk
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 203
    Registrado : 26/11/2013

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  delsonk 22/7/2018, 12:04

    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  PauloFerreira 22/7/2018, 12:31

    Amigo valeu na dica, mas não atende ao pretendido se ver o código que se encontra no botão open, é esse mesmo que o Sr. Criquio disponibilizou nesse exemplo. Só não era essa a ideia, seria mais abrir a pasta que se encontra no diretório do bd (_be)… mas obrigado.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  Alexandre Neves 22/7/2018, 22:55

    Boa noite

    Fiz-lhe este código
    Código:
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim fso As FileSystemObject, CP As Folder, P As Folder
        Set fso = New FileSystemObject
        Set CP = fso.GetFolder(CurrentProject.Path)
        For Each P In CP.SubFolders
            shell "explorer.exe " & P, vbMaximizedFocus
        Next


    .................................................................................
    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
    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  PauloFerreira 23/7/2018, 18:02

    Obrigado Sr. Alexandre, mas ao colocar no botão open, da o seguinte erro

    Erro de compilação
    O tipo de compilação pelo usuário, não foi definido


    E marca a linha fso As FileSystemObject

    Como fazer ? Obrigado abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  Alvaro Teixeira 23/7/2018, 22:40

    Olá a todos,

    Paulo, edite o código, vá a referências a ative "Microsoft Scripting Runtime"

    cheers
    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  PauloFerreira 24/7/2018, 11:05

    Oi amigos, Teixeira, após ativar as referencias - Operacional. Sr. Alexandre o código esta operacional, muito obrigado, mas para ser mais que perfeito seria abrir a pasta com o nome que digitamos no campo txtNome, tentei pelo lado de colocar Me!txtNome, mas sem êxito. Se não for possível, assim resolve. Da outra forma estaria mais que perfeito.
    No entanto obrigado os dois...
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  Alvaro Teixeira 24/7/2018, 11:25

    Olá a todos,

    Paulo, mostre o código de como está a fazer.
    Diga onde se pode obter o caminho do BE e o nome já sabemso que é o me.txtNome

    Exemplifique também o caminho completo.

    Abraço


    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  PauloFerreira 24/7/2018, 16:45

    Ok, amigo Teixeira, irei deixar um exemplo onde estou a trabalhar, antes de fechar no projeto/ App. O Código abre direitinho o caminho do projecto, apenas não abre a pasta respetiva, ou seja, GarantiaID1234. Amigo no exemplo no botão open esta lá o código.
    O caminho no futuro será algo tipo \\Servidor\C\App mas como disse o código abre direitinho o caminho do projeto.
    Abraço e obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  Alexandre Neves 25/7/2018, 17:30

    Boa tarde,
    Não entendi a última pretensão. Exemplifique


    .................................................................................
    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
    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  PauloFerreira 26/7/2018, 18:10

    Oi Sr. Alexandre, o que pretendo é o seguinte, tenho um campo no form, que tem o nome de txtNOME, neste campo coloco o nome da pasta que pretendo abrir e ao clicar no botão open abria só esta pasta, e não todas como esta a fazer. Caso não de, assim já não esta mau.
    Obrigado

    Amigo Teixeira, esqueci-me de te deixar o form como tinha dito no Post anterior… Lapso. Deixo agora. Obrigado
    Anexos
    [Resolvido]Abre pasta caminho BE Attachmentabre.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 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 : 8498
    Registrado : 05/11/2009

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  Alexandre Neves 26/7/2018, 18:53

    Boa tarde,
    Veja
    Código:
        Dim fso As FileSystemObject
       
        If Len("" & txtNOME) = 0 Then Exit Sub
       
        Set fso = New FileSystemObject
        If fso.FolderExists(CurrentProject.Path & "\" & txtNOME) Then
            Shell "explorer.exe " & CurrentProject.Path & "\" & txtNOME, vbMaximizedFocus
        End If


    .................................................................................
    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
    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  PauloFerreira 26/7/2018, 19:59

    Ui… corretíssimo ! Muito bom mesmo. Obrigado… muito obrigado Sr. Alexandre.
    Um abraço ao Teixeira também. Obrigado amigo.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  Alvaro Teixeira 26/7/2018, 22:19

    Olá a todos,

    Paulo Ferreira, obrigado pelo retorno, ó fórum agradece.

    cheers

    Conteúdo patrocinado


    [Resolvido]Abre pasta caminho BE Empty Re: [Resolvido]Abre pasta caminho BE

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:12