[Resolvido]Definir filtro para emissão de relatório

Boa noite galera.

Tenho a seguinte situação:

No meu BD eu cadastro o vencimento de algus títulos (cauções recolhidas em licitações). Para conferir se há títulos vencidos eu criei um relatório (por meio de consulta) que traz a relação dos títulos cuja data de vencimento é igual ou inferior a data atual.

O sistema que montei funciona assim:

Tem um formulário em que eu cadastro as informações pessoais do licitante. Vinculado a esse formulário há um subformulário onde eu cadastro o valor devido e a data do vencimento do título.

Exemplo:

FORMULÁRIO
Licitante número: 30 (autonumeração)
Nome: Maria da Silva


SUBFORMULÁRIO:
Número de controle do título: 45 (autonumeração)
Valor: R$100,00
Vencimento: 01/05/2010

SUBFORMULÁRIO:
Número de controle do título: 80 (autonumeração)
Valor: R$100,00
Vencimento: 01/07/2010


Veja, ambos os subformulários (45 e 80) estão vinculados ao mesmo formulário (num. 30). Perceba que o vencimento do subformulário cujo número de controle é 45 foi prorrogado pelo número de controle 80. Ou seja, o vencimento de 01/05/2010 foi prorrogado para o dia 01/07/2010.

Considerando que eu emita o relatório hoje (22/06/2010), eu não consigo criar um jeito de no relatório não aparecer o nome da Maria da Silva (o nome dela aparece porque eu não consegui informar para o access desconsiderar o primeiro vencimento).

Alguém tem uma solução para este meu problema? Será que a solução seria eu criar uma rotina (parâmetro) que o relatório compare com a data atual somente a maior data encontrada nos diversos subformulários vinculados a um mesmo formulário? Se sim, como fazer isso?

O seu relatório deve estar vinculado a uma consulta, logo se utilizar o Max para a data de vencimento resolve.

Sim, o meu relatório está vinculado a uma consulta.

Na consulta eu coloquei na "data de vencimento" o seguinte critério: <Agora()

O que é esse tal de "Max"? Como implementar sua dica?

Nota: sou iniciante.

Abra a sua consulta em modo SQL e cole aqui para eu ver.

Conforme pedido...

Nota: "data de vencimento" => VIGENCIA: TÉRMINO


SELECT CADASTRO_CAUÇÃO.[Nº DE CONTROLE], ALTERAÇÃO_CAUÇÃO.[Nº DE CONTROLE (ALT)], CADASTRO_EMPRESA.CNPJ, CADASTRO_EMPRESA.[NOME DA EMPRESA], ALTERAÇÃO_CAUÇÃO.[VIGÊNCIA: TÉRMINO]
FROM CADASTRO_EMPRESA INNER JOIN (CADASTRO_CAUÇÃO LEFT JOIN ALTERAÇÃO_CAUÇÃO ON CADASTRO_CAUÇÃO.[Nº DE CONTROLE] = ALTERAÇÃO_CAUÇÃO.CONTROLE_CAUÇÃO) ON CADASTRO_EMPRESA.Código = CADASTRO_CAUÇÃO.CONTROLE_EMPRESA
WHERE (((ALTERAÇÃO_CAUÇÃO.[VIGÊNCIA: TÉRMINO])<Now()) AND ((CADASTRO_CAUÇÃO.BAIXADO)=No) AND ((CADASTRO_CAUÇÃO.SAÍDA)=No) AND ((ALTERAÇÃO_CAUÇÃO.PRORROGADO)=No))
ORDER BY CADASTRO_CAUÇÃO.[Nº DE CONTROLE];

teste assim, mas sabe que se torna dificil reproduzir as suas tabelas aqui;


