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

3 participantes

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    avatar
    Lamcarter
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 29/06/2013

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  Lamcarter Seg 26 Ago - 22:17

    Olá Pessoal, estou em desenvolvimento com um BD para controle de Alunos e me deparei com um BD do JPaulo de Cadastro de Dados utilizado para controle de Inquéritos (aparentemente) e verifiquei que toda vez que ele fecha o BD ele cria uma cópia (backup), porém implantei todas as rotinas do BD do JPaulo, que inclusive, irei debater outas situações que também pretendo implantar no que estou desenvolvendo, e não funcionou, quando clico no botão (que está o código - call ZipaBanco) dá um erro que tal função nao está definida!!!!!!!!!!!!!!!!!!! confesso que nao tenho amplo conhecimento em access.

    O que acontece?

    Informo que copiei as macros do DB do JPaulo e fiz igualzinho no meu BD, mas nao deu.

    Agradeço.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10671
    Registrado : 04/11/2009

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  JPaulo Ter 27 Ago - 5:02

    Você copiou o modulo de zipar ?

    Pode anexar aqui parte do seu banco em .zip ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  vieirasoft Ter 27 Ago - 7:43

    Existe uma troca no módulo. O código está invertido e passou sem querer ao Mestre JPaulo, ou seja, a rotina da parte inicial é a da parte final e vice versa.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  vieirasoft Ter 27 Ago - 7:53

    Public Sub Zipabanco()
    Dim strDate As String, DefPath As String
    Dim oApp As Object
    Dim FName, FileNameZip
    Dim strPrefix As String
    On Error Resume Next

    'Caminho da pasta onde esta o banco a zipar
    DefPath = "C:\XXXXXXXXX\Backups"
    If Right(DefPath, 1) <> "\" Then
    DefPath = DefPath & "\"
    End If

    strDate = Format(Now, "dd-mmm-yy_h-mm-ss")
    FileNameZip = DefPath & "Backup_" & strDate & ".zip"

    strPrefix = "servidor.mdb"
    Caminho do Back End
    FName = "C:\XXXXXXXXX\" & strPrefix & ".mdb"
    On Error Resume Next
    CriaNovoZip (FileNameZip)
    Set oApp = CreateObject("Shell.Application")
    oApp.NameSpace(FileNameZip).CopyHere FName
    Call MsgBox("Criado com Sucesso em: " & FileNameZip, vbInformation, "Sucesso")
    Set oApp = Nothing
    Exit Sub
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10671
    Registrado : 04/11/2009

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  JPaulo Ter 27 Ago - 8:09

    Grande amigo bom dia;

    No meu código, não está assim;

    strPrefix = "servidor.mdb"

    Porque vai dar erro, não vai encontrar, o resultado assim ficaria: servidor.mdb.mdb

    FName = "C:\XXXXXXXXX\" & strPrefix & ".mdb"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  vieirasoft Ter 27 Ago - 8:22

    Bom dia amigo JPaulo. É isso mesmo, servidor foi o nome que eu dei ao backend para exemplo. Um código nota 10, como sempre.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10671
    Registrado : 04/11/2009

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  JPaulo Ter 27 Ago - 8:46

    Amigão, não me referia ao nome, mas sim à extensão...Very Happy 

    O strPrefix não pode ter a extensão, apenas o nome do banco.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  vieirasoft Ter 27 Ago - 9:36

    Curioso isso JPaulo, porque estou a usar esse código com extensão e funciona a 100%. Assim:

    strPrefix = "BackEnd.mdb"

    E garanto o funcionamento, se experimentar vai ver que tenho razão.
    avatar
    Lamcarter
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 29/06/2013

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty desculpe a demora - Mas tai o Banco -

    Mensagem  Lamcarter Sex 30 Ago - 20:58

    Obrigado pela atenção. Antes de postar a dúvida nao tinha criado um módulo especifico para isso, fiz isso com o código postado, porém continua um erro, na hora que clico no botão da erro informando que a função nao esta definida, vejam no banco.

    Inclusive Jpaulo, irei postar mais coisas, pois seu sistema de cadastro é bem proximo do que preciso. desde já muito obrigado.
    Agradeço a todos.
    Anexos
    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" AttachmentControle de Acolhidos - Funcao Zipa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (643 Kb) Baixado 47 vez(es)
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  vieirasoft Sab 31 Ago - 6:22

    Meu amigo, não tenho como ver nesse formato, mas o inverso é verdade, então aqui vai uma bd prontinha...basta ir ao Módulo e substituir as linhas... DefPath = "C:\xxxxxxx\Backups" e FName = "C:\xxxxxxxxx\" & strPrefix & ".mdb", pelo caminho do seu Front e do seu Back End.
    avatar
    Lamcarter
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 29/06/2013

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty RESOLVIDO

    Mensagem  Lamcarter Sab 31 Ago - 14:11

    Olá, Vieira, porque nao consegue abrir meu BD? fiz algo errado? até porque ainda tem uma lista de funcionalidades a ser inserida nele que estou apanhando.

    Quanto ao backup deu certo. Olha o curioso, meu módulo estava com o nome "zipabanco", igualzinho ao seu, mesmas linha de comando e eu clicava no botão e dava erro, dizendo que "era esperado uma macro, não módulo" e não chamava a macro, ai apaguei o meu módulo, copiei o que disponibilizou e voialáá, deu certo. vai entender.

    Muito obrigado pela atenção. Mais uma etapa agora vou pra busca no banco que estou com problemas. abc

    Atenciosamente,
    Lamcarter
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  vieirasoft Sab 31 Ago - 14:52

    Bom trabalho amigo.
    avatar
    Lamcarter
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 29/06/2013

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty CONTINUIDADE - CRIAR PASTA

    Mensagem  Lamcarter Dom 1 Set - 14:44

    Caros JPaulo e Vieira, Agradeço imensamente ao auxílio prestado.

    A Macro está funcionando perfeitamente, porém pensei em incrementá-la assim:

    Há a possibilidade de inserir uma linha de comando que, caso nao exista a pasta de backup (o endereço inserido na macro) ela seja criada?

    exemplo: informamos que o arquivo deve ser zipado para a pasta C:\sistema\backup.

    Caso ela não exista, manda uma mensagem dizendo que nao existe e pedindo para criá-la.

    Isso é possível?

    Obrigado
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  vieirasoft Dom 1 Set - 16:49

    Se o programa é para si, crie uma Pasta...por exemplo (C;\Backups). Se é para distribuir a terceiros e não tem instalador, é mais complicado mas. deve ser criada uma pasta primeiro: O exemplo seguinte pode ser colocado no evento click de um botão:

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.folderexists("C:\Backups") Then ' verifica se já existe a pasta
    MsgBox "A pasta já existe"
    Else
    MkDir "C:\Backups" ' se não existir cria
    End If

    No módulo de código que o JPaulo criou escreva os caminhos da BD e destino do Backup conforme acima foi postado.

    Não esqueça de fazer referência ao Microsoft scripting runtime
    avatar
    Lamcarter
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 29/06/2013

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty obrigado

    Mensagem  Lamcarter Seg 2 Set - 20:17

    O BD é para meu uso, mas irei fazer uma apresentacao e realmente nao tinha pensado em um instalador. irei providenciar.
    Obrigado mais uma vez.
    ABC
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco" Empty Re: [Resolvido]Macro - Backup no Botão SAIR - desenvolvido JPaulo - "Zipabanco"

    Mensagem  vieirasoft Ter 3 Set - 6:42

    Procure na net pelo Inno Setup. É gratuito.

      Data/hora atual: Qua 26 Jan - 20:06