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]Erro ao fechar formulário

    Compartilhe

    abronhero
    Novato
    Novato

    Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 7
    Registrado : 24/11/2009

    [Resolvido]Erro ao fechar formulário

    Mensagem  abronhero em Ter 29 Mar 2016, 21:53

    Senhores;

    Copiei a função abaixo para realizar o BackUp do BD após fechar o formulário principal.

    ++++++++++++++++++
    Ative a referencia:
    Microsoft Scripting Runtime

    Cole a funзгo dentro do VBA do seu formulario principal


    Function BackBD()
    'elaborado por: JPaulo - 11/10/2006
    'objectivo: criar (1) uma copia de seguranзa por mкs
    ' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
    'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
    'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
    ' а MDB da cуpia.

    Dim CopiaSegura As Object
    Dim Caminho As String
    Caminho = "C:\BackMDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup
    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
    CopiaSegura.CopyFile CurrentProject.Path & "\SeuBanco.mdb", Caminho & Format(Now, "_mmyyyy") & ".mdb"
    End Function

    No evento ao fechar do seu formulario principal, coloque:

    Private Sub Form_Close()
    Call BackBD()
    End Sub

    +++++++++++++++++

    Ao fechar o formulário principal retorna o seguinte erro: "Era esperada uma variável ou procedimento, não módulo"

    Alguém sabe informar qual o problema?


    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido]Erro ao fechar formulário

    Mensagem  Gabriel Brunichaki em Qua 30 Mar 2016, 12:31

    Bom dia!

    Onde está localizada a função BackBD()? Há algum módulo com este mesmo nome?


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    abronhero
    Novato
    Novato

    Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 7
    Registrado : 24/11/2009

    Erro ao fechar formulário

    Mensagem  abronhero em Qua 30 Mar 2016, 13:11

    Sim. Criei um módulo de nome BackUp.

    Diante da sua pergunta resolvi colar a função no próprio formulário e o resultado é que funcionou.

    Muito grato pela ajuda.

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido]Erro ao fechar formulário

    Mensagem  Gabriel Brunichaki em Qua 30 Mar 2016, 14:42

    Ok!

    Vale ressaltar que se a função está em um outro módulo e há um módulo com o mesmo nome da função, o Access está pensando que tu tá querendo chamar um módulo ao invés da função, daí o erro. Te aconselho sempre a diferenciar os nomes de qualquer coisa que for criar. Eu, particularmente, adotei a regra de nomear módulos com as letrar mdl na frente, para evitar este tipo de erro.

    Não esqueça do "Resolvido"!


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

      Data/hora atual: Sab 03 Dez 2016, 19:41