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

    [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 : 132
    Registrado : 16/11/2012

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

    Mensagem  ilvecchio em Qua 29 Abr 2015, 14: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?
    avatar
    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, 15: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] [Você precisa estar registrado e conectado para ver este link.] [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 : 132
    Registrado : 16/11/2012

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

    Mensagem  ilvecchio em Qua 29 Abr 2015, 21: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.




    avatar
    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, 08:34

    Bom dia,

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

    Abraço.... Cool


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

      Data/hora atual: Qua 18 Out 2017, 04:59