[Resolvido]Filtro de uma ListBox

Boa noite Mestres

Numa List Box O código "Me.FilterOn = True" filtra o dado do formulário.
Na linha seguinte "Me.FilterOn = False" tira o filtro do form e ordena para o início dos dados-
Ex: filtrei o código 100, quando tiro o filtro regressa ao código 1
Gostaria que, quando tiro o filtro, mantivesse o código 100


Luís Antunes

Boa noite Luís Antunes.
Seque o anexo.
Abçs

Assunto batido. Usei a ferramenta de busca do site e encontrei.
https://www.maximoaccess.com/t34273-resolvidoremover-filtro-sem-sair-do-registro-atual

Aguardamos...

DamascenoJr Boa noite

Utilizei o se código mas não deu certo
Agora O form posiciona a ficha no fim.
Utilizo o código (Me.Filter = "Codigo = " & Me!Lista61) para abrir a fica pretendida
Trabalho com o Access 2007

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!Lista61 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


Luís Antunes

Anexe seu arquivo.

Boa noite Damasceno
Junto a bd com o assunto em causa.

Luís Antunes

Você colocou o código de voltar para a posição no lugar do código de filtragem.

Fiz os devidos ajustes.

Boa Noite Damasceno
A filtragem era o que eu já tinha, o pretendo mesmo é quando tiro a filtragem a ordenação não se altere, neste caso posiciona-se no início da ordenação.

Talvez eu não tenha entendido o funcionamento do seu arquivo.

Deixe um passo a passo detalhado de qual formulário deve ser aberto, o que deve ser feito, o que está acontecendo e como você quer que aconteça.

Boa Tarde Damasceno

Na sua mensagem nº 3 deu-me um linke (https://www.maximoaccess.com/t34273-resolvidoremover-filtro-sem-sair-do-registro-atual)
que fui consultar, e a questão de gilberlanio é precisamente a minha. Passo a citar:"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 registo e queria que ficasse no registo actual".
A minha dificuldade foi não ter conseguido que o códigos, postados. por si e por Alexandre Neves, funcionassem.


Luís Antunes

PS. Na BD que postei, para a listbox ficar preenchida tem que seleccionar a combox "Rubrica"

Veja, filtre e depois desfiltre clicando no botão da imagem abaixo



pra mim está funcional: o filtro é retirado e o formulário vai para a posição do registro que estava na tela quando o filtro estava ativo. Caso mais algum membro queira testar e ajudar no tópico, fique a vontade.

A você Luis, boa sorte e bons estudos.

Boa tarde Damasceno

Funciona só que, no meu projecto só se vê o formulário, isto é não tenho acesso aos menus.

Luís Antunes

Uma informação importante que deveria ser passado de início para que não perdêssemos tempo até descobrir.

Para evitar perdermos tempo novamente, por favor, nos diga como você faz para remover o filtro DO FORMULÁRIO?

Boa noite Damasceno

Nos botões avançar, recuar, para o início, e para o fim utilizo o código
Me.FilterOn = False
   DoCmd.GoToRecord , , acNext, acPrevious, acLast e acFirst .
Estes são os comandos que o utilizador usa para desligar o filtro.


Luís Antunes

Veja, mudei a sistemática da coisa. Deixou de ser "filtrar, depois remover o filtro e ficar na mesma posição" para "localizar registro".

Boa tarde Damasceno
Ficou óptimo apenas com uma linha de código!
Fico-lhe muito grato pela sua ajuda

Luís Antunes

O fórum agradece o retorno. Sucesso.