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

    Navegação entre registros após pesquisa

    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    Navegação entre registros após pesquisa Empty Navegação entre registros após pesquisa

    Mensagem  alozs 29/3/2021, 17:21

    Boa tarde a todos, preciso de uma ajuda de vocês, estou usando os comandos abaixo para avançar ou retroceder um registro (cadastro de produto), até ai tudo bem funciona bem, quando eu abro a tela de cadastro de produtos e clico nos botões porem nessa mesma tela tenho um botão para pesquisar produtos onde é aberto um novo form para selecionar o produto pesquisado e ao clicar no produto desejado o sistema reabre a tela de cadastro de produtos com o produto desejado porem se eu tentar clicar nos comandos avançar ou retroceder depois desse processo, não funciona, fala que eu alcancei o primeiro ou ultimo registro.

    Pesquisei pra caramba aqui no forum e no google não achei, tentei vários códigos e nada 😔

    Avançar
    Código:

    On Error GoTo Err_Btn_Proximo_Click


        DoCmd.GoToRecord , , acNext
        Me.Refresh

    Exit_Btn_Proximo_Click:
        Exit Sub

    Err_Btn_Proximo_Click:
        MsgBox "Você alcançou o último registro", vbInformation, ""
        Resume Exit_Btn_Proximo_Click

    Retroceder
    Código:

    On Error GoTo Err_Btn_Anterior_Click


        DoCmd.GoToRecord , , acPrevious
        Me.Refresh

    Exit_Btn_Anterior_Click:
        Exit Sub

    Err_Btn_Anterior_Click:
        MsgBox "Você alcançou o primeiro registro", vbInformation, ""
        Resume Exit_Btn_Anterior_Click
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    Navegação entre registros após pesquisa Empty Re: Navegação entre registros após pesquisa

    Mensagem  DamascenoJr. 30/3/2021, 03:46

    ...
    If Me.FilterOn Then
       Me.FilterOn = False
       Call Btn_Proximo_Click
    End If

       
    Call DoCmd.GoToRecord(, , acNext)
    ...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    alozs gosta desta mensagem

    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    Navegação entre registros após pesquisa Empty Re: Navegação entre registros após pesquisa

    Mensagem  alozs 30/3/2021, 14:18

    Obrigado mestre Damasceno, deu certo porem tem um pequeno problema, ele tira o filtro e volta para o inicio da tabela, tem alguma como ir para o próximo registro?
    Eu tentei adaptar o código com várias situações aqui mais não consegui.

    Exemplo:
    tenho 5 itens cadastrados com os códigos de 1 a 5
    quando eu pesquiso o código 4, seleciono ele, quando clico em próximo ele vai para o código 1.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    Navegação entre registros após pesquisa Empty Re: Navegação entre registros após pesquisa

    Mensagem  DamascenoJr. 31/3/2021, 02:42

    Sugiro então trocar a filtragem que você usa pelo método FindFirst, pois pelo que vejo você não deseja filtragem, mas sim localizar um registro.

    Fiz uma pesquisa simples e encontrei um tópico. Pesquisando mais a fundo encontrará mais exemplos
    https://www.maximoaccess.com/t5282-resolvidopesquisa-usando-findfirst

    Bons estudos.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    alozs gosta desta mensagem

    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    Navegação entre registros após pesquisa Empty Re: Navegação entre registros após pesquisa

    Mensagem  alozs 31/3/2021, 16:23

    obrigado amigo, vou verificar se consigo resolver usando o método informado e retorno aqui se conseguir resolver

      Data/hora atual: 6/10/2022, 07:42