MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Manter-se no registro após a alteração

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    [Resolvido]Manter-se no registro após a alteração

    Mensagem  ilvecchio em Qua 29 Abr 2015, 06:59

    Buenas!

    Tenho um formulário onde vejo registros de uma tabela, e uma caixa de listagem para selecionar o registro.
    Quando o formulário abre mostra o primeiro registro, que também é o primeiro na caixa de listagem.

    Ao selecionar um registro na caixa de listagem o formulário mostra os dados desse registro, que podem ser alterados.
    Depois de alterar, a consulta do formulário é refeita (me.requery) para mostrar o registro já alterado. A consulta da caixa de listagem também é refeita.

    Ao refazer as consultas, a situação inicial se repete: o formulário volta para o primeiro registro.

    Como posso fazer para que, após a alteração, o formulário vá para o registro alterado e a caixa de listagem também volte a ter esse registro selecionado?

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Manter-se no registro após a alteração

    Mensagem  Roberto_1977 em Qua 29 Abr 2015, 07:25

    Boa tarde,

    No meu ver bastaria voçe criar um campo desvinculado no seu form e ao escolher o nome na sua caixa de listagem ele preencheria
    esse campo desvinculado, onde a sua consulta não esteria a apontar para a sua caixa de listagem mas sim para
    o novo campo.
    Sempre que voçe alterasse qualquer registo e atualizasse o form (me.requery) ele não apagaria o valor do campo e ficaria no registo que se encontrava.

    Espero que tenha precebido a minha logica....

    Caso precise de um help, diga.... e poste aqui sua BD.

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Re: [Resolvido]Manter-se no registro após a alteração

    Mensagem  ilvecchio em Qua 29 Abr 2015, 13:19

    Buenas!
    Consegui adaptando este código


    Dim Rs1 As DAO.Recordset
    Set Rs1 = Me.RecordsetClone
    With Rs1
    .FindFirst "[CodCliente] = '" & me.CodCliente & "' AND " _
    & "[CodPedido] = '" & me.CodPedido & "'"

    If .NoMatch Then 'se não encontrado, então...

    Exit Sub

    Else
    Me.Bookmark = .Bookmark
    End If
    End With




    Obrigado.





    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Manter-se no registro após a alteração

    Mensagem  Roberto_1977 em Qui 30 Abr 2015, 00:34

    Bom dia,

    Ainda bem que Resolveu, continuação de um bom trabalho.

    Abraço.... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 03 Dez 2016, 07:37