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

    Abrir formulário no último registro alterado

    avatar
    ilsonyp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 16/06/2014

    Abrir formulário no último registro alterado Empty Abrir formulário no último registro alterado

    Mensagem  ilsonyp 12/8/2015, 01:41

    Boa noite, Amigos.

    Preciso que um formulário de cadastro de Ordens de Serviço do programa que eu fiz em Access, ao ser aberto, abra no último registro alterado.
    Alguém pode, por favor, me ajudar com isso?


    Desde já agradeço

    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    Abrir formulário no último registro alterado Empty Re: Abrir formulário no último registro alterado

    Mensagem  cleverson_manaus 12/8/2015, 02:04

    Acrescente um campo DataAlteração à tabela Ordem Serviço.

    Em seguida pode criar uma cx de combinação no form baseada nesse campo, alterar os nomes.

    Nesse exemplo busco o registro pelo campo ID, Evento ApósAtualizar da cx de combinação:


    Private Sub BuscaMov_AfterUpdate()

     ' Encontrar o registro que coincide com o controle.
       Me.RecordsetClone.FindFirst "[ID_MOV] = " & Me![BuscaMov] & ""
       Me.Bookmark = Me.RecordsetClone.Bookmark
       Me.DATA_MOV.SetFocus
       Me.BuscaMov = Null

    End Sub


    Abraços


    .................................................................................
    afro

    "É 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: 2/5/2024, 13:04