MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

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

    Mensagem  grbpereira em Qui 09 Jan 2020, 02:41

    Olá, Equipes!


    Boa Noite.  cheers


    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). study

    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. scratch  scratch


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

    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
    Anexos
    [Resolvido]Como mostrar, via SQL, em duas caixas de textos a qtd de Homens e de Mulheres (tbl Clientes), no formulário principal? AttachmentContagem de Clientes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 6 vez(es)
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

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

    Mensagem  renpv em Qui 09 Jan 2020, 13:38

    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.
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

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

    Mensagem  grbpereira em Qui 09 Jan 2020, 13:53

    Caracas.... renpv!!!! Shocked  Shocked  Shocked  Shocked


    PERFEITO!!!!!!!!!!!!!!!!!!! affraid  affraid  affraid  affraid


    OBRIGADÃO!!!! cheers  cheers  cheers  cheers  cheers



    Um forte e fraterno Abraço!!!
    Guilherme B. Pereira
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

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

    Mensagem  renpv em Qui 09 Jan 2020, 16:07

    O fórum agradece o retorno. Bons estudos.

      Data/hora atual: Ter 01 Dez 2020, 17:58