MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Criar pasta ao criar novo registro

    Caio
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Criar pasta ao criar novo registro Empty [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Caio 18/3/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
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Criar pasta ao criar novo registro Empty Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Gabriel Brunichaki 18/3/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
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Criar pasta ao criar novo registro Empty Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Caio 18/3/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
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Criar pasta ao criar novo registro Empty Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Gabriel Brunichaki 18/3/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
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Criar pasta ao criar novo registro Empty Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Caio 18/3/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
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Criar pasta ao criar novo registro Empty Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Gabriel Brunichaki 18/3/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
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Criar pasta ao criar novo registro Empty Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Caio 21/3/2016, 19:19

    Funcionou, obrigado amigo.

    Aproveitando a oportunidade poderia me ajudar nesse tópico?
    https://www.maximoaccess.com/t25994-abrir-pasta-referente-ao-registro
    Gabriel Brunichaki
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Criar pasta ao criar novo registro Empty Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Gabriel Brunichaki 22/3/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

    Conteúdo patrocinado


    [Resolvido]Criar pasta ao criar novo registro Empty Re: [Resolvido]Criar pasta ao criar novo registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 05:44