[Resolvido]Como filtar dados ao digitar neste Exemplo

Boa tarde

As duvidas vão explicadas no Form de abertura

Obrigado

Assis

Tudo bem rapaz??

Você está filtrando pelo nome e quer também filtrar por sexo ao mesmo tempo?
Você disse ao digitar "Assis" o contador passa para um.
Mas acho isso estranho poi o registro Assis não existe na tabela.
Explique melhor por favor

Abraços

Balem

Então
Ao abrir o form tem 2 pacientes
Tem o Anibal Assis
Tem a Maria do Carmo

Tem 1 masculino
Tem 1 Feminno.

Percentagem 50% Masculino
Percentagem 50% Feminino


DEpois de digitar no campo amarelo "Assis"

Passa a ter no SubFormulario só Anibal Assis

Devia passar a ter só 1 masculino
Percentagem 100% Masculino
0% Feminino

Assis

Usando teu próprio código.

Talvez possa melhora-lo:

Código:


Private Sub localizartexto_Change()
Dim Rst As DAO.Recordset
Dim RstMasc As DAO.Recordset
Dim RstFem As DAO.Recordset
Dim C As String, X As String

X = Me.localizartexto.Text
C = " where nome like '*" & X & "*' or dteBirthdate like '*" & X & "*' or localidade like '*" & X & "*'or Endereço like '*" & X & "*'or cidade like '*" & X & "*' or [UTENTE] like '*" & X & "*'"
Me.VerPacientes.Form.RecordSource = "select * from [Pacientes Consulta]" & C




Set Rst = Me.VerPacientes.Form.RecordsetClone
   

    Rst.Filter = "Sexo='Masculino'"
    Set RstMasc = Rst.OpenRecordset
    If RstMasc.RecordCount > 0 Then RstMasc.MoveLast: RstMasc.MoveFirst
    Me.VerPacientes.Form!Masculino = RstMasc.RecordCount

    Rst.Filter = "Sexo='Feminino'"
    Set RstFem = Rst.OpenRecordset
    If RstFem.RecordCount > 0 Then RstFem.MoveLast: RstFem.MoveFirst
    Me.VerPacientes.Form!Feminino = RstFem.RecordCount

 
    If Rst.RecordCount = 0 Then
        Me.VerPacientes.Form!PercentMasc = "0 %"
        Me.VerPacientes.Form!PercentFem = "0 %"
    Else
        Me.VerPacientes.Form!PercentMasc = Format(RstMasc.RecordCount / Rst.RecordCount, "0.## %")
        Me.VerPacientes.Form!PercentFem = Format(RstFem.RecordCount / Rst.RecordCount, "0.## %")
    End If
    Set Rst = Nothing
    Set RstMasc = Nothing
    Set RstFem = Nothing

End Sub


A mudança acontecerá após o segundo caractere ser digitado.

Abraços

Obrigado Balem

Perfeito Rapaz

Veja uma técnica diferente. Sem a programação.

Bom estudo!

Obrigado Avelino

Esta vai para o baú dos exemplos de contar