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


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

    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ilvecchio 29/4/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
    Convidado
    Convidado


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

    Mensagem  Convidado 29/4/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
    avatar
    ilvecchio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ilvecchio 29/4/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
    Convidado
    Convidado


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

    Mensagem  Convidado 30/4/2015, 08:34

    Bom dia,

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

    Abraço.... Cool

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:19