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]Filtro de uma ListBox

    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Filtro de uma ListBox Empty [Resolvido]Filtro de uma ListBox

    Mensagem  Luís Antunes 17/10/2020, 21:23

    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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  crysostomo 18/10/2020, 02:43

    Boa noite Luís Antunes.
    Seque o anexo.
    Abçs
    Anexos
    [Resolvido]Filtro de uma ListBox AttachmentFiltrarLista .zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 30 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  DamascenoJr. 18/10/2020, 04:12

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

    Aguardamos...


    .................................................................................
    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.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  Luís Antunes 19/10/2020, 21:14

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  DamascenoJr. 19/10/2020, 21:31

    Anexe seu arquivo.


    .................................................................................
    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.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  Luís Antunes 20/10/2020, 23:05

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

    Luís Antunes
    Anexos
    [Resolvido]Filtro de uma ListBox AttachmentDuvida.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (139 Kb) Baixado 5 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  DamascenoJr. 21/10/2020, 00:58

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

    Fiz os devidos ajustes.
    Anexos
    [Resolvido]Filtro de uma ListBox Attachmentrev_Duvida_removerFiltro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (78 Kb) Baixado 25 vez(es)


    .................................................................................
    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.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  Luís Antunes 21/10/2020, 20:03

    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.

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  DamascenoJr. 21/10/2020, 23:46

    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.


    .................................................................................
    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.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  Luís Antunes 22/10/2020, 14:44

    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"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  DamascenoJr. 23/10/2020, 03:36

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

    [Resolvido]Filtro de uma ListBox Imgggg10

    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.


    .................................................................................
    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.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  Luís Antunes 23/10/2020, 14:20

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  DamascenoJr. 23/10/2020, 18:18

    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?


    .................................................................................
    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.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  Luís Antunes 23/10/2020, 20:14

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  DamascenoJr. 23/10/2020, 21:36

    Veja, mudei a sistemática da coisa. Deixou de ser "filtrar, depois remover o filtro e ficar na mesma posição" para "localizar registro".
    Anexos
    [Resolvido]Filtro de uma ListBox Attachmentrev2_Duvida_removerFiltro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 32 vez(es)


    .................................................................................
    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.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  Luís Antunes 24/10/2020, 14:12

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

    Luís Antunes
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  DamascenoJr. 24/10/2020, 15:40

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    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.

    Conteúdo patrocinado


    [Resolvido]Filtro de uma ListBox Empty Re: [Resolvido]Filtro de uma ListBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:05