[Resolvido]Elaboração de relatório através de um formulário

Boas, tou aqui com um problema (que conste que estou a iniciar-me em Access)
Tenho uma tabela chmada manutenção e que contém os campos nºorçamento, Versão, DataManutenção e Funcionário.
criei um formulário e queria que neste formulário aparecesse numa ListBox todos os orçamentos que têm de sofrer manutenção dentro de um mês, ou seja, aquelas obras onde tem de ser feita a manutenção durante os próximos 30/31 dias.
outra dúvida é criar um relatório com os productos de determinado orçamento e versão, eu criei um relatório mas aparecem todos os produtos de todos os orçamentos, como faço para filtrar.

obrigado pela ajuda que possam prestar
Abraço.

Você quer que apareça apenas o registro sleccionado, é isso?

Teste assim:

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomeRelatório"
strFilter = "chaveprimária= Forms!nomeformulário!chaveprimária"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Boas.
Para a primeira pergunta eu pensei em fazer um sistema de pesquisa com base em código que vi na net,

Private Sub Combo11_Change()
a = Combo11.Text
End Sub

Private Sub txtPesquisa_Change()
If txtPesquisa.Text = "" Then
ListaFreg.RowSource = ""
Else
If a = "Funcionário" Then
ListaFreg.RowSource = "SELECT [nºFuncionário],[Nome],[NumeroIdentificaçãoFiscal],[SecçãoTrabalho] " _
& "FROM [Funcionário] WHERE [Nome] LIKE'*" & txtPesquisa.Text & "*'"
Else
If a = "Clientes" Then
ListaFreg.RowSource = "SELECT [nºCliente],[NomeCliente],[NumeroIdentificaçãoFiscal],[Contacto] " _
& "FROM [Clientes] WHERE [NomeCliente] LIKE'*" & txtPesquisa.Text & "*'"
Else
If a = "Produtos Gerais" Then
ListaFreg.RowSource = "SELECT [REF],[Nome],[Nomefabricante],[Preço] " _
& "FROM [Outros] WHERE [Nome] LIKE'*" & txtPesquisa.Text & "*'"
Else
If a = "Paineis" Then
ListaFreg.RowSource = "SELECT [REF],[Nome],[PotênciaActiva máxima],[tecnologiaUtilizada], [preçoUnitário] " _
& "FROM [Paineis] WHERE [Nome] LIKE'*" & txtPesquisa.Text & "*'"
Else
If a = "Inversores" Then
ListaFreg.RowSource = "SELECT [REF],[Nome],[Uent],[Pot], [preço] " _
& "FROM [Inversores] WHERE [Nome] LIKE'*" & txtPesquisa.Text & "*'"
Else
If a = "Baterias" Then
ListaFreg.RowSource = "SELECT [REF],[Nome],[tensãoFuncionamento],[capacidadeArmazenamento], [Preço] " _
& "FROM [Baterias] WHERE [Nome] LIKE'*" & txtPesquisa.Text & "*'"
Else
If a = "Reguladores" Then
ListaFreg.RowSource = "SELECT [REF],[Nome],[Imax],[Tecnologia], [Preço] " _
& "FROM [Reguladores] WHERE [Nome] LIKE'*" & txtPesquisa.Text & "*'"
Else
If a = "Fabricante" Then
ListaFreg.RowSource = "SELECT [NFabricante],[Nome],[Morada],[Fabri_Comerc]" _
& "FROM [Fabricante] WHERE [Nome] LIKE'*" & txtPesquisa.Text & "*'"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Aqui ele procura na tabela que eu quiser os elementos que contém as letras que eu puser na text Box,
o que eu queria fazer agora era pesquisar só na tabela manutenção mas em vez de uma text box tinha por exemplo 2 onde eu podia pôr a data inicial de pesquisa e data final, e assim ele pesquisava os orçamentos que estavam compreendidos entre essas datas.

na segunda pergunta é tenho um relatório com muitos registos, alguns que pertencem ao orçamento 1 outros ao orçamento 2,etc, o que eu queria era fazer um relatório só com o 1 ou 2, etc, podendo escolher isso no form.

desculpem se não consigo explicar melhor.
abraço

Boas comunidade, já tenho o meu problema quase resolvido, apenas tenho aqui um erro que não consigo entender o que se passa, neste comando
List11.RowSource = " SELECT * FROM [Manutenção query] WHERE DataManutencao < DateAdd("m", 1, Date()) "

se eu fizer uma query e inserir no código SQL o select acima mencionado, ele funciona, retorna-me os registos que têm data inferior á data actual +1 mês mas ao inserir em vb para colocar os registos numa list dá erro, se eu trocar DateAdd("m", 1, Date() por uma data ele funciona.

podem-me ajudar?

abraço

Essa Data devia referir-se um campo:

DateAdd("m", 1, [camopo que tem a data])

Caro amigo Vieira, o Date() é a data actual do sistema, assim eu vou ter na minha consulta os registos que têm ocorrência durante o próximo mês a contar sempre da data actual.

Então coloque-a num campo, conforme eu coloquei o código.

continua a não dar.
eu tenho o seguinte código:
Private Sub Form_Load()
Dim data As Date
data = Date
List11.RowSource = " SELECT * FROM [Manutenção query] WHERE DataManutencao < DateAdd("m", 1, [data]) "
End Sub

e o programa põe-me a vermelho a linha do list11 e dá um erro que diz "expected: end of statement" e põe a azul o "m"
o que será?