[Resolvido]Pesquisa com Listview

Bom Tarde!

Tenho um formulário de cadastro que abaixo aparece uma listview informando todos os itens cadastrados, porém, estou enfrentando um problema, já pesquisei aqui no fórum e no Google e não obtive sucesso.

Quando digito o nome ele filtra tranquilo, porém, ele não permite o espaço e não realiza a contagem num campo acoplado.

Segue os códigos utilizados.

Código:

'PERMITE DIGITAR ESPAÇO NO CAMPO PESQUISA
Private Sub Form_KeyPress(KeyAscii As Integer)
'VARIAVEL PARA ESPAÇO
Dim VarEspaco
'32 E O NÚMERO DO ESPAÇO NO TECLADO
If KeyAscii = 32 Then
'1 REPRESENTE O ESPAÇO
VarEspaco = 1
End If
End Sub


Código:

'TODAS A LETRAS MAIUSCULAS
Private Sub txt_empresa_cons_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Código:

'CAMPO DE PESQUISA DA EMPRESA NA LISTVIEW
Private Sub txt_empresa_cons_Change()
'PODERÁ DIGITAR ESPAÇO NO CAMPO EMPRESA
If VarEspaco = 1 Then
    VarEspaco = 0
    Else
        'ATUALIZA A TABELA ABAIXO NA PESQUISA DURANTE A DIGITAÇÃO DE CADA LETRA
        Me.Recalc
        'PERMITE DIGITAR MAIS LETRAS NA PESQUISA
        txt_empresa_cons.SelStart = 255
        
    End If
End Sub


Código:


'ATUALIZA A LISTVIEW
Private Sub Form_AfterUpdate()
Me.list_consulta_empresa.Requery
End Sub

O meu campo acoplado com o contador o código é:

Código:

=Contar([CDC])

Desde já agradeço pela ajuda.

Boa tarde,

Ficou um pouco complicado entender e ver onde está o problema. Coloque o trecho do programa que você está tendo esse problema pra gente conseguir acertar.

Abraço.

Cassio,

Bom Dia!

Segue em anexo o meu arquivo, se você digitar o nome da pessoa e de o espaço para o sobre nome, verá que não funcionará.

Obrigado pela ajuda.

Bom dia,

Seu problema se dá por dois motivos:
1 - Você não setou a propriedade "Visualizar Teclas" como "sim";
2 - A variável "varEspaco" foi definido no escopo da propriedade KeyPress do formulário, e dessa forma ela é "interna" dessa função, não podendo ser acessada por outras funções, como a "txt_nome_cons_Change".

Resolução:

1 - Abra o formulário em modo Design e na guia Evento, no ultimo campo "Visualizar teclas" marque como Sim;

2 - Abra o código do formulário e no topo crie a variável varEspaco, logo abaixo de Option Compare Database. Obviamente apague o "Dim varEspaco" do evento KeyPress.

Se uma variável for ser usada apenas em uma função, definia-a dentro do próprio escopo da função (como voce havia feito com o varEspaco dentro do KeyPress); sempre que uma variável puder ser usada por várias funções dentro do formulário, voce deve criá-la antes de todas as funções, logo abaixo do Option Compare (como eu fiz com o varEspaco). Do mesmo modo, se uma variável puder ser usada em mais de um formulário, você deve criá-la em um módulo global.

Segue seu modelo modificado.

Abraço.

Apenas um Pitaco se me permitem.

Além de visualizar teclas como sim, pode ser colocado apenas um simples linha para dar o espaço entre palavras.

No evento atual ou ao carregar:

Private Sub Form_Current()
Me.KeyPreview = True
End Sub


Penso que fica menos complicado.

Abraços e boa tarde.

Boa tarde Silvio,

Nesse caso (que seria o mesmo que setar a propriedade Visualizar teclas como "sim") por si só não funcionaria, porque o procedimento que ele usou para impossibilitar o uso do espaço nos campos, depende da variável "varEspaço", aí cai em tudo que expliquei anteriormente.

Abraço.

Não necessariamente. Eliminei tudo o que estava a mais e funfa normalmente.

Experimente criar o mesmo que o usuário fez....e apenas coloque o código que eu passei. Vai funcionar.

Boa tarde,

Fiz exatamente isso aqui. Apenas setei o me.PeviewKeys = True no AoCarregar do formulário, e continuou não permitindo o espaço. Só funcionou quando criei a variável no topo do codigo.

De qualquer forma, ficam ai as contribuições, tomara que funcione.

Abraço.

Cassio / Silvio,

Muito obrigado pela ajuda e a disposição. Funcionou perfeitamente a minha pesquisa.

Pessoal,

Segue fosse para colocar campo com um contador, que no momento da pesquisa ele me retorna a quantidade encontrada na listview.

Usei o código no campo =contar (*), porém, trás somente o valor total da listview nunca o valor após a filtragem.

Agradeço a atenção.

Cassio / Silvio,

Estou com um problema, já tentei inúmeras alternativas e não obtive sucesso. Se fosse para colocar um campo com um contador, que no momento da pesquisa ele me retorna a quantidade encontrada na listview.

Usei o código no campo =contar (*), porém, trás somente o valor total da listview nunca o valor após a filtragem.

Agradeço a atenção.

Crie uma caixa de texto desacoplada no teu formulário onde esta e se encontra a tua LstBox.

Coloque nela o nome de....TxtBusca

No evento ao alterar da tua caixa de pesquisa ( ou onde lhe convier ) insira essa rotina:
Me.txtbusca = "Foram encontrados " & (Me.SuaLstBox.ListCount) & " itens."

Sílvio,

Top demais... Muito obrigado pela atenção.

Entretanto, ao digitar no campo pesquisa a contagem sempre está um número a mais, por exemplo, na minha listview tem 4 o resultado aparece 5.

O que poderia ser?

Algo assim...
Me.txtbusca = "Foram encontrados " & (Me.SuaLstBox.ListCount) -1 & " itens."

Silvio,

Valeu demais, deu certo..