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


3 participantes

    [Resolvido]Remover filtro sem sair do registro atual

    gilberlanio
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 814
    Registrado : 30/08/2010
    • Mensagem nº1

    [Resolvido]Remover filtro sem sair do registro atual Empty [Resolvido]Remover filtro sem sair do registro atual

    Mensagem  gilberlanio 15/9/2018, 03:32

    Olá pessoal, criei um código para remover todos os filtros do formulário, até que consegui, mas o problema é que ao clicar no botão remover filtro ele volto para o primeiro registro e queria que ficasse no registro atual. Se o código que estou usando.

    Código:
       Me.Form.FilterOn = False
        DoCmd.ShowAllRecords
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº2

    [Resolvido]Remover filtro sem sair do registro atual Empty Re: [Resolvido]Remover filtro sem sair do registro atual

    Mensagem  Alexandre Neves 15/9/2018, 10:35

    Bom dia
    Tente
    Dim lngReg as long
    lngReg=Me.RecordsetClone.Bookmark
    Me.Form.FilterOn = False
    DoCmd.ShowAllRecords
    Me.RecordsetClone.Bookmark = lngReg


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    gilberlanio
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 814
    Registrado : 30/08/2010
    • Mensagem nº3

    [Resolvido]Remover filtro sem sair do registro atual Empty Re: [Resolvido]Remover filtro sem sair do registro atual

    Mensagem  gilberlanio 15/9/2018, 12:39

    Alexandre obrigado pela forma, mas deu esse erro:
    https://i.servimg.com/u/f92/19/97/10/59/erro10.png

    Tentei alterar o tipo da variável lngReg de Long para Variant, mas o erro vai para a última linha do código
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº4

    [Resolvido]Remover filtro sem sair do registro atual Empty Re: [Resolvido]Remover filtro sem sair do registro atual

    Mensagem  Alexandre Neves 15/9/2018, 15:29

    Boa tarde
    Tente
    Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    rst.Bookmark =Me.Bookmark
    Me.Form.FilterOn = False
    DoCmd.ShowAllRecords
    Me.RecordsetClone.Bookmark = rst.Bookmark
    Set rst = Nothing


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    fsouza32 gosta desta mensagem

    • Ir para o topo
    gilberlanio
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 814
    Registrado : 30/08/2010
    • Mensagem nº5

    [Resolvido]Remover filtro sem sair do registro atual Empty Re: [Resolvido]Remover filtro sem sair do registro atual

    Mensagem  gilberlanio 15/9/2018, 17:56

    Continua dando erro, vou prepara o exemplo para colocar aqui.
    • Ir para o topo
    DamascenoJr.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016
    • Mensagem nº6

    [Resolvido]Remover filtro sem sair do registro atual Empty Re: [Resolvido]Remover filtro sem sair do registro atual

    Mensagem  DamascenoJr. 15/9/2018, 21:33

    Isso resolve:

    Código:
    Dim rs As DAO.Recordset
        Dim lngPosReg As Long
       
        Set rs = CurrentDb.OpenRecordset(Me.RecordSource, 8)
       
        Do
           
            'descobrindo a posição do registro
            lngPosReg = lngPosReg + 1
           
            'testando os fields do recordset com os mesmos critérios do filtro que usei para abrir o formulário
            If rs.Fields("codigo").Value = Me!txtCodigo Then
                Exit Do 'se atendeu então saia do loop
            Else
                rs.MoveNext 'vá para o próximo registro
            End If
           
        Loop Until rs.EOF

        rs.Close: Set rs = Nothing
        Me.FilterOn = False
        DoCmd.ShowAllRecords
        DoCmd.GoToRecord , , acGoTo, lngPosReg

    fsouza32 gosta desta mensagem

    • Ir para o topo
    gilberlanio
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 814
    Registrado : 30/08/2010
    • Mensagem nº7

    [Resolvido]Remover filtro sem sair do registro atual Empty Re: [Resolvido]Remover filtro sem sair do registro atual

    Mensagem  gilberlanio 18/9/2018, 02:10

    Obrigado pelo apoio Alexandre e Ivan, as duas formas dão certos, o problema estava em um formulário meu aqui que estava com erro no modo de abertura.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]Remover filtro sem sair do registro atual Empty Re: [Resolvido]Remover filtro sem sair do registro atual

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 00:35