[Resolvido]Gerar um relatorio com base em caixas de combinação em cascata

Necessito ajuda!!!

tenho uma tabela denominada "PTD"
e uma outra tabela "obras" que comtêm um campo "PTD" .

Tenho criado um formulário "pesquisa por PTD" com 3 caixas combinação em cascata : Distrito, Concelho, PTD

A ideia seria no final ao filtrar a caixa de combinação "PTD" gerar um relatorio que mostrasse
o registo da tabela obras.

agradecia ajuda por favor.

Boa noite, viega, e bem-vindo ao fórum
Se pretende abrir um relatório com o filtro de registo indicado na caixa de combinação, coloque
docmd.OpenReport "NomeRelatorio",,,"PTD=" & CxcPTD

Obrigado por me ajudar!

Continuo com duvidas...

até aqui tudo bem docmd.OpenReport "Obras - Consulta por PT",,,

depois... não sei que codigo escrever.


tenho uma consulta " Obras - Consulta por PT " vinda da tabela "obras",e
o relatorio da consulta denominado "Obras - Consulta por PT"

se for possivel ajudar agradecia!!!!

Faça uma consulta com os criterios dessas 3 caixas combinação em cascata : Distrito, Concelho, PTD e alimente o seu relatorio com essa consulta.

viva,

o que me foi sugerido é exactamente o que eu tinha feito.

tenho outras caixas de combinação simples em que tudo funciona bem!

deduzo que o problema será de o resultado desta caixa vir filtrado de outras.

Se alguem me puder ajudar, agradecia.

Boa tarde, viegaserra
Se esses dados são específicos, porque não disponibiliza a bd para se ver melhor?

gostaria de colocar aqui a base de dados, mas está com 50mb!!!

então resolvi efectuar alguns printscreen´s para poderem ter uma ideia da base de dados. espero que ajude


mais uma vez obrigado pela vossa disponibilidade...

no slide "capturar 1" mostro a tabela PTD.
no slide "capturar 2" mostro a tabela onde todos os dados sao armazenados.

no slide "capturar 3" a consulta que supostamente iria abrir da caixa de combinação em questão " iria ser " pesquisa por PT" "

no slide "capturar 4 " o formulário com as caixas combo em cascata, em que a origem de controlo das caixas é a tabela "obras" e as origem da linha são as tabelas correspondentes...

para fazer os filtros entre elas utilizei o codigo:

Option Compare Database

Private Sub Caixa_de_combinação67_AfterUpdate()

Me.Caixa_de_combinação69.Requery
Me.Caixa_de_combinação69.SetFocus
End Sub


Private Sub Caixa_de_combinação69_AfterUpdate()

Me.Caixa_de_combinação71.Requery
Me.Caixa_de_combinação71.SetFocus
End Sub

Private Sub Caixa_de_combinação71_AfterUpdate()
Me.Caixa_de_combinação65.Requery
Me.Caixa_de_combinação65.SetFocus
End Sub



no slide "capturar 5" origem da linha da caixa combo ptd no form.

no slide "capturar 6" a consulta supostamente resultante da combo ptd do form consulta por pt "slide 4"

Se não dá para anexar ficheiro, vamos tentar criar código estruturado
Indique:
- que tabelas entram na composição do relatório e como se relacionam
- Que campos, e tipo de dados, quer ter no filtro (indique todos os possíveis)

relatório : contem a tabela "obras" e a tabela "PTD"

a tabela ptd relaciona-se " um-para-muitos" como campo PTD da tabela "obras"

campos da tabela obras a entrar no relatorio : PTD, DATA, DESCRIÇÂO, ACOMPANHANTE DE OBRA
os campos estao todos defenidos como texto menos a DATA.

Elimine a consulta que criou para filtro do relatório
Altere o nome de campo, de Acompanhante de Obra para AcompanhanteDeObra
Crie relatório geral de todos os registos (datas, PTDs, Descrições e Acompanhantes) e designe-o por ListaObras
Crie caixas de combinação no formulário e nomeie-as adequadamente: CxcPTD, CxcData,CxcDescrição, CxcAcompanhanteDeObra
No formulário, coloque código no botão que pretende abrir relatório:

Dim strFiltro as string
strFiltro=""
If Len(CxcPTD &"")>0 Then strFiltro=" and PTD='" & CxcPTD & "'"
If Len(CxcData &"")>0 Then strFiltro=strFiltro & " and Data=#" & CxcData & "#"
If Len(CxcDescrição &"")>0 Then strFiltro=strFiltro & " and Descrição='" & CxcDescrição & "'"
If Len(CxcAcompanhanteDeObra &"")>0 Then strFiltro=strFiltro & " and AcompanhanteDeObra='" & AcompanhanteDeObra & "'"
if len(strFiltro)>0 then strFiltro=Mid(strFiltro,6)
docmd.openreport "ListaObras",,,strFiltro

fiz tudo tal como me indicou!

Resolvido !!!!!!

Um muito obrigado pelo seu tempo e colaboração.