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


2 participantes

    [Resolvido]Erro ao fechar formulário

    avatar
    abronhero
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao fechar formulário Empty [Resolvido]Erro ao fechar formulário

    Mensagem  abronhero 29/3/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
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao fechar formulário Empty Re: [Resolvido]Erro ao fechar formulário

    Mensagem  Gabriel Brunichaki 30/3/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
    avatar
    abronhero
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao fechar formulário Empty Erro ao fechar formulário

    Mensagem  abronhero 30/3/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
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao fechar formulário Empty Re: [Resolvido]Erro ao fechar formulário

    Mensagem  Gabriel Brunichaki 30/3/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

    Conteúdo patrocinado


    [Resolvido]Erro ao fechar formulário Empty Re: [Resolvido]Erro ao fechar formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 03:46