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


2 participantes

    Erro ao filtrar

    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    Erro ao filtrar Empty Erro ao filtrar

    Mensagem  Veríssimo 20/7/2017, 18:34

    Pessoal, tenho um BD contendo cerca de 400 fichas de pessoas que são filtradas de acordo com alguns parâmetros inserido pelo usuário.

    A cada pesquisa ele filtra os registros, exibindo-os em uma lista.

    Até aí tudo bem. O problema ocorre quando, por exemplo, se realiza um filtro e ele resulta em 100 registros na lista e em seguida se realiza outra filtragem que resulta em um número menor.

    Nestes casos ocorre o erro cuja mensagem segue abaixo.


    Erro ao filtrar Sem_ty11

    Utilizo este código:

    Private Sub btAbrirSelecionados_Click()
    Dim filtro As String
    Dim j As Integer
    filtro = "Código in ("
    For Each sel In Me!listaPessoas.ItemsSelected
       j = 1
       filtro = filtro & Me!listaPessoas.ItemData(sel) & ","
    Next
    If j = 0 Then
    MsgBox "Nenhum registro selecionado.", vbInformation, "Atenção"
    Exit Sub
    Else
    filtro = filtro & ")"
    DoCmd.OpenForm "frmDados", , , filtro
    End If
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao filtrar Empty Re: Erro ao filtrar

    Mensagem  Alexandre Neves 20/7/2017, 20:19

    Boa tarde,
    Era melhor ver o código completo, mas tente
    Código:
    For Each sel In Me!listaPessoas.ItemsSelected
      if len("" & Me!listaPessoas.ItemData(sel))>0 then
          j = 1
          filtro = filtro & Me!listaPessoas.ItemData(sel) & ","
      end if
    Next


    .................................................................................
    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
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    Erro ao filtrar Empty Re: Erro ao filtrar

    Mensagem  Veríssimo 24/7/2017, 18:40

    Não deu certo. Falta algo na expressão.

    Conteúdo patrocinado


    Erro ao filtrar Empty Re: Erro ao filtrar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:11