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]Form abre Pasta Especifica

    avatar
    Convidado
    Convidado


    [Resolvido]Form abre Pasta Especifica Empty [Resolvido]Form abre Pasta Especifica

    Mensagem  Convidado 24/6/2016, 17:01

    boas

    Utilizo este comando para abrir pastas através do Access/Form ( by JPaulo )

    Public Function testShellEXE()
    Shell "C:\WINDOWS\explorer.exe """ & "Users\Projetos" & "", vbNormalFocus
    End Function

    O que eu pretendia era o seguinte
    Uma vez que tenho uma tabela em que um dos campos é o Numero de Cliente e como tenho pastas no Windows com o mesmo Número ( Número Ciente ) pretendia ter um botão que abrir se a pasta respetiva do Cliente que entretanto foi aberto no form...
    Ex
    Cliente 25 - Pasta 25 ao chamar o Cliente 25 no form e ao clicar no botão da ficha do Cliente abri se a pasta 25 no/ do Windows.

    Obrigado
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Form abre Pasta Especifica Empty Re: [Resolvido]Form abre Pasta Especifica

    Mensagem  FabioPaes 24/6/2016, 17:47



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    [Resolvido]Form abre Pasta Especifica Empty Re: [Resolvido]Form abre Pasta Especifica

    Mensagem  =>Nois 24/6/2016, 17:53



    Deve ficar algo assim nobre amigo (não testei)



    Dim PegaNumCliente as double

    PegaNumCliente = me.SeuCampo

    Shell "C:\WINDOWS\explorer.exe """ & "c:\SuaPastaMatriz\" & PegaNumCliente, vbNormalFocus


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    Convidado
    Convidado


    [Resolvido]Form abre Pasta Especifica Empty Re: [Resolvido]Form abre Pasta Especifica

    Mensagem  Convidado 24/6/2016, 22:38

    Grande Fábio seguindo a sua sugestão

    Private Sub btn_Pasta_Click()
    Dim filePath As String
    filePath = "C:\Documentos " & Me.CodigoUtente

    If Len(Dir(filePath, vbDirectory) & "") = 0 Then
    MsgBox "Pasta N/ Encontrada", vbCritical, "Erro!"
    Else
    Shell "explorer " & filePath, vbMaximizedFocus
    End If
    End Sub


    Da sempre erro : Pasta N/ Encontrada

    Se retirar & Me.CodigoUtente abre sempre c:\Documentos

    No outro caso não entendi muito bem Crying or Very sad
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Form abre Pasta Especifica Empty Re: [Resolvido]Form abre Pasta Especifica

    Mensagem  FabioPaes 24/6/2016, 22:53

    Ta faltando uma Barra ali no Local da pasta, alem de um espaço tbem...

    filePath = "C:\Documentos " & Me.CodigoUtente


    Tente assim:
    filePath = "C:\Documentos\" & Me.CodigoUtente


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Convidado
    Convidado


    [Resolvido]Form abre Pasta Especifica Empty Re: [Resolvido]Form abre Pasta Especifica

    Mensagem  Convidado 25/6/2016, 08:49

    Golo ! cheers Brasil...
    Obrigado Fábio esta errando. Obrigado

    Conteúdo patrocinado


    [Resolvido]Form abre Pasta Especifica Empty Re: [Resolvido]Form abre Pasta Especifica

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 14:41