[Resolvido]Mostrar registros

Pessoal,
No arquivo em anexo, criei uma consulta “qryVencidos “, na qual inseri dois critérios, um no campo Data (<=Data()) e outro no campo Situação (“Cartório”), para que consultasse os inquéritos que estão em Cartório e com a data de vencimento esgotada.
Com essa consulta, criei um formulário “frmVencidos” para que abrisse e exibisse os inquéritos em Cartório e com a Data de Vencimento esgotada.
A consulta está funcionando perfeitamente, pois ao abrir o form "frmVencidos", o seletor de registros indica os registros da consulta, entretanto, na lista do referido form "frmVencidos" aparecem todos os registros e não somente os indicados no seletor de registros.
Já tentei de todas as formas, mas ainda não consegui fazer com que na lista apareça somente o resultado da consulta e não todos os registros.
Não sei isso se faz via VBA ou nas propriedades do proprio form.
Espero a ajuda de vocês.

Amigo,

Tentei abrir o arquivo e não consegui! Está no formato 2010?

O ideal e colocar no 2007, visto que nem todos tem o 2010.

Tentei ajudar...mas....

Resolvido

Resolveu? Como?

Lembre-se a sua dúvida pode ser a de outra pessoa!

Na função fncCarregalista que foi acrescentado o filtro na condição WHERE como segue:


Private Sub fncCarregaLista(Optional filtro As String = "id > 0")
Dim strSql As String
strSql = "SELECT id, format(inquerito,'000/00'), dataDevencimento, iif(flagrante=0,' ','x'), iif(cota=0,' ','x'),vítima,indiciado, natureza, format(processo,'0000/00'), vara, "
strSql = strSql & "situação, iif([situação]='fórum',1,iif([situação]='cartório',1,3)) as ord FROM tblInqueritos "
strSql = strSql & "WHERE situação='cartório' and datadevencimento <= date() AND " & filtro & " ORDER BY (iif([situação]='fórum',1,iif([situação]='cartório',1,2))), datadevencimento;"
Me!Lista.RowSource = strSql
End Sub

Agora sim!!!

O fórum agradece pelo retorno