MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Criar uma pasta com o nome do cliente cadastrado

    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 01/04/2016

    [Resolvido]Criar uma pasta com o nome do cliente cadastrado Empty [Resolvido]Criar uma pasta com o nome do cliente cadastrado

    Mensagem  raijeweb em 17/6/2020, 23:30

    Boa noite a todos
    conto com  voces novamente
    agora a pouco o Alvaro resolveu meu tópico https://www.maximoaccess.com/t38041-resolvidobotao-abrir-o-explorer-do-windows-e-mover-o-foco-para-a-caixa-de-pesquisa#259666

    e nesse mesmo exemplo criei mais um botão
    objetivo caso o cliente se novo após ter cadastrado ele no caso a Tereza é um novo cliente e ainda não pasta quero clicar no botão e criar uma pasta com o nome dela na pasta clientes automaticamente,
    como eu faria, a guardo a solução e vocês
    para isso estou reanexando o arquivo explorer com o botão criado
    Anexos
    [Resolvido]Criar uma pasta com o nome do cliente cadastrado AttachmentExplorer.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 2 vez(es)


    Última edição por raijeweb em 18/6/2020, 15:23, editado 1 vez(es)
    Alyson
    Alyson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 19/06/2016

    [Resolvido]Criar uma pasta com o nome do cliente cadastrado Empty Re: [Resolvido]Criar uma pasta com o nome do cliente cadastrado

    Mensagem  Alyson em 18/6/2020, 14:59

    Seria algo similar a isto?
    Código:
    Dim ConferePasta As String

    ConferePasta = "C:\NOVO"
     
    If Dir(ConferePasta, vbDirectory) = "" Then
     
    MkDir ConferePasta
     
    MsgBox "O diretório: " & ConferePasta & " foi criado!", vbInformation, "AVISO"
     
    End If
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 01/04/2016

    [Resolvido]Criar uma pasta com o nome do cliente cadastrado Empty Re: [Resolvido]Criar uma pasta com o nome do cliente cadastrado

    Mensagem  raijeweb em 18/6/2020, 15:26

    Obrigado Alyson por seu esforço,

    Mas voce não entendeu veja no exemplo em anenxo descompacte na unidade C: aí ao clicar no botão criar pasta seja criado uma pasta com o nome do cliente que está ao lado do botão clicado
    não é simplesmente criar a pasta em branco
    Veja o anexo na mensagem nº 1
    Alyson
    Alyson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 19/06/2016

    [Resolvido]Criar uma pasta com o nome do cliente cadastrado Empty Re: [Resolvido]Criar uma pasta com o nome do cliente cadastrado

    Mensagem  Alyson em 18/6/2020, 15:47

    Raije.
    Baixei seu projeto e fiz o teste com o código que eu enviei.

    Claro que para adaptar ao seu projeto eu mudei algumas coisas para melhor atender.
    Acrescentar em seu projeto:

    Código:
    'Salvar o registro:


    'Verificar se a pasta existe
    Dim ConferePasta As String
    ConferePasta = Application.CurrentProject.Path & "\Clientes" & Me.cliente.Value

    If Dir(ConferePasta, vbDirectory) = "" Then 'Se não existir criar a pasta
        MkDir ConferePasta
        MsgBox "O diretório: " & ConferePasta & " foi criado!", vbInformation, "AVISO"
    Else 'Caso a pasta já exista
        MsgBox "O diretório: " & ConferePasta & " já existe!", vbCritical, "Pasta não criada"
    End If

    Dentro do botão "Comando6" eu coloquei o evento ao clicar e lancei esse código dentro.


    Última edição por Alyson em 18/6/2020, 15:48, editado 1 vez(es) (Razão : Contexto)
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 01/04/2016

    [Resolvido]Criar uma pasta com o nome do cliente cadastrado Empty Re: [Resolvido]Criar uma pasta com o nome do cliente cadastrado

    Mensagem  raijeweb em 18/6/2020, 16:05

    Voce continua a não entender
    por exemplo
    no nome cliente Tereza não tem pasta criada, então ao clicar no botão criar pasta ao lado do nome tereza devererá ser criado a pasta com o nome tereza, se for joão deve-se criar a pasta com o nome joão e assim por diante, não é pra criar uma pasta simples com o nome novo ou nova pasta

    deu pra entender agora?

    Mas valeu seu esforço, tentou ajudar, só que não é assim
    Alyson
    Alyson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 19/06/2016

    [Resolvido]Criar uma pasta com o nome do cliente cadastrado Empty Re: [Resolvido]Criar uma pasta com o nome do cliente cadastrado

    Mensagem  Alyson em 18/6/2020, 16:09

    Uma duvida, você tentou usar o código?


    Para que veja o que estou falando eu mandei o seu projeto com o código incluído...

    Anexos
    [Resolvido]Criar uma pasta com o nome do cliente cadastrado AttachmentExplorer.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 14 vez(es)
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 01/04/2016

    [Resolvido]Criar uma pasta com o nome do cliente cadastrado Empty Re: [Resolvido]Criar uma pasta com o nome do cliente cadastrado

    Mensagem  raijeweb em 18/6/2020, 16:33

    Oi Alyson

    Agora sim, baixei sua modificação e é exatamente isso , deu pra resolver, obrigado

      Data/hora atual: 21/10/2020, 15:39