[Resolvido]Criar pasta de um cliente

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

Código:

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

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...

Bom dia.

Talvez ajude o colega..

É só adaptar ao teu projeto.

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

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.

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.

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

Meu mail é: [removido]

Segue o ficheiro..
Desde já obrigado

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

SUCESSO!!!!

Muito obrigado pela ajuda, afinal era tão simples

Cumprimentos

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

Resolvido

Agradecemos o retorno. Sucesso.