[Resolvido]Filtrar um relatório através de um formulário prévio

Saudações, amigos.

Tenho um banco de dados dos contratos firmados em meu trabalho, e cada contrato possui uma categoria/equipe diferente. Criei um relatório que lista todos os contratos do BD, mas queria uma opção de filtrar o relatório pelas categorias que o usuário escolher.

Peguei o Maestro do Avelino e fiz praticamente um "copia e cola" modificado no meu arquivo, e ficou parcialmente funcional. Por exemplo, se seleciono a categoria "X", ao clicar no botão de abrir o relatório o sistema pede novamente para informar a categoria "X", e não sei identificar a causa de repetição da pergunta (se eu digito o "X" no parâmetro que o Access pede, o relatório é perfeitamente filtrado).

Como sou muito iniciante e não sei explicar muito sobre o meu problema, anexei aqui o meu arquivo. Meu relatório em questão é o "RelTodosContratos" e o formulário prévio o "NoFormTodosContratos".

Desde já agradeço a atenção!

E aí amigos, alguém consegue me ajudar?

Olá

No meu exemplo original o filtro trabalhava com dados do tipo número.

IN(3,6,15)

No seu caso o filtro está trabalhando com dados do tipo string. É necssário que estejam entre os apóstrofes

IN('AQ','ACQ','LI')

Altera a linha em vermelho para o que esta aqui no exemplo:

Private Sub btRelatorio_Click()
Dim filtro As String
Dim Sel As Variant
Dim j As Boolean

filtro = "in("
For Each Sel In Me!Lista.ItemsSelected
filtro = filtro & "'" & Me!Lista.Column(0, Sel) & "',"
j = True
Next
filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
filtro = "CategoriaContrato " & filtro

If j = False Then
MsgBox "Selecione uma ou mais Categorias de Contrato.", vbInformation, "Aviso"
Me!Lista.SetFocus
Me!Lista = 0
Else
DoCmd.OpenReport "RelTodosContratos", acViewReport, , filtro
End If
End Sub

Sucesso!

Perfeito, grande Avelino! E realmente eu não imaginava que fosse isso...

Obrigado!

Boas... a momentos atrás estava a testar o BD do colega, e não estava a ver solução então na Ajuda do próprio access:

Ao codificar uma instrução SQL que contém o operador In, você deve colocar a lista de itens a testar entre parênteses. Por exemplo, para ver se um valor pertence a um conjunto de valores, você poderia usar o seguinte código na cláusula WHERE de uma consulta SQL:


WHERE Region In ('TX', 'CA', 'WA')


Este código testa para ver se o campo Region contém alguma das abreviações acima, que representam o Texas, a Califórnia e Washington.



E cheguei ao mesmo resultado do Mestre Avelino.


Abraços.

Tá ótimo... Eu tbm tentei dar uma olhada pela ajuda do Access e net afora, mas meu pouco conhecimento não permitiu chegar a uma solução.