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]Remover filtro sem sair do registro atual

    Compartilhe
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 719
    Registrado : 30/08/2010

    [Resolvido]Remover filtro sem sair do registro atual

    Mensagem  gilberlanio em 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


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    Vários Exemplos Grátis
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 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
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 719
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio em 15/9/2018, 12:39

    Alexandre obrigado pela forma, mas deu esse erro:
    [Você precisa estar registrado e conectado para ver este link.]

    Tentei alterar o tipo da variável lngReg de Long para Variant, mas o erro vai para a última linha do código


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    Vários Exemplos Grátis
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 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
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 719
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio em 15/9/2018, 17:56

    Continua dando erro, vou prepara o exemplo para colocar aqui.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    Vários Exemplos Grátis

    IvanJr.
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  IvanJr. em 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
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 719
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio em 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.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    Vários Exemplos Grátis

      Data/hora atual: 15/10/2018, 20:52