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 c/ ID

    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Criar Pasta c/ ID Empty [Resolvido]Criar Pasta c/ ID

    Mensagem  PauloFerreira 21/7/2018, 12:31

    oi amigos gostava de ter mais uma ajuda vossa, pretendia abrir através do access (bd) uma pasta (varias) no mesmo diretório onde se encontra o bd, mas pretendia que esat solicita-se o nome mas guarda-se o ID do Cliente, a ao abrir só abrisse essa pasta com o Id aberto no bd. Obrigado.
    Seria muito útil para o projeto. Obrigado.
    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Criar Pasta c/ ID Empty Re: [Resolvido]Criar Pasta c/ ID

    Mensagem  PauloFerreira 21/7/2018, 13:21

    Oi amigos descobri este código aqui no fórum ( máquina este fórum ), mas ainda terá de ser ajustado, pois pretendia que este solicita-se o nome em vez de dar-lhe logo o nome, o utilizador iria escolher o nome a dar a cada pasta. Se a mesma já existisse, então ai diria pasta já aberta. Como ajustar ? Obrigadão amigos

    Código:
    Private Sub BT_Click()
    On Error Resume Next
    If Len(Dir("C:\Pasta\Pasta", vbDirectory) & "") > 0 Then
      MsgBox "Esta pasta já existe"
    Else
      If Len(Dir("C:\Pasta", vbDirectory) & "") = 0 Then MkDir "C:\Pasta"
      MkDir "C:\Pasta\Pasta"
    End If
    End Sub

    Os créditos do código são do Sr. Avelino.
    avatar
    PauloFerreira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 115
    Registrado : 28/02/2018

    [Resolvido]Criar Pasta c/ ID Empty Re: [Resolvido]Criar Pasta c/ ID

    Mensagem  PauloFerreira 29/7/2018, 12:40

    Irei dar como resolvido este tópico, pois resolvi fazer de uma outra forma esta parte do projeto. Obrigado a todos. Abraços
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Criar Pasta c/ ID Empty Re: [Resolvido]Criar Pasta c/ ID

    Mensagem  Alvaro Teixeira 8/8/2018, 13:52

    Olá Paulo Ferreira,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

    Conteúdo patrocinado


    [Resolvido]Criar Pasta c/ ID Empty Re: [Resolvido]Criar Pasta c/ ID

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 03:20