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

    Código de fechar, zipar com data atual não funciona

    Compartilhe

    EltonCosta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 02/02/2012

    Código de fechar, zipar com data atual não funciona

    Mensagem  EltonCosta em Qua 23 Out 2013, 16:02

    Olá, esse código funciona com o winzip, e não sei porque qdo boto com o winrar ele não funciona. Diz que não reconhece  -a

    Private Sub CBTCriarBackup_Click()
    'Rotina Criada para Fechar o Aplicativo, Compactar e Salvar o BD com a Data Atual'
       If MsgBox("Deseja fechar o Aplicativo e Compacta-ló ?", vbYesNo + 32, "Sair do Aplicativo") = vbYes Then
       Call Shell("C:\Programas\WinRAR\Winrar.exe -a -ex C:\SisBuffet\backup\SisBuffet-be-" & Date$ & " C:\SisBuffet\SisBuffet-backEnd.mdb")
       Application.Quit acExit
       End If
    End Sub
    Anexos
    falha no sistema.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 5 vez(es)

    EltonCosta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 02/02/2012

    Re: Código de fechar, zipar com data atual não funciona

    Mensagem  EltonCosta em Qui 24 Out 2013, 15:09

    ??????????

    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: Código de fechar, zipar com data atual não funciona

    Mensagem  giba_ em Seg 28 Out 2013, 22:25

    pode tentar isto:

       Call Shell("C:\Arquivos de programas\WinRAR\WinRAR.exe a C:\temp\Arquivo.zip C:\temp\Arquivo.mdb")

    segue a ideia com data

    Call Shell("C:\Arquivos de programas\WinRAR.exe a C:\temp_zip\ACOMP_" & Format(Date, "mmmm_yyyy") & ".zip C:\temp_zip\ACOMP.mdb")

    Call Shell("C:\Arquivos de programas\WinRAR.exe a C:\temp_zip\ACOMP_" & Format(Date, "dd_mmmm_yyyy") & ".zip C:\temp_zip\ACOMP.mdb")

      Data/hora atual: Dom 04 Dez 2016, 20:19