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


4 participantes

    [Resolvido]Colocar arquivo na pasta do sistema

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 12/6/2019, 20:46

    Meus amigos boa tarde.
    tenho um sistema aqui que anexa os arquivos , mas queria que copie o documento para dentro dele.
    naveguei no fórum emas não consegui ajustar .
    poderia me ajudar


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  Marcelo David 12/6/2019, 21:07

    Boa tarde,
    para dentro de quê?


    .................................................................................
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Colocar arquivo na pasta do sistema Marcel11
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 13/6/2019, 12:54

    Bom dia Marcelo
    Estou com um sistema que arquiva o documento
    Ex, arquivo um arquivo que está em documento/pdf

    Meu sistema está no C/SistemaArquivamento
    Quero que o arquivo pego na pasta de documentos/pdf cópie o documento para dentro do meu sistema ( C/SistemaArquivamento/ Arquivos)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  Marcelo David 13/6/2019, 14:05

    Nesse caso, para apontar a pasta onde o aplicativo está rodando,
    use:
    CurrentProject.Patch

    Esse comando, retorna o local de execução do sistema.

    Por exemplo, se seu sistema está em C:\SistemaArquivamento\SeuSistema.accdb e quer copiar arquivos para pasta Arquivos que está
    dentro da pasta onde o sistema está, você deve por no destido da cópia assim:

    CurrentProject.Patch & "\Arquivos"

    Pois a linha de cima é o mesmo que isso:

    C:\SistemaArquivamento\Arquivos



    .................................................................................
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Colocar arquivo na pasta do sistema Marcel11
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 13/6/2019, 19:38

    Boa tarde Marcelo ,não está aceitando o método antes dele linkar o arquivo tem que ser copiado dentro da pasta.
    vou tentando aqui , e depois te passo se não conseguir.

    Código:
    Private Sub Comando57_Click()
    On Error GoTo x1
    Dim c1, Arquivos
    If IsNull(Me.nome) Then
    MsgBox ("Preencha o Registro")
    Exit Sub
    End If
    With Application.FileDialog(msoFileDialogFilePicker)
    Dim lin As String
    .AllowMultiSelect = False

    .Title = "Selecione o Arquivo"

    .Filters.Clear
    '.Filters.Add "jpg", "*.jpg"
    '.Filters.Add "bmp", "*.bmp"
    '.Filters.Add "gif", "*.gif"
    '.Filters.Add "png", "*.png"
    .Filters.Add "Todos os arquivos", "*.*"
    If .Show = True Then
    lin = .SelectedItems(1)
    'MsgBox lin
    Dim ds, x
    x = Me.cod
    ds = InputBox("Entre Com A Descrição: ")
    Arquivos=CurrentProject.Patch & "\Arquivos"
    CurrentDb.Execute "INSERT INTO link1 (link, numreg, nome1 ) " & _
    "SELECT '" & lin & "' AS l, '" & x & "' AS num, '" & ds & "' AS n"
    Me.Lista0.Requery
    End If
    End With


    Exit Sub
    x1: MsgBox Err.Description

    End Sub


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 13/6/2019, 22:10

    não entendi o porque não está movendo?
    Anexos
    [Resolvido]Colocar arquivo na pasta do sistema AttachmentNovoTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 14 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  Marcelo David 14/6/2019, 03:09

    Boa noite meu amigo,
    Você não escreveu o códio para fazer cópia de arquivos. Apenas etá salvando o caminho.

    Observe que o terá que gravar ao invés da origem, o destino pois o arquivo será copiado para o diretório
    onde está seu aplicativo.


    .................................................................................
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Colocar arquivo na pasta do sistema Marcel11
    avatar
    brunoluizmaia
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  brunoluizmaia 14/6/2019, 08:59

    Bom dia!

    Eu utilizo a rotina abaixo para selecionar o arquivo e copiar para a pasta já renomeando.

    Crédito ao ToPBr

    Código:
    Private Sub inserir_ft1_mld_Click()

    'By ToPBr 2010
    'Adicionar foto a registro e copiar arquivo de foto para pasta do bd

      
    If IsNull(Me.foto1_molde) = False Then
       If MsgBox("Já existe uma foto, deseja apagar e adicionar outra?", vbYesNo, "Aviso de Inclusão") = vbNo Then
          DoCmd.CancelEvent
       Exit Sub
       Else
       Me.foto1_molde = Null
       End If
    End If
          
       If IsNull(Me.NomeCliente) = True Then
       MsgBox "Para capturar a foto é necessário informar o nome do cliente", vbInformation, "Aviso"
       DoCmd.CancelEvent
       Me.img_ft1_molde.SetFocus
       Exit Sub
       End If

      
       Dim strCaminho As String, strPastaInicial As String
       Dim CopiaSegura As Object
       Dim caminho As String
       Dim fso As Object
       Dim cam As String
       Dim strCaminnhoPasta As String
       Dim Pasta As String
       Dim numcrtl As String
       Dim nummld As String
       Dim nmclt As String
      
      
        
        numcrtl = Form_Documento_Controlo.Num_Doc_Controlo.Value
        nummld = Form_Documento_Controlo.NumeroMolde.Value
        nmclt = Form_Documento_Controlo.NomeCliente.Value
        
        
        
        Pasta = "\\2425FS01\Jobs\DB_Sis_Fabrico_em_teste\" & numcrtl & "-" & nummld & "-" & nmclt & "\Entrada_Saida" 'local onde quer salvar a foto
            
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(Pasta) Then ' verifica se já existe a pasta
        Else
        MkDir Pasta ' se não existir cria
        End If
        
        strCaminnhoPasta = Pasta & "\"
        
        strPastaInicial = "C:\Meus Documentos"
        strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
        "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
        If Len(strCaminho) > 0 Then
          
        cam = strCaminnhoPasta & "\" ' Caminho do bd mais a pasta fotos
      
          
      ' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
        Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
        CopiaSegura.CopyFile strCaminho, cam & numcrtl & "_" & nummld & "_" & 1 & ".jpg"
      
        Me.foto1_molde = cam & numcrtl & "_" & nummld & "_" & 1 & ".jpg"
        Me.img_ft1_molde.Picture = Me.foto1_molde
        
        
        End If

    DoCmd.RefreshRecord



    End Sub
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 16/6/2019, 21:25

    Não compreendi, pois mesmo fazendo pelo fso ou filecopy não consigo fazer a cópia.
    Código:
    On Error GoTo x1
    Dim c1
    If IsNull(Me.nome) Then
    MsgBox ("Preencha o Registro")
    Exit Sub
    End If
    With Application.FileDialog(msoFileDialogFilePicker)
    Dim lin As String
    buscaArquivo = "" ' Define source file name.
    destinoDoArquivo = "B:\CÓPIAS DE SISTEMAS\sistemas em andamento\Sistemas concluidos\Arquivamento\Nova pasta" ' Define target file name.
    FileCopy buscaArquivo, destinoDoArquivo '

    .AllowMultiSelect = False
    .TITLE = "Selecione o Arquivo"

    .Filters.Clear
    '.Filters.Add "jpg", "*.jpg"
    '.Filters.Add "bmp", "*.bmp"
    '.Filters.Add "gif", "*.gif"
    '.Filters.Add "png", "*.png"
    .Filters.Add "Todos os arquivos", "*.*"


    If .Show = True Then
    lin = .SelectedItems(1)
    'MsgBox lin
    Dim ds, x
    x = Me.cod
    ds = InputBox("Entre Com A Descrição: ")


    CurrentDb.Execute "INSERT INTO link1 (link, numreg, nome1 ) " & _
    "SELECT '" & lin & "' AS l, '" & x & "' AS num, '" & ds & "' AS n"
    Me.Lista0.Requery
    End If
    End With


    Exit Sub
    x1: MsgBox Err.Description

    End Sub

    Private Sub Comando59_Click()
    On Error GoTo f
    If IsNull(Me.Lista0) Or IsEmpty(Me.Lista0) Then
    Exit Sub
    End If
    Dim x
    x = MsgBox("Deseja Excluir Este Arquivo Selecionado?   Obs:  Você Não Está Excluindo o Arquiivo no HD e Sim o Link Para o Arquivo!", 1)
    If x <> 1 Then
    Exit Sub
    End If
    CurrentDb.Execute "Delete * From link1 where link1.n=" & Me.Lista0.Column(2)
    Me.Lista0 = Null
    Me.Lista0.Requery
    f:
    e nem assim
    Call copiarArquivo("CurrentProject.Patch & "", "B:\CurrentProject.Patch & "\Arquivos", False)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  Marcelo David 17/6/2019, 15:29

    Bom dia,
    esqueci de anexar na minha mensagem anterior o exemplo.

    Mais observações:
    Vi que para gravar o link na tabela, vc faz uma select na outra. Não entendi o porque disso. Removi o select e estou gravando direto.

    E para copiar, precisamos pegar o nome do arquivo no destino. Para isso estou usando o exemplo de código que criei e disponibilizei nesse link: https://www.maximoaccess.com/t36124-funcao-para-retornar-apenas-o-nome-do-arquivo-de-um-caminho

    Veja se é o que pretende.


    .................................................................................
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Colocar arquivo na pasta do sistema Marcel11
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 18/6/2019, 01:52

    Removi o select e estou gravando direto. escreveu:

    Cade Marcelo o anexo, vou ver essa link direto que você vez e estudar como ele é feito,
    já o meu link 1 é ele fazer abrir o arqui direto aonde ele esta, mas pelo jeito que você fez ele copiar o arquivo e abrir por la mesmo. será ótimo


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 22/6/2019, 19:52

    sem sucesso


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    renpv
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  renpv 23/6/2019, 00:51

    Fiz um exemplo aqui. Veja se ajuda.

    Se der erro, vai em referências e marca Microsoft Scripting Runtime
    Anexos
    [Resolvido]Colocar arquivo na pasta do sistema AttachmentcopiarArquivos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (58 Kb) Baixado 20 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 25/6/2019, 01:24

    renpv, boa noite , interessante seu exemplo, mas esse objetivo é que ao anexar o arquivo, antes dele colocar o link para abrir os arquivos anexado ,ele já copiasse para a pasta do sistema, ou seja ele ja colocasse o link com
    dê uma olhada no anexo acima.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  Marcelo David 25/6/2019, 02:40

    Rapaz, não sei pq meu anexo não foi anexado... Outra tentativa...

    Veja se atende.



    .................................................................................
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Colocar arquivo na pasta do sistema Marcel11
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 27/6/2019, 21:00

    Marcelo , Boa tarde , a noite verei o anexo, (pois estou na loja e pelo celular) para fechar esse sistema que estou com para entregar 6 feira .
    Ainda tenho pouco conhecimento em grandes partes. Qlquaqier coisa te retorno, já te agradecendo pela atenção


    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 28/6/2019, 12:56

    Bom dia Marcelo, estou tentando mudar o caminho do destino ,mas está dando numero de posição incorreta
    e o link do arquivo não está sendo executado


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  Marcelo David 28/6/2019, 13:59

    crysostomo escreveu:estou tentando mudar o caminho do destino

    Não entendi, poderia detalhar melhor?

    No aguardo.


    .................................................................................
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Colocar arquivo na pasta do sistema Marcel11
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 28/6/2019, 14:11

    deste ja obrigado pela atenção , nessa minha correria .
    o sistema vai ficar na pasta C:\SistArquivamento e dentro dessa pasta tem a pasta aonde que pretendo colocar os arquivos, ou seja
    C:\SistArquivamento\Arquivos
    o seu anexo , ele coloca os arquivos para área de trabalho,  e os arquivos na lista perderam o link de abrir eles porque sua posição grava os dois caminhos juntos.
    [Resolvido]Colocar arquivo na pasta do sistema Sem_tz38


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  Marcelo David 28/6/2019, 14:31

    Se eu entendi:
    Os arquivos devem ir para dentro da pasta Arquivos que está na mesma pasta da aplicação. Se é isso, altere a linha abaixo do botão Arquivo
    Destino = CurrentProject.Path & "\" & fncNomeArquivo(lin)

    para

    Destino = CurrentProject.Path & "\Arquivos\" & fncNomeArquivo(lin)


    .................................................................................
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Colocar arquivo na pasta do sistema Marcel11
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 29/6/2019, 21:26

    Boa tarde Marcelo, ja tinha alterado o caminho, estava dando com posição invalida tinha hora que dava caminho não localizado, ao chegar , te retorno.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  crysostomo 29/6/2019, 22:10

    Boa noite Marcelo, me desculpa a enrolação.
    verifiquei aqui e o problema era uma barra "/" inversa,  agora vou verificar se todas as funções do sistema seguem de acordo, qualquer coisa te pesso ajuda por aqui mesmo, pode ser?
    Já agradeço a sua atenção, e coloco esse tópico como resolvido.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  Marcelo David 30/6/2019, 00:26

    Maravilha. Se problema relacionado a outra assunto, outro tópico.

    Mas se está dando certo, ótimo. Smile


    .................................................................................
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Colocar arquivo na pasta do sistema Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Colocar arquivo na pasta do sistema Marcel11

    Conteúdo patrocinado


    [Resolvido]Colocar arquivo na pasta do sistema Empty Re: [Resolvido]Colocar arquivo na pasta do sistema

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:32