MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Contador de resultados

    avatar
    Jefferson Jr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 10/03/2016

    [Resolvido]Contador de resultados Empty [Resolvido]Contador de resultados

    Mensagem  Jefferson Jr 20/4/2016, 13:04

    Digamos que eu tenha uma tabela de cadastro por exemplo com 100 registros.

    Ao fazer uma consulta por critérios, apenas 32 registros apresentam os critérios da consulta e são listados em um ListBox.

    Como fazer um Label que mostro o total de resultados encontrados?    Ou seja, nesse caso o Label iria mostrar o número 32 e assim sucessivamente dependendo da quantidade de resultados da consulta...

    Alguém pode me ajudar?


    Última edição por Jefferson Jr em 27/4/2016, 12:58, editado 1 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Contador de resultados Empty Re: [Resolvido]Contador de resultados

    Mensagem  Silvio 20/4/2016, 14:46

    Boas.....

    Crie uma caixa de texto, de a ela o nome de:txtresultado
    Depois ao final do código de tua pesquisa insira o seguinte comando


    Me.txtresultado = "Foram encontrados " & (Me.nome_da_sua_listbox.ListCount) & " registros."

    Bons estudos.
    avatar
    Jefferson Jr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 10/03/2016

    [Resolvido]Contador de resultados Empty Re: [Resolvido]Contador de resultados

    Mensagem  Jefferson Jr 20/4/2016, 16:34

    Não entendi amigo...

    Coloco onde esse código?

    Seleciono o txt da pesquisa e adiciono no evento chage dele?
    Ou coloco no "Após Atualizar" do listbox?

    Fiz do jeito q vc postou e nao funcionou não...

    Prefiro que essa contagem de resultados seja mostrado em uma "Label".

    To te mandando o link do meu BD...
    https://www.dropbox.com/s/1vbloqwmagl00ph/testandoMODELO1.rar?dl=0
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Contador de resultados Empty Re: [Resolvido]Contador de resultados

    Mensagem  Silvio 20/4/2016, 21:06

    Feito no teu sistema.....


    Private Sub txtBairro_Change()
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Recalc
    SendKeys "{F2}"
    Me.txtresultado = "Foram encontrados " & (Me.Lista21.ListCount) & " registros."
    End If
    End Sub
    avatar
    Jefferson Jr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 10/03/2016

    [Resolvido]Contador de resultados Empty Re: [Resolvido]Contador de resultados

    Mensagem  Jefferson Jr 25/4/2016, 14:10

    MUUUUUITO OBRIGADO!!

    Resolveu meu problema!

    Conteúdo patrocinado


    [Resolvido]Contador de resultados Empty Re: [Resolvido]Contador de resultados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 23:25