MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]contar registros com select

    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]contar registros com select Empty [Resolvido]contar registros com select

    Mensagem  adriano_byte em 13/5/2014, 19:33

    Eu gostaria de contar os registros de uma tabela usando query ao invés desse Dcount.

    EU passo o seguinte codigo para contar

    dim rs as recordset

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM table WHERE data >= #" & Data5 & "#")
    contaReg = rs.MoveNext
    Me.TxtResultado = "" & contaReg


    Mas infelizmente não conta direito, conta só uma vez, aprece o numero 1 na caixa de texto.


    Seu eu fizer o select da tabela ele não conta os registros da tabela


    Quero contar os registros pela query, o que está errado?

    Obrigado.


    Última edição por adriano_byte em 13/5/2014, 21:39, editado 1 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3525
    Registrado : 04/04/2010

    [Resolvido]contar registros com select Empty Re: [Resolvido]contar registros com select

    Mensagem  Avelino Sampaio em 13/5/2014, 19:57

    Olá!

    On error resume next
    dim rs as recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM table WHERE data >= #" & Data5 & "#")
    rs.MoveLast
    Me.TxtResultado = rs.recordcount
    rs.close
    set rs = nothing


    Aguardamos
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]contar registros com select Empty opa

    Mensagem  adriano_byte em 13/5/2014, 20:07

    com esse rs.MoveLast não funfa, dizendo ele que dá erro de espera de variável..


    Eu coloquei o rs.RecordCount e não deu erro, mas infelizmente só conta uma vez.

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Taboficios WHERE DATA_CRIACAO >= #" & Data5 & "#")
    contaReg = rs.RecordCount
    Me.TxtResultado = "" & contaReg
    rs.Close
    Set rs = Nothing
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3525
    Registrado : 04/04/2010

    [Resolvido]contar registros com select Empty Re: [Resolvido]contar registros com select

    Mensagem  Avelino Sampaio em 13/5/2014, 20:12

    Quem é data5 ?

    faz um teste assim e veja se vai contar:

    On error resume next
    dim rs as recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDatabela")
    rs.MoveLast
    Me.TxtResultado = rs.recordcount
    rs.close
    set rs = nothing


    Bom isso, não faz sentido pois o Dcount() faz a mesma função:

    Teste assim e veja se obtem o mesmo resultado:

    Me.TxtResultado=Dcount("*","NomeDaTabela")

    Aguardamos
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]contar registros com select Empty Dcount sucessfulle

    Mensagem  adriano_byte em 13/5/2014, 21:37

    Avelino, obrigado pela colaboração, agora eu sei usar Dcount e QUery de contagem..

    Abraço.
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]contar registros com select Empty reolvido

    Mensagem  adriano_byte em 13/5/2014, 21:38

    Resolvido.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7371
    Registrado : 05/11/2009

    [Resolvido]contar registros com select Empty Re: [Resolvido]contar registros com select

    Mensagem  Alexandre Neves em 13/5/2014, 22:10

    Boa noite, adriano
    Não altere o título. O título é um resumo do assunto e não faz parte do corpo da mensagem
    Para marcar Resolvido, existe um botão apropriado na zona inferior direita do formulário do fórum


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]contar registros com select Empty sim

    Mensagem  adriano_byte em 13/5/2014, 22:13

    Estarei verificando.

    Conteúdo patrocinado

    [Resolvido]contar registros com select Empty Re: [Resolvido]contar registros com select

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/10/2019, 20:05