Criar pasta ao cadastrar cliente VBA

[pkrx]

Pessoal, estou criando um projeto e travei no finalzinho.

 

Quero fazer duas funções.

A primeira é toda vez que o cliente se cadastrar no formulário normalmente, é criada uma pasta em um diretório que esta no disco C nomeada com o ID do cliente.

E depois eu tenho um botão no formulário de consultar clientes, que ele abre esse diretório que esta no disco C, mas não consigo puxar o ID do cliente para o final do diretório, para abrir a pasta do cliente quando ele for selecionado.

[Alyson Ronnan Martins]

VBA orginal ou esta usando o Excel (em VBA)

[pkrx]

 

  Em 10/06/2018 em 01:24, Alyson Ronnan Martins disse:

VBA orginal ou esta usando o Excel (em VBA)

Expand  

Estou usando em Access, porque vai ser uma ferramenta de um departamento, e precisa ter continuidade. Em php eu sei fazer, mas no access não consegui. nessa print não esta o botão de abrir a pasta, mas ele esta em Shell. Porem, usarei qualquer solução, desde que abra a pasta puxando o ID do Cliente selecionado, e crie essa pasta no cadastro dele. 

Editado Junho 10, 2018 por pkrx

[Alyson Ronnan Martins]

Tente usa o seguinte comnado:

MkDir (CurrentProject.Path & "\Seucliente")

MkDir (CurrentProject.Path & "\Seucliente")

 

[pkrx]

  Em 10/06/2018 em 01:31, Alyson Ronnan Martins disse:

Tente usa o seguinte comnado:

MkDir (CurrentProject.Path & "\Seucliente")

MkDir (CurrentProject.Path & "\Seucliente")

Então, mas como eu coloco a variável ID do cliente ai no "Seucliente" ?

Expand  

 

[Alyson Ronnan Martins]

O ID esta dentro do seu formulário correto?

para pegar ele basta coloca (Nome do seu formulário) ! (Nome do campo aonde ID): Frm_Cadastro!ID.value nesse código.

[pkrx]

Para abrir a pasta eu estou usando:

Private Sub BtnAbrirPasta_Click()
   Call ShellExecute(0&, "open", CurrentProject.Path & "\Clientes\$Variavel?", "", "", 1)
End Sub

ai no $Variavel? eu preciso colocar a variável que vai puxar o id do cliente que esta selecionado no formulário. essa mesma deve ir ali no "Seucliente", se não, o valor sempre sera fixo, tanto na criação da pasta quanto depois pra abrir a mesma. nessa pasta serão guardadas prints com evidencias de cada cliente, por isso elas devem ser abertas individualmente.

  Em 10/06/2018 em 01:40, Alyson Ronnan Martins disse:

O ID esta dentro do seu formulário correto?

para pegar ele basta coloca (Nome do seu formulário) ! (Nome do campo aonde ID): Frm_Cadastro!ID.value nesse código.

Expand  

o nome do formulário é 2x? Não seria primeiro o nome do banco de dados, depois o nome da coluna e ai o formulário?

Tbl_ClientesSorteados!ID:Frm_Cadastro!ID.value ?

E como eu chamo ele na linha de criar a pasta e abrir a pasta?

Editado Junho 10, 2018 por pkrx

[Alyson Ronnan Martins]

Qual o campo de seu "ID" dentro do Formulário?

O nome do Campo.

Editado Junho 10, 2018 por Alyson Ronnan Martins

[pkrx]

  Em 10/06/2018 em 01:52, Alyson Ronnan Martins disse:

Qual o campo de seu "ID" dentro do Formulário?

O nome do Campo.

 

Expand  

é ID mesmo.

Editado Junho 10, 2018 por pkrx

[Alyson Ronnan Martins]

Considerando que as pastas de seus clientes estão Criadas dentro "C:/"

Shell "C:\WINDOWS\explorer.exe """ & "C:\" & Frm_Cadastro2!ID.value & "", vbNormalFocus

 