SELECT CADASTRO_CAUÇÃO.[Nº DE CONTROLE], ALTERAÇÃO_CAUÇÃO.[Nº DE CONTROLE (ALT)], CADASTRO_EMPRESA.CNPJ, CADASTRO_EMPRESA.[NOME DA EMPRESA], Max(ALTERAÇÃO_CAUÇÃO.[VIGÊNCIA: TÉRMINO]) AS [MaxOfVIGÊNCIA: TÉRMINO]
FROM CADASTRO_EMPRESA INNER JOIN (CADASTRO_CAUÇÃO LEFT JOIN ALTERAÇÃO_CAUÇÃO ON CADASTRO_CAUÇÃO.[Nº DE CONTROLE] = ALTERAÇÃO_CAUÇÃO.CONTROLE_CAUÇÃO) ON CADASTRO_EMPRESA.Código = CADASTRO_CAUÇÃO.CONTROLE_EMPRESA
WHERE (((CADASTRO_CAUÇÃO.BAIXADO)=0) AND ((CADASTRO_CAUÇÃO.SAÍDA)=0) AND ((ALTERAÇÃO_CAUÇÃO.PRORROGADO)=0))
GROUP BY CADASTRO_CAUÇÃO.[Nº DE CONTROLE], ALTERAÇÃO_CAUÇÃO.[Nº DE CONTROLE (ALT)], CADASTRO_EMPRESA.CNPJ, CADASTRO_EMPRESA.[NOME DA EMPRESA]
HAVING (((Max(ALTERAÇÃO_CAUÇÃO.[VIGÊNCIA: TÉRMINO]))<Date()))
ORDER BY CADASTRO_CAUÇÃO.[Nº DE CONTROLE];

Ok já vi seu email e por razões obvias o banco não vai divulgado em site publico.

Qual é o nome da sua consulta que alimenta esse tal de relatório ?

É a CONSULTA_CAUCOES_VENCIDAS ????

É essa mesma.

Nessa consulta eu peço para o access fazer o seguinte roteiro: compare a data atual com a data constante no campo [VIGÊNCIA: TÉRMINO]. Contudo, faça a comparação somente nos registros que não estejam na situação de "baixado", "devolvido" (saída) ou "prorrogado". Para os títulos que não estejam nas situações citadas, se a data do campo [VIGÊNCIA: TÉRMINO] for menor que a data atual, tal registro (cadastro) constará no relatório das cauções vencidas.

Abra essa consulta em mdo SQL, cole isto salve.

Poderá ter de ajustar os nomes dos campos no relatório,,,


SELECT Max(ALTERAÇÃO_CAUÇÃO.[VIGÊNCIA: TÉRMINO]) AS [MáxDeVIGÊNCIA: TÉRMINO], Max(CADASTRO_CAUÇÃO.[Nº DE CONTROLE]) AS [MáxDeNº DE CONTROLE], Max(ALTERAÇÃO_CAUÇÃO.[Nº DE CONTROLE (ALT)]) AS [MáxDeNº DE CONTROLE (ALT)], CADASTRO_EMPRESA.CNPJ, CADASTRO_EMPRESA.[NOME DA EMPRESA]
FROM CADASTRO_EMPRESA INNER JOIN (CADASTRO_CAUÇÃO LEFT JOIN ALTERAÇÃO_CAUÇÃO ON CADASTRO_CAUÇÃO.[Nº DE CONTROLE] = ALTERAÇÃO_CAUÇÃO.CONTROLE_CAUÇÃO) ON CADASTRO_EMPRESA.Código = CADASTRO_CAUÇÃO.CONTROLE_EMPRESA
GROUP BY CADASTRO_EMPRESA.CNPJ, CADASTRO_EMPRESA.[NOME DA EMPRESA], CADASTRO_CAUÇÃO.BAIXADO, CADASTRO_CAUÇÃO.SAÍDA, ALTERAÇÃO_CAUÇÃO.PRORROGADO
HAVING (((Max(ALTERAÇÃO_CAUÇÃO.[VIGÊNCIA: TÉRMINO]))<=Now()) AND ((CADASTRO_CAUÇÃO.BAIXADO)=No) AND ((CADASTRO_CAUÇÃO.SAÍDA)=No) AND ((ALTERAÇÃO_CAUÇÃO.PRORROGADO)=No))
ORDER BY Max(CADASTRO_CAUÇÃO.[Nº DE CONTROLE]);