[Resolvido]Como mostrar, via SQL, em duas caixas de textos a qtd de Homens e de Mulheres (tbl Clientes), no formulário principal?

Olá, Equipes!


Boa Noite.  


Por favor, como faço para mostrar a quantidade de Homens e Mulheres, da Tabela Clientes (tenho 2.136 ao total), no Formulário Principal?! Mas preciso, que a Resposta seja dada, via SQL em uma caixa de Texto (Qtd homens) e outra caixa de texto (Qtd mulheres).

Já tentei de tudo; mas infelizmente os exemplos que encontrei na WEB, mostram eu puxando de duas consultas. E consulta para o que preciso, não é bacana.  


Encontrei estes 2 exemplos que bati várias vezes, e não deu certo. (

Opção 1 de contagem:
=Contar(iif([tblClientes]![Cliente_sexo]="M";1;""))


Opção 2 de contagem:
aqui = "SELECT count (Cliente_sexo) FROM tblClientes "
aqui = aqui & "WHERE Cliente_sexo =  "M";
Me.CampoHomem = aqui


Um forte Abraço,
Guilherme

Amigo, segue o código testado

Código:


Private Sub Form_Load()
Call atualizaTotalHomens
Call atualizaTotalMulheres
End Sub

Sub atualizaTotalHomens()
'Pegar total usando DCount
Me.txtTotalHomens = DCount("Cliente_Sexo", "tblClientes", "Cliente_Sexo = 'M'")
End Sub

Sub atualizaTotalMulheres()
'Pegar total usando SQL
Dim sql As String
sql = "SELECT Count(Cliente_Sexo) FROM tblClientes WHERE ((Cliente_Sexo)='F')"
Me.txtTotalMulheres = CurrentDb.OpenRecordset(sql).Fields(0).Value

End Sub



Antes de incluir esse código no formulário eu renomeei os campos que vão receber os dados.
No teste que fiz aqui ele retornou 833 homens e 1303 mulheres. Conferi com os dados da tabela e estão corretos.
Eu fiz de duas formas diferentes pra você escolher a que melhor o atender.

Espero ter ajudado.

Caracas.... renpv!!!!      


PERFEITO!!!!!!!!!!!!!!!!!!!      


OBRIGADÃO!!!!        



Um forte e fraterno Abraço!!!
Guilherme B. Pereira

O fórum agradece o retorno. Bons estudos.