MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Criar pasta de um cliente

    avatar
    cantu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 24/03/2012

    [Resolvido]Criar pasta de um cliente Empty [Resolvido]Criar pasta de um cliente

    Mensagem  cantu em 4/12/2019, 14:32

    Tenho um formulário que entre outros tem 2 botões: Processo e Salvar

    Pretendo que ao fazer um novo registo e carregar no botão salvar ele salve o cliente e crie uma pasta com o nome desse cliente

    Exemplo:

    Cliente1: Margarida Silva Andrade
    Cliente2: José Manuel Gomes Brito

    Salvar >>>> Salva o cliente e cria uma pasta >>> C:\....\....\DOCS\Margarida Silva Andrade
    Salvar >>>> Salva o cliente e cria uma pasta >>> C:\....\....\DOCS\José Manuel Gomes Brito
    ...
    ....
    etc.....

    Ao carregar em Processo dentro do formulário do cliente vai para a sua pasta
    Anexos
    [Resolvido]Criar pasta de um cliente AttachmentDOC1.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (65 Kb) Baixado 11 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 22/11/2016

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  DamascenoJr. em 4/12/2019, 20:57

    Código:
    FileSystem.MkDir("C:\....\....\DOCS\Margarida Silva Andrade")
    FileSystem.MkDir("C:\....\....\DOCS\José Manuel Gomes Brito")


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    cantu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 24/03/2012

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  cantu em 12/12/2019, 13:20

    Obrigado pela resposta.
    A solução que apresenta não resolve.
    Tenho um formulário e um botão "Salvar" que salva o cliente e ao mesmo tempo cria uma pasta com o nome desse cliente. Tenho um código Vba mas ele cria uma pasta só com o primeiro registo...
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4634
    Registrado : 20/04/2011

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  Silvio em 12/12/2019, 13:47

    Bom dia.

    Talvez ajude o colega..

    É só adaptar ao teu projeto.

    https://www.maximoaccess.com/t14756-resolvidocriar-diretorio-verificar-se-existe


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    cantu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 24/03/2012

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  cantu em 17/12/2019, 14:41

    Já experimentei e continua a não resultar

    Quando registo um novo cliente e carrego em salvar, só salva com o nome do primeiro registo (COD_UTENTE)

    Estou a utilizar o seguinte código:

    Código:
    Private Sub BtnSalvar_Click()

       Dim Programa As String
       Dim LocalPasta  As String
       Dim cmdShell As String
       Dim Abrindo As String
       
       Programa = "C:\WINDOWS\explorer.exe "
       LocalPasta = "C:\Users\hmconpneumoenf\Desktop\DOCS\UTENTES\" & Form_FRM_UTENTES.NOME.Value
       cmdShell = Programa & LocalPasta & "\"
       
       If Dir(LocalPasta, vbDirectory) = "" Then
       MKDIR (LocalPasta)
       MsgBox "PASTA CRIADA!" & Chr(10), vbInformation, "AVISO"
       Else
       End If
       End Sub
    O que pretendo é cada vez que faço um registo e salvo cria uma pasta em "C:\Users\hmconpneumoenf\Desktop\DOCS\UTENTES\" com o nome do cliente registado.

    O formulário FRM_UTENTES tem todos os campos da tabela TB01_UTENTES excepto o COD_UTENTE que é a chave e numeração automática.
    Anexos
    [Resolvido]Criar pasta de um cliente AttachmentDoc1.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (335 Kb) Baixado 4 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 22/11/2016

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  DamascenoJr. em 17/12/2019, 20:37

    Sugiro enviar a parte do seu projeto com esta função para melhor análise. Tire uma cópia do arquivo, exclua os demais objetos não envolvidos e anexe aqui.

    Em tempo, deixo um exemplo totalmente funcional para você adaptar e verificar o que pode estar errado em seu projeto.
    Anexos
    [Resolvido]Criar pasta de um cliente AttachmentCriadorPastas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 19 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    cantu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 24/03/2012

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  cantu em 18/12/2019, 14:54

    Se quiser que mande mesmo o ficheiro do access por fazer envie seu mail

    Meu mail é: [removido]
    avatar
    cantu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 24/03/2012

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  cantu em 18/12/2019, 14:58

    Segue o ficheiro..
    Desde já obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 22/11/2016

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  DamascenoJr. em 20/12/2019, 02:55

    Troque
    Código:
    LocalPasta = "C:\Users\hmconpneumoenf\Desktop\CRTMTJ\UTENTES\" & Form_FRM_UTENTES.NOME.Value

    Por
    Código:
    LocalPasta = "C:\Users\hmconpneumoenf\Desktop\CRTMTJ\UTENTES\" & Form_FRM_UTENTES.TxtNome.Value


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    cantu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 24/03/2012

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  cantu em 20/12/2019, 09:39

    SUCESSO!!!!

    Muito obrigado pela ajuda, afinal era tão simples

    Cumprimentos
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  ahteixeira em 20/12/2019, 10:53

    Olá a todos,

    Alberto Rodrigues, que bom que resolveu!

    Não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço
    avatar
    cantu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 24/03/2012

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  cantu em 20/12/2019, 10:59

    Resolvido
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  ahteixeira em 20/12/2019, 11:06

    cheers
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 22/11/2016

    [Resolvido]Criar pasta de um cliente Empty Re: [Resolvido]Criar pasta de um cliente

    Mensagem  DamascenoJr. em 21/12/2019, 01:45

    cheers

    Agradecemos o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 25/11/2020, 02:51