Ajuda VBA Localizar - Adaptação do Fabio Paes

Olá amigos, preciso de ajuda em um VBA localizar, adaptação do FAbio Paes

Eu preciso que o VBA localize texto em um campo, somente nos dados filtrados

mas quando insiro os dados de pesquisa, da o VBA filtra inclusive dados de outros campos (IDs não incluso no filtro)

segue fotos e o BD

Boa noite,

Tente assim:

No Form "Pesquisa" Altere a origem da ListView para:

Código:

SELECT Perguntas.Código, Perguntas.IdMateria, Perguntas.Idparcial, Perguntas.Pergunta FROM Perguntas  WHERE (((Perguntas.IdMateria) Like Nz(Forms!Entrada.Materia,"*")) And ((Perguntas.Idparcial) Like Nz(Forms!Entrada.parcial,"*")) And ((Perguntas.Pergunta) Like "*" & Forms!FrmPesquisa.txtnome & "*")) ORDER BY Perguntas.Código;

Ainda no Form "Pesquisa" Coloque os seguintes códigos de eventos do controle txtnome:

Código:

Dim cSpace 'Variável no topo do módulo do formulário
Private Sub txtnome_Change()
    If cSpace= 1 Then
        cSpace= 0
    Else
        Me.Recalc
        Me.txtnome.SelStart = Len(Me.txtnome.Text)
    End If
End Sub

Private Sub txtnome_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then
        cSpace= 1
    End If
End Sub

E ainda, altere no Form "Entrada" a origem dos dois listviews:

Materia

Código:

SELECT Materias.IdMateria, Materias.Abrev FROM Materias ORDER BY Materias.IdMateria, Materias.Abrev;

parcial

Código:

SELECT Parciais.Idparcial, Parciais.parcial FROM Parciais ORDER BY Parciais.Idparcial;

Espero que ajude

Amigo, agradeço a colaboração. Não vou ter tempo hoje para inserir o codigo, então vou tentar amanhã e retorno. Abraços.

olá Lívio, retornei a edição, inseri os codigos, creio que no local certo indicado, mas não consegui, ou deu erro.

segue  o BD.

O arquivo que mandou está sem as alterações. Segue anexo das alterações que fiz.

Grande Livio, deu certo. Mas se possível agora, me ajude a colocar a palavra dupla na pesquisa, porque como vou usar para doenças, e assuntos parecidos
seria legal, achar a palavra ou frase, a caixa de digitação não está aceitando espaçamento. Mas já está 99% do que eu queria. Te agradeço amigo.

Segue o arquivo agora, já montando, com a pesquisa infiltrada no subform.

para vc testar, o que estou dizendo, selecione no inicio 2 e 2

ae escreva na pesquisa no subform flashcard, tipo tuberculose primaria e tuberculose secundaria

exemplo apenas, mas seria legal que funcionasse com qualquer frase.

Agradeço, desde já, sabe muito cara.

Boa noite Roberto,

Acredito que você tenha excluído a declaração da variável cSpace ao fazer as alterações.

Para corrigir esse problema do espaço, declare-a novamente logo após a instrução "Option Compare Database" no topo do módulo "Form_FrmPesquisa":

Form_FrmPesquisa

Código:


Option Compare Database
Dim cSpace As Integer