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]Renomear arquivos baseado em tabela

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 02/09/2016

    [Resolvido]Renomear arquivos baseado em tabela Empty [Resolvido]Renomear arquivos baseado em tabela

    Mensagem  ictsp Qui 29 Jul 2021, 6:58 pm

    Prezados colegas, estou tentando utilizar um código disponibilizado pelo amigo ahteixeira (https://www.maximoaccess.com/t37816-resolvidorenomear-varios-arquivos-em-funcao-dos-registos-da-tabela) porém está dando erro: "Arquivo não encontrado"

    Na minha tabela1 tenho uma coluna chamada [arquivo] e outra [renomear] com novo nome do arquivo.
    A referencia "Microsoft Office 16.0 Access database engine Object Library" está ativada


    Private Sub Btn_Rename_Click()

    'ahteixeira 2020 para MaximoAccess
    'On Error GoTo Err_Rename_Click 'define tratamento erros

    Dim rs As Recordset 'dimensionar recordeset
    Set rs = CurrentDb.OpenRecordset("TABELA1") 'atribuir base de dados abrir

    'Do While Not rs.EOF 'correr os registos enquanto nao chega ao fim
    Name "C:\Users\ictdi\Desktop\teste" & rs![arquivo] & ".pdf" As "C:\Users\ictdi\Desktop\teste" & rs![renomear] & ".pdf" 'renomear
    rs.MoveNext 'mover para o registo seguinte
    ' Loop 'seguinte

    rs.Close 'fechar recordeset
    Set rs = Nothing 'remover da memoria

    MsgBox "Operacao Concluida", vbInformation, ""

    Exit_Rename_Click:
    Exit Sub

    Err_Rename_Click: 'tratamento de erros
    If Err.Number = 53 Then
    Resume Next
    Else
    MsgBox Err.Number & "-" & Err.Description, vbCritical, "ERRO"
    Resume Exit_Rename_Click
    End If
    End Sub

    Desde já, agradeço a ajuda dos colegas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 21/11/2016

    [Resolvido]Renomear arquivos baseado em tabela Empty Re: [Resolvido]Renomear arquivos baseado em tabela

    Mensagem  DamascenoJr. Qui 29 Jul 2021, 7:34 pm

    Avaliemos...

    Name "C:\Users\ictdi\Desktop\teste" & rs![arquivo] & ".pdf" As "C:\Users\ictdi\Desktop\teste" & rs![renomear] & ".pdf" 'renomear

    Se rs![arquivo] tiver o valor X

    e rs![renomear] tiver o valor Y

    então, resumindo o código faria assim
    Name "C:\Users\ictdi\Desktop\testeX.pdf" As "C:\Users\ictdi\Desktop\testeY.pdf" 'renomear

    Nos diga, existe o arquivo C:\Users\ictdi\Desktop\testeX.pdf (isto é, testeX.pdf na sua área de trabalho) para que seja renomeado para testeY.pdf?

    Ou os arquivos estão dentro de uma pasta chamada teste?


    Última edição por DamascenoJr. em Qui 29 Jul 2021, 9:35 pm, editado 1 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 02/09/2016

    [Resolvido]Renomear arquivos baseado em tabela Empty Re: [Resolvido]Renomear arquivos baseado em tabela

    Mensagem  ictsp Qui 29 Jul 2021, 9:02 pm

    Prezado Damasceno, antes de mais nada, muito obrigado pelo retorno.
    Os arquivos estão dentro de uma pasta na área de trabalho chamada "teste".
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 21/11/2016

    [Resolvido]Renomear arquivos baseado em tabela Empty Re: [Resolvido]Renomear arquivos baseado em tabela

    Mensagem  DamascenoJr. Qui 29 Jul 2021, 9:43 pm

    Então levando em consideração nosso conhecimento sobre a estrutura de um diretório, isto é,

    a saber que isso abaixo
    C:\Users\ictdi\Desktop\testeX.pdf

    não indica o arquivo X.pdf dentro da pasta teste, mas sim que isso indica o nome de um arquivo chamado testeX.pdf localizado na área de trabalho, basta então montar como seria a forma correta,

    sendo ela
    C:\Users\ictdi\Desktop\teste\X.pdf

    E agora, já sabendo a maneira correta, percebe-se a falta de uma barra invertida após "teste".

    Ficando o código

    Name "C:\Users\ictdi\Desktop\teste\" & rs![arquivo] & ".pdf" As "C:\Users\ictdi\Desktop\teste\" & rs![renomear] & ".pdf" 'renomear

    Findando na resolução do problema.  Very Happy

    Favor não esquecer de marcar o resolvido.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 02/09/2016

    [Resolvido]Renomear arquivos baseado em tabela Empty Re: [Resolvido]Renomear arquivos baseado em tabela

    Mensagem  ictsp Qui 29 Jul 2021, 10:05 pm

    DamascenoJr, muitíssimo obrigado pela ótima explicação.
    Funcionou perfeitamente.
    Muito obrigado!!



    Última edição por ictsp em Qui 29 Jul 2021, 10:13 pm, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 21/11/2016

    [Resolvido]Renomear arquivos baseado em tabela Empty Re: [Resolvido]Renomear arquivos baseado em tabela

    Mensagem  DamascenoJr. Qui 29 Jul 2021, 10:23 pm

    Como pedido anteriormente, aguardamos você finalizar o tópico marcando o resolvido.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 02/09/2016

    [Resolvido]Renomear arquivos baseado em tabela Empty Re: [Resolvido]Renomear arquivos baseado em tabela

    Mensagem  ictsp Sab 31 Jul 2021, 3:16 pm

    Desculpe a demora.
    Mais uma vez, muito obrigado

      Data/hora atual: Sab 24 Set 2022, 3:53 pm