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 em uma consulta baseada em critérios de um formulário

    avatar
    Fábio Melo de Souza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 18/08/2010

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Fábio Melo de Souza em 9/11/2011, 17:03

    Como "contar e atribuir" a contagem de registros a um caixa de Text de uma consulta que tem como critérios o "Ano e o Mes" no formulário e uso a seguinte consulta:

    SELECT ContaExames.IDRegistros, Count(ContaExames.IDPacientes) AS PacAtend, ContaExames.Ano, ContaExames.Mes
    FROM ContaExames
    GROUP BY ContaExames.IDRegistros, ContaExames.Ano, ContaExames.Mes
    HAVING (((ContaExames.Ano) Like [form]![FormExamesMensalEstat]![AnoN]) AND ((ContaExames.Mes) Like [form]![FormExamesMensalEstat]![MesN]));

    Eu preciso atribuir esta contagem a uma caixa de texto no Formulário.

    Grato de antemão.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Alexandre Neves em 9/11/2011, 18:06

    Boa tarde, Fábio, e bem-vindo ao fórum

    Utilize
    Dim Rst as dao.recorset
    set rst=currentdb.openrecordset("SELECT IDRegistros, Count(IDPacientes) AS PacAtend, Ano, Mes FROM ContaExames GROUP BY IDRegistros, Ano, Mes HAVING Ano Like " & [form]![FormExamesMensalEstat]![AnoN]) & " AND Mes Like " & [form]![FormExamesMensalEstat]![MesN] & ";"
    if rst.eof then caixaDeTexto=0 else rst.movelast : caixaDeTexto=rst.recordcount
    set rst=nothing
    avatar
    Fábio Melo de Souza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 18/08/2010

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Fábio Melo de Souza em 9/11/2011, 19:04

    Alexandre boa tarde, obrigado pelas dicas..

    No código abaixo estou recebendo mensagem de erro em "Dim Rst As dao.recordset" - (Erro de Compilação . O tipo não foi definido pelo usuário)

    Private Sub ContaExames()
    Dim Rst As dao.recorset
    Set Rst = CurrentDb.OpenRecordset("SELECT IDRegistros, Count(IDPacientes) AS PacAtend, Ano, Mes FROM ContaExames GROUP BY IDRegistros, Ano, Mes HAVING Ano Like " & [Form]![FormExamesMensalEstat]![AnoN]) & " AND Mes Like " & [Form]![FormExamesMensalEstat]![MesN] & ";"
    If Rst.EOF Then
    Me.PacAtendido = 0
    Else
    Rst.MoveLast: Me.PacAtendido = Rst.RecordCount
    Set Rst = Nothing

    End Sub


    grato
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Alexandre Neves em 9/11/2011, 19:11

    Active o DAO 3.6 (Ferramentas->referências)
    avatar
    Fábio Melo de Souza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 18/08/2010

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Fábio Melo de Souza em 9/11/2011, 19:17

    Já está ativo, e mesmo assim continuo recebendo a mesma mensagem.
    Poderia haver algun outro problema?
    avatar
    Fábio Melo de Souza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 18/08/2010

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Fábio Melo de Souza em 10/11/2011, 19:58

    Alguem mais teria alguma sugestão?

    Grato
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Alexandre Neves em 10/11/2011, 20:28

    verifique se tem referências em conflito (várias referências DAO ou ADO, ...)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Avelino Sampaio em 10/11/2011, 20:40

    Esta faltando um "D" no recorDset

    Dim Rst As dao.recorset
    ...
    ...
    avatar
    Fábio Melo de Souza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 18/08/2010

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Fábio Melo de Souza em 10/11/2011, 21:00

    Avelino grato pela ajuda

    Após esta correção estou recebemdo a m ensagem de "Erro de Compilação....tipo incompatíveis", na área em negrito abaixo.


    Set Rst = CurrentDb.OpenRecordset("SELECT IDRegistros, Count(IDPacientes) AS PacAtend, Ano, Mes FROM ContaExames GROUP BY IDRegistros, Ano, Mes HAVING Ano Like " & [Form]![FormExamesMensalEstat]![AnoN]) & " AND Mes Like " & [Form]![FormExamesMensalEstat]![MesN] & ";"
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Alexandre Neves em 4/8/2012, 19:04

    Não tenho havido continuidade. O assunto passa a Resolvido.

    Conteúdo patrocinado

    [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário Empty Re: [Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 16:37