... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Visualizar relatórios em Subformulário

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!


 

 


Não há comentário

Envie seu comentário: