MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Criar pasta ao criar novo registro

    Compartilhe

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Caio em Sex 18 Mar 2016, 19:12

    Boa tarde gênios.
    Bom, tenho um formulário que é responsável por criar ações, e cada uma dessa ações necessita de uma pasta no windows!
    Precisava que ao criar uma ação nova, criasse uma pasta com o nome Ação e o número da ação. ex:

    exemplo de pasta: Ação 1095

    Obs: Preciso que busque somente o número da ação no formulário, que é gerado automaticamente a cada registro, por padrão ficaria Ação + (Número da tarefa).

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Gabriel Brunichaki em Sex 18 Mar 2016, 19:20

    Boa tarde!

    FileSystem.MkDir "c:\CaminhoDasPastas\Ação " & Me.CampoNumeroAcao


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Caio em Sex 18 Mar 2016, 19:56

    Isso mesmo, amigo...
    Porém quando tem uma pasta com o mesmo nome o access me dá um erro de linha de código, não teria aparecer uma caixa de mensagem falando que já existe uma pasta com aquele mesmo nome?

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Gabriel Brunichaki em Sex 18 Mar 2016, 20:12

    Ah, sim

    Tente isso:

    Private Sub SeuBotao_Click()

    If Len(Dir("C:\SuasPastas\Ação " & Me.CampoNumeroAcao, vbDirectory) & "") > 0 Then
       MsgBox "A pasta já existe!"
    Else
       If Len(Dir("C:\SuasPastas", vbDirectory) & "") = 0 Then
       FileSystem.MkDir "C:\SuasPastas"
       FileSystem.MkDir "C:\SuasPastas\Ação " & Me.CampoNumeroAcao"
       MsgBox "Criado com sucesso!"
    End If
    End If

    End Sub



    Não sei como está a sua estrutura de pastas, mas acho que já dá uma luz.


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Caio em Sex 18 Mar 2016, 20:24

    Onde está só "Caminho" é pra ficar assim ou colocar o link da pasta?

    Colei o link da pasta somente onde está pedindo no código, e ele não exibe o erro de código e nem a caixa de mensagem, ou seja...Quando tem-se uma pasta repetida o código não cria outra e não avisa que já existe uma.

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Gabriel Brunichaki em Sex 18 Mar 2016, 20:27

    Editei a mensagem acima.
    Testei aqui e funcionou... Vê aí


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Caio em Seg 21 Mar 2016, 19:19

    Funcionou, obrigado amigo.

    Aproveitando a oportunidade poderia me ajudar nesse tópico?
    [Você precisa estar registrado e conectado para ver este link.]

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Gabriel Brunichaki em Ter 22 Mar 2016, 15:01

    Nada! Feliz em poder ajudar


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

      Data/hora atual: Sab 03 Dez 2016, 02:26