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

    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 : 294
    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 : 2832
    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 : 294
    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 : 2832
    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 : 294
    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: 23/6/2021, 05:52