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

    Detetar se é registo novo ou não

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3485
    Registrado : 06/11/2009

    Detetar se é registo novo ou não

    Mensagem  Assis em 16/10/2017, 13:19

    Boa tarde Amigos

    Ao atualizar uma combobox queria detetar se o registo é novo ou não.

    Então tentei usar para ativar um botão de comando


    Private Sub txtHistorico_AfterUpdate()

    If Not NewRecord Then ' ............ senão é novo registo
    Me.Comando65.Enabled = False
    Else
    Me.Comando68.Enabled = True
    End If
    End Sub

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***

    Bernidios
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 17/07/2017

    Re: Detectar se é registo novo ou não

    Mensagem  Bernidios em 16/10/2017, 17:37

    Amigo, se tens uma tabela com os registros não seria mais fácil fazer um recordset?

    Abraços
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3485
    Registrado : 06/11/2009

    Re: Detetar se é registo novo ou não

    Mensagem  Assis em 16/10/2017, 18:36

    Matthew

    Uma dica de como o fazer.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6860
    Registrado : 05/11/2009

    Re: Detetar se é registo novo ou não

    Mensagem  Alexandre Neves em 16/10/2017, 22:03

    Boa noite, Assis,
    Queres saber se o registo já foi gravado ou está ainda em preenchimento?
    usa o dirty
    if me.dirty then


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3485
    Registrado : 06/11/2009

    Re: Detetar se é registo novo ou não

    Mensagem  Assis em 23/12/2017, 15:02

    Boa tarde
    Desculpe Alexandre, mas este passou. Queria mesmo saber se ainda está em preenchimento?

    Bom santa


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 891
    Registrado : 23/09/2011

    Re: Detetar se é registo novo ou não

    Mensagem  cleverson_manaus em 27/12/2017, 17:14

    Dá uma olhada nesse link, usa o evento beforeupdate do formulário:

    msdn.microsoft.com/pt-br/vba/access-vba/articles/prompt-a-user-before-saving-a-record

    Abraços,


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

      Data/hora atual: 19/8/2018, 18:25