[Resolvido]Se não digitar nada no formulário, subrelatório não aparece

Prezados bom dia a todos.

Tenho um formulário principal, dentro dele há mais dois subformulários.
Esse subs, estão ligados ao principal pelos campos mestre e filhos.

Criei um relatório, com o formulário principal e os dois sub´s juntos. Ocorre que, se eu não digitar nada de nada nesses dois subformulários, o relatório fica com a lacuna de onde estão.

Porém se eu digitar um ponto, ou espaço em branco o mesmo se mostra.

Já revirei, já olhei os vínculos e ao meu ver está tudo correto.

Alguém pode me dar uma ajuda ?

Grato.

Podes configurar as margens para uma cor, ai já os deves ver, mas sem dados eles costumam ficar ocultos, o que eu costumo fazer é colocá-los o mais pequeno possivel na altura e definir a propriedade ampiável para sim, assim se não houver dados o espaço onde estão fica preenchido pelos outros campos e se houver dados então eles ampliam mostrando o dados e fazendo os outros campos descerem.

Olá, desde já Toyebom...sou lhe grato...
Então.....eu preciso que mesmo vazio, ele apareça para o cliente final.....

Boa tarde,

Veja se o anexo lhe serve, mestre Silvio.



Coloquei os dados referentes ao cabeçalho do sub relatório na sessão Cabeçalho do relatório ao invés de Cabeçalho da página.

Boas Jungli.......

Vou dar uma olhada....eu nunca passei por uma situação dessas...e como sempre há e haverá a primeira vez...então aprendemos.

Vou olhar ele.....e respondo.

Grato.

Jungli, o meu está idêntico ao teu.....em tudo mesmo.

E agora....o que fazer...!

uma opção,

nas tabelas "Sub Tabelas" cirar um campo de auto numeração, dê uma revisada também nos relacionamentos.



estou no aguardo

Boas.....

Estão idênticos mesmo....

Esse problema, é de tirar o sono....Deve e tem que estar passando alguma coisa simples que aos meus olhos eu ainda não me apercebi.

Se tiveres SKype....apicesystem estou por lá para debatermos essa empreitada.

Me diga uma coisa, o meu exemplo funcionou pra ti?

se sim,

poste aqui a parte problemática do teu banco de dados, quero dar uma olhada nele.

ou me envie,

gjraplicativos@gmail.com.

já foi.........deve estar chegando por ai..

abraços.

Bom dia, mestre, lhe enviei o db de volta.

abs.

Posto aqui a solução encontrada pelo amigo Jungli.....

Quando se manda imprimir um relatório com 2 ou mais sub-relatórios, no evento ao imprimir do botão...

Private Sub bt_imprimir_Click()

On Error GoTo AoErro

Dim strDocName As String
Dim strFilter As String
strDocName = "rptos" ' nome do formulario
strFilter = "IDOS=forms!frmos!IDOS" 'filtro aplicado no relatorio

'Aqui realiza um inserção nas tabelas dos subrelatórios
' primeira tabela
CurrentDb.Execute "INSERT INTO TblServTerc ( IdOs ) SELECT TblOS.IdOS FROM TblOS WHERE (((TblOS.IdOS)=" & Me.IdOs.Value & "));"

'segunda tabela.
CurrentDb.Execute "INSERT INTO TblDescServ ( IdOS ) SELECT TblOS.IdOS FROM TblOS WHERE (((TblOS.IdOS)=" & Me.IdOs.Value & "));"

DoCmd.OpenReport strDocName, acViewNormal, , strFilter

'Para evitar a duplicidade e ou conflito de registros exclui-se o que fora inserido antes
'primeira tabela
CurrentDb.Execute "DELETE * FROM TblServTerc WHERE (((TblServTerc.IdOs)=" & Me.IdOs.Value & "));"

'segunda tabela
CurrentDb.Execute "DELETE * FROM TblDescServ WHERE (((TblDescServ.IdOs)=" & Me.IdOs.Value & "));"

AoErro:
Select Case Err.Number
   Case 3061: Resume Next
End Select

End Sub

E funfa perfeitamente,  deixo aqui os meus agradecimentos ao amigo e colega Jungli.