bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Visualizar relatórios em Subformulário

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Visualizar relatórios em Subformulário

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

A partir da versão 2010 do Microsoft Access é possível exibir relatórios, consultas e tabelas, através de um controle Subformulário.  Veja na figura abaixo, um relatório sendo exibido:

Usando Access - exibindo relatório no formulário

Nota: Devemos configurar a propriedade MODO PADRÃO dos relatórios para Visualizar impressão,  a fim de que sejam exibidos pelo Subformulário.

Usando Access - Visualizar Impressão

Agora, observe a lista de Propriedades do controle Subformulário e note que basta selecionarmos desta lista, o objeto que desejamos visualizar na propriedade Objeto de Origem.  Veja ainda que é possível selecionarmos uma consulta ou tabela para que seja exibida pelo Subformulário.

Usando Access - propriedade Obketo de Origem

Podemos definir esta propriedade pelo código VBA e tornar possível a troca de objeto em tempo de execução.

'carregando um relatório
Me!Filho.SourceObject = "Report.NomeDoRelatório"
'carregando uma consulta
Me!Filho.SourceObject = "Requery.NomeDaConsulta"
'carregando uma tabela
Me!Filho.SourceObject = "Table.NomeDaTabela"
'carregando um formulário
Me!Filho.SourceObject = "Form.NomeDoFormulário"

A Listbox do formulário exemplo possui na segunda coluna(oculta), o nome do relatório a ser carregado.  Indicamos então, a segunda coluna da Listbox na propriedade SourceObject do controle Subformulário.

Private Sub Lista_AfterUpdate()
  Me!Filho.SourceObject = Me!Lista.Column(1)
  Me!rot.Caption = Me!Lista.Column(0)
End Sub

Nota:  o formato Snepshot foi descontinuado a partir da versão 2010.

Bom estudo!


 

 


1 comentário(s)

Bruno Gordino   15/08/2017 10:37:36

Boa tarde Sr. Avelino
Existe maneira de ajustar o Zoom do Relatório à janela do Sub-formulário através do;
- DoCmd.RunCommand acCmdFitToWindow
- DoCmd.RunCommand acCmdSizeToFit
Cumprimentos

Bruno Gordino


Envie seu comentário: