MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  gilberlanio em Sex 14 Set 2018, 23: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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

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

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em Sab 15 Set 2018, 06: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
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  gilberlanio em Sab 15 Set 2018, 08: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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

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

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em Sab 15 Set 2018, 11: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
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  gilberlanio em Sab 15 Set 2018, 13:56

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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. em Sab 15 Set 2018, 17: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
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  gilberlanio em Seg 17 Set 2018, 22: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.


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis

      Data/hora atual: Seg 30 Nov 2020, 20:45