[pkrx]

  Em 10/06/2018 em 02:03, Alyson Ronnan Martins disse:

Considerando que as pastas de seus clientes estão Criadas dentro "C:/"

Shell "C:\WINDOWS\explorer.exe """ & "C:\" & Frm_Cadastro2!ID.value & "", vbNormalFocus

 

Expand  

Deu o seguinte erro:

[Alyson Ronnan Martins]

Você esta certo eu tentei fazer o que tinha escrito e realmente deu erro.

Dim Abrindo
Abrindo = Shell("C:\WINDOWS\explorer.exe C:\" & Form_Frm_Cadastro2.ID.Value & "\", vbMaximizedFocus)

para sanar a duvida de abrir a pasta eu fiz uma simulação aqui para ver se realmente estava abrindo e abriu corretamente (no meu teste)

Estou colocando em anexo o arquivo Access que fiz a simulação.
Obs.: Não coloquei o código de criar pasta e nem de verificar se a pasta existe.

Link google drive: https://drive.google.com/open?id=1zhmIMqtF4j9bR7PTDw712Sz60UZUjhKq

Editado Junho 10, 2018 por Alyson Ronnan Martins

[pkrx]

  Em 10/06/2018 em 02:27, Alyson Ronnan Martins disse:

Você esta certo eu tentei fazer o que tinha escrito e realmente deu erro.

Dim Abrindo
Abrindo = Shell("C:\WINDOWS\explorer.exe C:\" & Form_Frm_Cadastro2.ID.Value & "\", vbMaximizedFocus)

para sanar a duvida de abrir a pasta eu fiz uma simulação aqui para ver se realmente estava abrindo e abriu corretamente (no meu teste)

Estou colocando em anexo o arquivo Access que fiz a simulação.
Obs.: Não coloquei o código de criar pasta e nem de verificar se a pasta existe.

Link google drive: https://drive.google.com/open?id=1zhmIMqtF4j9bR7PTDw712Sz60UZUjhKq

Expand  

Cara funcionou muito bem, obrigado pela ajuda, você é 10.

 

Esse botao que você colocou ai pra criar, qual funcao caberia nele?

Algo assim? 

Private Sub Comando5_Click()
Dim Criando
Criando = MkDir(CurrentProject.Path & "C:\" & Form_Frm_Cadastro2.ID.Value & "")
End Sub

 

[Alyson Ronnan Martins]

  Em 10/06/2018 em 02:52, pkrx disse:

Cara funcionou muito bem, obrigado pela ajuda, você é 10.

 

Esse botao que você colocou ai pra criar, qual funcao caberia nele?

Algo assim? 

Private Sub Comando5_Click()
Dim Criando
Criando = MkDir(CurrentProject.Path & "C:\" & Form_Frm_Cadastro2.ID.Value & "")
End Sub

 

Expand  

Melhor maneira ficaria:

Dim LocalPasta  As String
LocalPasta = "C:\" & Form_Frm_Cadastro2.ID.Value
MkDir (LocalPasta)

 

[pkrx]

  Em 10/06/2018 em 02:55, Alyson Ronnan Martins disse:

Melhor maneira ficaria:

Dim LocalPasta  As String
LocalPasta = "C:\" & Form_Frm_Cadastro2.ID.Value
MkDir (LocalPasta)

 

Expand  

Muito bom, você manja muito de VBA, obrigado pela ajuda, foi de grande valia.

 

Vou tentar colocar essa função de criar a pasta em 2 momentos, o primeiro no botao de cadastro de cliente, que aparentemente é fácil, só colocar esse código que você escreveu no final do botão salvar, que seria o cadastrar, e a segunda função vai ser criar um botão que faça uma verificação no banco de dados e crie no diretório todas as pastas que ainda não existem la, e que tem o numero de ID no bd. Essa é mais difícil né?!

 

Ou eu posso resolver isso colocar essas duas funções no botão que vai abrir a pasta, primeira cria e depois abre.

Editado Junho 10, 2018 por pkrx

[Alyson Ronnan Martins]

Agora fiquei boiando na sua ultima informação.

[pkrx]

  Em 10/06/2018 em 03:13, Alyson Ronnan Martins disse:

Agora fiquei boiando na sua ultima informação.

Expand  

Eu só juntei as duas informações no mesmo botão, primeiro ele cria a pasta ao clicar no botão e logo em seguida ele abre.

 

Muito bom cara, obrigado pela ajuda, você foi 10.

[Alyson Ronnan Martins]

Fiz tudo em um botão só kkk acho que estou muito enferrujado kkkk
Olha ai:

Dim Programa As String
Dim LocalPasta  As String
Dim cmdShell As String
Dim Abrindo As String

Programa = "C:\WINDOWS\explorer.exe "
LocalPasta = "C:\" & Form_Frm_Cadastro2.ID.Value
cmdShell = Programa & LocalPasta & "\"

If Dir(LocalPasta, vbDirectory) = "" Then
MkDir (LocalPasta)
MsgBox "Pasta criada." & Chr(10) & _
       "Aperte no botão novamente.", vbInformation, "Aviso"
Else
Abrindo = Shell(cmdShell, vbMaximizedFocus)
End If

 

Você pode mudar o msgbox pelo comando "abrindo" para abrir direto sem exibir mensagem.

Você pode mudar o msgbox pelo comando "abrindo" para abrir direto sem exibir mensagem.

[pkrx]

  Em 10/06/2018 em 03:24, Alyson Ronnan Martins disse:

Fiz tudo em um botão só kkk acho que estou muito enferrujado kkkk
Olha ai:

Dim Programa As String
Dim LocalPasta  As String
Dim cmdShell As String
Dim Abrindo As String

Programa = "C:\WINDOWS\explorer.exe "
LocalPasta = "C:\" & Form_Frm_Cadastro2.ID.Value
cmdShell = Programa & LocalPasta & "\"

If Dir(LocalPasta, vbDirectory) = "" Then
MkDir (LocalPasta)
MsgBox "Pasta criada." & Chr(10) & _
       "Aperte no botão novamente.", vbInformation, "Aviso"
Else
Abrindo = Shell(cmdShell, vbMaximizedFocus)
End If

 

Você pode mudar o msgbox pelo comando "abrindo" para abrir direto sem exibir mensagem.

Você pode mudar o msgbox pelo comando "abrindo" para abrir direto sem exibir mensagem.

Expand  

Usei aqui, funcionou também, valeu pela ajuda cara. você é 10!

[pkrx]

  Em 10/06/2018 em 03:13, Alyson Ronnan Martins disse:

Agora fiquei boiando na sua ultima informação.

Expand  

Alyson, eu fiz o projeto com esses codigos que você me ajudou, mas quando eu salvo ele como ACCDE, os botoes param de funcionar.

Você sabe me explicar o motivo? Preciso que os usuários não consigam fazer edições.

[Alyson Ronnan Martins]

Ele gera algum erro ou simplesmente para?

Se o código for executado em VBA para salvar da para marcar a linha no VBA em vermelho (f9).ai me fala o que aconteceu. 

[pkrx]

 

  Em 21/06/2018 em 13:49, Alyson Ronnan Martins disse:

Ele gera algum erro ou simplesmente para?

Se o código for executado em VBA para salvar da para marcar a linha no VBA em vermelho (f9).ai me fala o que aconteceu. 

Expand  

ele simplesmente não abre a pasta, não acontece nada em especifico.

[Alyson Ronnan Martins]

Eu não sei o que pode astar acontecendo. Mais já vi algo parecido em excel aonde ele apresenta um erro por alguns "dim" não estarem sendo declaradas.

Outra coisa que pode causar isso é segurança da rede, seu banco esta no pc ou na rede? Se estiver na rede coloca na sua maquina para ver se funciona.