MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 10 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1351
    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 : 4555
    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 3 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1351
    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 12 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 : 1351
    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 : 6538
    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 : 6538
    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 : 1351
    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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/2/2020, 21:27