MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido] Compactando banco para winrar

    Compartilhe

    VitorBraz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/07/2011

    [Resolvido] Compactando banco para winrar

    Mensagem  VitorBraz em Qua 18 Jun 2014, 13:33

    Meu código

    Private Sub Comando0_Click()

    Dim objfs As Object
    Set objfs = CreateObject("Scripting.FileSystemObject")
    objfs.CopyFile "C:\Users\vvsilva\Desktop\2M Apresentação - Atual.accdb", "C:\Users\vvsilva\Desktop\2m\a.accdb"


    Dim booResultado As Boolean
    booResultado = Application.CompactRepair("C:\Users\vvsilva\Desktop\2m\a.accdb", "C:\Users\vvsilva\Desktop\2m\b.accdb", True)

    If fncProtegido = True Then
    Dim objws As Object
    Set objws = CreateObject("wscript.shell")
    objws.SendKeys fncCapturaSenha, True
    objws.SendKeys "{ENTER}"
    End If


    If booResultado = True Then FileSystem.Kill "C:\Users\vvsilva\Desktop\2m\a.accdb"



    ==============Erro parece está aqui, ele não encontra o arquivo==========================

    Dim compri
    compri = Shell("C:\Arquivos de programas\Winrar\WinRAR.EXE a " & _
    Replace("C:\Users\vvsilva\Desktop\2m\b", ".accdb", "") & ".rar " & "C:\Users\vvsilva\Desktop\2m\b", vbHide)

    End Sub

    E aparece a mensagem "O arquivo não foi localizado"


    Última edição por VitorBraz em Sex 20 Jun 2014, 12:08, editado 1 vez(es)

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Compactando banco para winrar

    Mensagem  daniloreiis em Qua 18 Jun 2014, 17:47

    Boa tarde amigo!

    Faltou você especificar o nome do arquivo para compactação corretamente, testei aqui e foi.

    veja:

    seu código:

    Código:

    Dim compri
    compri = Shell("C:\Arquivos de programas\Winrar\WinRAR.EXE a " & _
    Replace("C:\Users\vvsilva\Desktop\2m\b", ".accdb", "") & ".rar " & "C:\Users\vvsilva\Desktop\2m\b", vbHide)

    correção:


    Dim compri
    compri = Shell("C:\Arquivos de programas\Winrar\WinRAR.EXE a " & _
    Replace("C:\Users\vvsilva\Desktop\2m\b", ".accdb", "") & ".rar " & "C:\Users\vvsilva\Desktop\2m\b.accdb", vbHide)

    Espero ter ajudado.

    Att, Danilo

    VitorBraz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/07/2011

    Re: [Resolvido] Compactando banco para winrar

    Mensagem  VitorBraz em Qua 18 Jun 2014, 21:20

    Erro em tempo de execução '53':

    O arquivo não foi localizado

    Problema continua

    Eu já tinha tentado desta forma

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Compactando banco para winrar

    Mensagem  daniloreiis em Qua 18 Jun 2014, 21:52

    Boa tarde !

    verifica se você esta chamando o WINRAR corretamente, pois aqui no meu código testei e deu certo.

    compri = Shell("C:\Program Files (x86)\WinRAR\WinRAR.EXE a " & _

    Att , Danilo

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2491
    Registrado : 29/06/2012

    Re: [Resolvido] Compactando banco para winrar

    Mensagem  Noobezinho em Qui 19 Jun 2014, 02:55

    Vitor

    Experimente isso:

    Código:

    compri =Shell("C:\Program Files\WinRAR\WinRAR.exe a -r -ep C:\Users\vvsilva\Desktop\2m\b.rar C:\Users\vvsilva\Desktop\2m\b.accdb",vbHide)

    Isso evita as pastas sobrepostas até chegar no arquivo.accdb dentro do arquivo.rar.

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    VitorBraz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/07/2011

    [Resolvido]

    Mensagem  VitorBraz em Sex 20 Jun 2014, 12:03

    Descobri o problema.
    Apesar de aparecer escrito  C:\Arquivos de programa... correto é escrever em inglês C:\Program Files...

    OObrigado


    Última edição por VitorBraz em Sex 20 Jun 2014, 14:34, editado 1 vez(es)

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Compactando banco para winrar

    Mensagem  daniloreiis em Sex 20 Jun 2014, 12:37

    Legal que conseguiu VitorBraz Sucesso Amigo!

      Data/hora atual: Seg 05 Dez 2016, 16:30