MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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?

    avatar
    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    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.
    avatar
    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    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: Ter 17 Out 2017, 08:56