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

    Erro ao chamar função do modulo

    Compartilhe

    Vianaedu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 21/05/2017

    Erro ao chamar função do modulo

    Mensagem  Vianaedu em 29/3/2018, 00:45

    Estou tentando reutilizar um trecho de código, pois esse trecho aparece muitas vezes na aplicação, porem parte do código retorna o seguinte  erro:

    uso invalido para para a palavra-chave Me

    eis o Código  em questão:

    Código:


    If MsgBox("Fechar cadastro?", vbYesNo + vbDefaultButton1 + vbExclamation, "Sair do Registro") = vbYes Then

    ' Erro neste trecho
          Me.Undo

    ' O código é interrompido no trecho acima
          DoCmd.Close

       Else


       End If





    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: Erro ao chamar função do modulo

    Mensagem  Noobezinho em 29/3/2018, 13:38

    Eduardo

    A palavra reservada ( Me ) faz referencia ao formulário onde ela está sendo usada, ou seja no módulo classe do formulário

    e não no módulo básico, onde deve estar tua função.

    Para a proveitar a função, que está no módulo básico, deve mudar o

    Me.Undo

    para

    Screeen.ActiveForm.Undo

    Para saber sobre qualquer comando do Access, basta clicar sobre a palavra deseja e apertar F1.

    [ ]'s
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    Re: Erro ao chamar função do modulo

    Mensagem  Silvio em 29/3/2018, 13:39


    If MsgBox("Fechar cadastro?", vbYesNo + vbDefaultButton1 + vbExclamation, "Sair do Registro") = vbYes Then
    'se a mensagem ("Fechar cadastro ?") for igual a sim, então.....

    '.....seu código aqui para o evento sim....
    bla..
    bla..
    bla..
    bla..
    else ' caso contrário, o não escolhido
    Me.Undo
    DoCmd.Close
    End If


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    Re: Erro ao chamar função do modulo

    Mensagem  Silvio em 29/3/2018, 13:40

    Eita...Não vi que estava a responder Noob.

    Desculpe


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: Erro ao chamar função do modulo

    Mensagem  Noobezinho em 29/3/2018, 13:45

    "É nois" Silvio

    Mas o problema dele é que está usando o ( Me ) na função em um módulo básico, por isso o erro.

    [ ]'s

      Data/hora atual: 20/7/2018, 15:40