[Resolvido]Ajuda para implantar contador no formulário

Boa noite a todos, alguém poderia ajudar neste contador?

Gostaria de quando começar a digitar na caixa de texto ( txt_nome )  e for filtrado lst_nomes, seja retornado a quantidade de registro encontrados na caixa txtTot1, coloquei um exemplo de um arquivo que tenho, pois foi um amigo que me forneceu, mas não consegui adaptar, não funciona, o exemplo está no arquivo contador.mdb e o que gostaria que fosse implantado é no amanda. mdb, nos formulários pesquisa e pesquisa2.
Obrigada Amandaalves


segue link do downloads:


https://www.dropbox.com/s/02peoklwut4szay/AgendaContador.rar?dl=0

Amanda


Na propriedade de evento Ao Alterar da caixa de texto txt_nome, adicione a linha em azul:


Private Sub txt_nome_Change()
If VarTecla = 1 Then
VarTecla = 0
Else
Me.Recalc
'SendKeys "{F2}" ' usado para windowns xp
Me.txt_nome.SelStart = 255 ' usado no windowns vista
'Acrescentei a linha de baixo ---- Noobezinho
Me.txtTot1 = Me.lst_nomes.ListCount
End If
End Sub

Oi Noobezinho, obrigada pela dica deu certo, só estou tentando mais uma coisa para ficar pratico e não consegui poderia me dar mais uma ajuda, para implantar.

É o seguinte tenho um código na minha caixa de texto que quando começo a digitar aparece a lblTot1 e txtTot1 , até ai tudo bem o que eu gostaria que acontece é assim quando eu começo a digitar vai aparecer, e se por um acaso eu precisar apagar o que está escrito ele ficasse oculta novamente aguardando nova digitação na txt_nome
Obrigada novamente

O código na minha caixa de texto:

Private Sub txt_nome_AfterUpdate()
lst_nomes.Requery

'Me.lst_nomes.Requery

If Me.lst_nomes.ListCount <> 0 Then
   Me.lst_nomes.Visible = True
   Me.lblTot1.Visible = True
   Me.txtTot1.Visible = True
 
Else
   Me.lst_nomes.Visible = False
    Me.lblTot1.Visible = False
    Me.txtTot1.Visible = False
End If



Me.txtTot1 = lst_nomes.ListCount
End Sub

Veja se é isso que deseja.

O código somente deixará a caixa de texto txt_nome e seu rótulo invisível, quando a lst_nomes não tiver registros.
Note que se tiver digitando e apagar letra por letra (backspace), ao chegar no inicio da textbox, a lstNomes será povoada
por todos os registros.

Private Sub txt_nome_Change()
If VarTecla = 1 Then
  VarTecla = 0
Else
  Me.Recalc
  'SendKeys "{F2}" ' usado para windowns xp
  Me.txt_nome.SelStart = 255 ' usado no windowns vista
 
  Me.lst_nomes.Requery
  Me.txtTot1 = Me.lst_nomes.ListCount

  If IsNull(Me.txtTot1) Or Me.txtTot1 = 0 Then
     Me.txtTot1.Visible = False
     Me.Rótulo90.Visible = False
  Else
     Me.txtTot1.Visible = True
     Me.Rótulo90.Visible = True
  End If

End If
End Sub

Boa tarde, desculpe a demora em responder, mas só agora voltei a trabalhar.

Amigo do jeito que mencionou eu já tinha feito, o que gostaria é que se fosse apagando letra N letra por letra (backspace), ao chegar no inicio da textbox, gostaria que voltasse a ficar oculto lblTot1 txtTot1 e só aparecer se começar digitar novamente.

Obrigada novamente

Pense bem

Quando a texbox está vazia, a lst_nomes está com todos os registros.
Portanto, a txtTot1 irá exibir o total de registros.
Digite qualque coisa que não tenha na lst_nomes e verá que
a txtTot1 e seu rótulo não são exibidos.

Oi Noobezinho, vi o que o amigo propos era isso, será que não tem como se apagar a txt_nome a lst_nomes ficar vazia?, pois assim faria o efeito que desejo, é só uma pergunta, pois não entendo de programação.
Obrigada Amandaalves

Experimente acrescentar a linha em azul:

Private Sub txt_nome_Change()
If VarTecla = 1 Then
  VarTecla = 0
Else
  Me.Recalc
  'SendKeys "{F2}" ' usado para windowns xp
  Me.txt_nome.SelStart = 255 ' usado no windowns vista
  'Acrescentei a linha de baixo ---- Noobezinho
  Me.lst_nomes.Requery
  Me.txtTot1 = Me.lst_nomes.ListCount
 
  If IsNull(Me.txt_nome) Then Me.txtTot1 = 0
     

  If IsNull(Me.txtTot1) Or Me.txtTot1 = 0 Then
     Me.txtTot1.Visible = False
     Me.Rótulo90.Visible = False
  Else
     Me.txtTot1.Visible = True
     Me.Rótulo90.Visible = True
  End If

End If
End Sub

Oi Noobezinho, acabei de ver sua dica já implementei ficou perfeito, muito obrigada de coração.
Grande abraço Amandaalves

Ótimo Amanda !

Valeu o retorno! (ambos )

Boa sorte !