Início
jibrito 9/4/2012, 22:37Boa noite,
Estou com a seguinte duvida, tenho um formulário "desvinculado" que em modo de estrutura adicionei 3 subformularios, dois deles para introdução de dados e um deles aparece todos os documentos de venda "facturas", que utilisando o filtro do access (botão direito do rato e escolho por exemplo as facturas referentes ao mês de Maio). O que eu pretendia era depois de aplicar o filtro imprimir a informação que está aparecer no formulario, tentei utilizar as seguintes oções:
Macro: [ID_fecho_m]=[Formulários]![apoio_fecho_contabilidade_global]![ID_fecho_m]
ou atraves de "Procedimento de Evento"
Private Sub Comando36_Click()
On Error GoTo Err_cmdRelatorio_Click
Dim stDocName As String
stDocName = "apoio_fecho_contabilidade_global"
DoCmd.OpenReport stDocName, acPreview
Application.Reports(stDocName).FilterOn = Me.FilterOn
Application.Reports(stDocName).Filter = Me.Filter
Exit_cmdRelatorio_Click:
Exit Sub
para os os formularios de introdução de dados funciona na perfeição para o formulário em que aplico filtro, aparecem todos os registos não respeitando o meu filtro.
Gostaria de saber se é possivel fazer o que pretendo e se sim como o fazer. Obrigado desde já pela vossa atenção.
Estou com a seguinte duvida, tenho um formulário "desvinculado" que em modo de estrutura adicionei 3 subformularios, dois deles para introdução de dados e um deles aparece todos os documentos de venda "facturas", que utilisando o filtro do access (botão direito do rato e escolho por exemplo as facturas referentes ao mês de Maio). O que eu pretendia era depois de aplicar o filtro imprimir a informação que está aparecer no formulario, tentei utilizar as seguintes oções:
Macro: [ID_fecho_m]=[Formulários]![apoio_fecho_contabilidade_global]![ID_fecho_m]
ou atraves de "Procedimento de Evento"
Private Sub Comando36_Click()
On Error GoTo Err_cmdRelatorio_Click
Dim stDocName As String
stDocName = "apoio_fecho_contabilidade_global"
DoCmd.OpenReport stDocName, acPreview
Application.Reports(stDocName).FilterOn = Me.FilterOn
Application.Reports(stDocName).Filter = Me.Filter
Exit_cmdRelatorio_Click:
Exit Sub
para os os formularios de introdução de dados funciona na perfeição para o formulário em que aplico filtro, aparecem todos os registos não respeitando o meu filtro.
Gostaria de saber se é possivel fazer o que pretendo e se sim como o fazer. Obrigado desde já pela vossa atenção.
