Início
Veríssimo 20/7/2017, 18:34Pessoal, 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.
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
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.
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
