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

    Filtro de uma ListBox

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Filtro de uma ListBox Empty Filtro de uma ListBox

    Mensagem  Luís Antunes em 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
    VIP
    VIP

    Respeito às Regras 50%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  crysostomo em 18/10/2020, 02:43

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


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

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  DamascenoJr. em 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  Luís Antunes em 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  DamascenoJr. em 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

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

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

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

    Respeito às Regras 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  DamascenoJr. em 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
    Filtro de uma ListBox Attachmentrev_Duvida_removerFiltro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (78 Kb) Baixado 13 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  Luís Antunes em 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  DamascenoJr. em 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  Luís Antunes em 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  DamascenoJr. Ontem à(s) 03:36

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

    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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  Luís Antunes Ontem à(s) 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  DamascenoJr. Ontem à(s) 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  Luís Antunes Ontem à(s) 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 100%

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

    Filtro de uma ListBox Empty Re: Filtro de uma ListBox

    Mensagem  DamascenoJr. Ontem à(s) 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
    Filtro de uma ListBox Attachmentrev2_Duvida_removerFiltro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 2 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.

      Data/hora atual: 24/10/2020, 09:48