[Resolvido]Acesso ao mesmo Relatorio por outros Forms

Ola,
Tenho 5 Forms Iguais e atraves do primeiro consigo acessar um determinado Relatorio para imprimir.
Neste relatorio na fonte de registro referente ao campo IdProduto, coloquei o seguinte crieterio:

[Formulários]![frmPDV]![txtidVenda] Ou [Formulários]![frmPDV2]![txtidVenda] Ou [Formulários]![frmPDV3]![txtidVenda] Ou [Formulários]![frmPDV4]![txtidVenda] Ou [Formulários]![frmPDV5]![txtidVenda]

Acontece que se eu carregar apenas um dos PDV, por exemplo o primeiro ( PDV ) dara uma mensagem :

Inserir valores de parametros para cada um dos outros PDV que nao estao rodando. Dou OK e entao aontece o carregamento normal do Relatorio condizente ao PDV que foi carregado.

Terei que criar um Relatorio identivo para cada PDV ou existe uma forma para a funcao " OU " funcionar ?

Grato

Andre

Olá Boa tarde,
eu tenho um código que verifica se o formulário está aberto.

Código:

Function IsLoaded(ByVal strFormName As String) As Integer
' Retorna True se o formulário especificado estiver aberto
' no modo Formulário ou no modo Folha de Dados.
Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If
End Function


você pode estar colocando esse código dentro de um módulo.
e coloca esse código na consulta do relatório.

Código:

SeImed(IsLoaded("frmPDV");[Formulários]![frmPDV]![txtidVenda];SeImed(IsLoaded("frmPDV2");[Formulários]![frmPDV2]![txtidVenda];SeImed(IsLoaded("frmPDV3");[Formulários]![frmPDV3]![txtidVenda];SeImed(IsLoaded("frmPDV4");[Formulários]![frmPDV4]![txtidVenda];SeImed(IsLoaded("frmPDV5");[Formulários]![frmPDV5]![txtidVenda])))))

esse código vai estar verificando qual desses formulário estão aberto e vai filtrar pelo que estiver aberto.
espero ter ajudado qualquer dúvida estamos aqui.

Olá fazerbem,

Veja se te atende: Cada formulário poderá imprimir um mesmo relatório com sua respectiva tabela, ou seja, a tabela de cada formulário. Por exemplo, se o formulário 1 estiver aberto e a sua fonte de dados for a tabela A, seu relatório será com a tabela A. Se for o formulário 2 que estiver aberto e a sua fonte de dados for a tabela B, seu relatório será com a tabela B etc. Criei um módulo com uma única função para este algoritmo.

Código:

Public Function ImprimeRelatorio()
Dim Db As Database
Set Db = CurrentDb
On Error GoTo Err_Handler
If CurrentProject.AllForms("Teste").IsLoaded Then
DoCmd.OpenReport "Teste", acViewPreview, , , acDialog
ElseIf CurrentProject.AllForms("Teste2").IsLoaded Then
DoCmd.OpenReport "Teste", acViewPreview, , , acDialog
Else
DoCmd.OpenReport "Teste", acViewPreview, , , acDialog
End If


Exit_ImprimeRelatorio:
Set Db = Nothing
Exit Function
Err_Handler:
MsgBox "Error #: " & Err.Number & vbNewLine & Err.Description
Resume Exit_ImprimeRelatorio
End Function


Na abertura do relatório:

Código:

Private Sub Report_Open(Cancel As Integer)

If CurrentProject.AllForms("Teste").IsLoaded Then
Me.RecordSource = "SELECT * FROM tblTeste"
ElseIf CurrentProject.AllForms("Teste2").IsLoaded Then
Me.RecordSource = "SELECT * FROM tblTeste2"
Else
Me.RecordSource = "SELECT * FROM tblTeste3"
End If
End Sub

Obrigado aos dois amigos !

Andre

Olá fazerbem,

O fórum todo agradece seu retorno.

Adquira os livros para dominar o Access VBA:

Para iniciante:
https://www.maximoaccess.com/t32310-segundo-livro-publicado-do-good-guy-domine-o-access-vba-para-iniciantes-na-programacao

Para usuário avançado:
https://www.maximoaccess.com/t29536-livro-publicado-tecnicas-especiais-de-access-vba-da-autoria-de-good-guy