[Resolvido]Abrir um relatório de duas formas diferentes

Bom dia.
Estou tentando implementar uma forma onde, ao terminar de preencher o formulário de cadastro e clicar no botão "salvar" o relatório será aberto para que posso imprimí-lo.
Hoje, realizo o cadastro depois clico no menu relatório informo os filtros e clico em "abrir".
Minha intenção é manter as duas maneiras de imprimir o relatório.

No botão Salvar, utilizo este código:

Código:


Private Sub cmdSalvar_Click()
On Error GoTo trata_erro

   '-- Variavel que define o indice do comando
   iCmd = 2

   If iCmd = 0 Then Exit Sub
   
   '-- Grava os dados
   Call fncSalvar
   DoCmd.RunCommand acCmdSaveRecord
   
   '-- Atualiza o registro
   DoCmd.RunCommand acCmdRefresh
   
   '-- Exibe mensagem ao usuário
   MsgBox "Registro gravado com sucesso.", vbInformation, "Mensagem"
   
   '-- Habilita lista
   Me.cboConsulta.Enabled = True
   
   '-- Habilita botoes de comando conform indice do botão (iCmd)
   HabilitarComandos
   
   '-- Desabilita consulta
   Me.TxtData.Enabled = True
   Me.cboConsulta.Enabled = True

   '-- Trava campos para segurança
   TravarCampos
   
   Me.PgId.SetFocus
 
   '-- Define indice de comando para 0
   iCmd = 0
   
   Exit Sub
   
   '-- Limpa campos
   LimparCampos
 
   '-- Limpas as tabelas temporárias
   LimpaTemporario
   
'-- tratamento de erro, quando houver
trata_erro:
   MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
   Exit Sub

End Sub


Para abrir o Relatório, além da consulta com critérios utilizo este código:

Código:


Private Function fncRelDiarias()
Dim stDocName As String
 Dim accobj As AccessObject
 
 On Error GoTo Err_fncRelDiarias

 stDocName = "RelAutoriz"
  
        
 'This function closes the report if the report is open and then re-opens the report.
  Set accobj = Application.CurrentProject.AllReports.Item(stDocName)
  If accobj.IsLoaded Then
    If accobj.CurrentView = acCurViewPreview Then
        DoCmd.Close acReport, stDocName
        DoCmd.OpenReport stDocName, acPreview
    End If
  Else
          DoCmd.OpenReport stDocName, acPreview
  End If

    
Exit_fncRelDiarias:
   Exit Function

Err_fncRelDiarias:
   MsgBox Err.Description
   Resume Exit_fncRelDiarias
End Function


Para abrir eu coloco nas consulta o Como &"*"
para imprimir eu ultilzo esse

Código:

DoCmd.PrintOut acPages, 1, 1, , 1

é somente 1página que quero
ele já vai abrindo e imprimindo.
E no botão salvar depois do recordset vem o printout

Boa tarde,

Então Crysostomo, a parte da impressão eu entendi mas, a questão em como abrir o mesmo relatório através de dois formulários distintos é que está pegando.

Tentar explicar melhor: Tenho um formulário (frmDiarias) onde possuo dois campos (DtSaida e Matricula) e o formulário (Relatórios) com os campos (Data1 e cboFuncionario). Os campos DtSaida e Data1 são o mesmo campo na tabela e os campos Matricula e cboFuncionario outro campo. Daí como colocar critério na consulta que se eu estiver com um dos dois formulários aberto, a consulta adotará o critério referente aos campos.

Boa tarde
1-Tenha a mesma consulta, a partir dos critérios de ambos os formulários
2-Abra o relatório a partir da consulta

Bom dia deste jeito não deu certo.

Campo Matricula da Consulta:

Critério: Como ([formulários]![Formulário1]![cboFuncionario]) & "*"
OU: Como ([formulários]![Formulário2]![matricula]) & "*"

Campo Data:
Critério: Como ([formulários]![Formulário1]![Data1]) & "*"
OU: Como ([formulários]![Formulário2]![DtSaida]) & "*"

O Banco tem muitos Formulários com subformulários, sendo alguns com multiplos vínculos e fica muito complicado separar os objetos envolvidos e, também nao estou conseguindo postar imagem.

Boanoite. Faltou esse
Como "*" & ([formulários]![Formulário2]![DtSaida]) & "*"

Agora pegar por data seria melhor esse:
fazer o nome do campo 

Código:

MinhaData1 : Format([DtSaida];"dd/mm/yyyy")

no critério

Código:

Como "*" & [Forms]![frmPrincipal]![DtSaida] & "*"

Bom dia,

Então Crysostomo, a questão da data, já está rodando beleza. Na verdade, hoje possuo dois relatório idênticos (um para cada formulário) o que na minha leiga opoinião, está pesando o aplicativo. Por isso pensei na possibilidade de chamar um único relatório através de dois formulários distintos.

Boa noite Tauros.
Cara quando eu tenho mais de um relatório com campos parecidos, mas relatórios diferentes (no meu caso aqui é agendamento com formulário) para chamar eu chamo por nome junto com as datas. Se não bater só avisa quem nenhum registro tem.

Código:

If IsNull(Me.CboPaciente) Or Me.CboPaciente = "" Or IsNull(Me.DI) Or Me.DI = "" Or IsNull(Me.DF) Or Me.DF = "" Then
    MsgBox "Há campos em brancos, favor preencher !", vbCritical, " A V I S O ..."
ElseIf Me.DI > Me.DF Then
    MsgBox "A data Inicial não pode ser maior que a data final", vbInformation, "ConsulMed"
    Me.DI = Null
    Me.DF = Null
Else
Forms!FrmBuscaPaciente.Visible = False
DoCmd.OpenForm "FrmLstPaciente"
[u]docmd.repost"relatorio1"[/u]
'DoCmd.Close acForm, "FrmBuscaPaciente"

Me.CboPaciente = Null
Me.DI = Null
Me.DF = Null

em outras ocasiões quando não tem muita coisa eu chamo pelo cbo.Relatorios que me mostra qual relatório quero abrir
Minha cabeça so não voa porque está grudada , de tanta dor de cabeça.
Mas ve se da pra você bolar.
Sucesso

Bom dia e melhoras ai Crysostomo!

Entendi mas, no meu caso, hoje possuo um formulário de cadastro que ao salvar as informações ele abre um relatório (A) e o imprime automaticamente em 2(duas) vias. Possuo um outro formulário onde posso filtrar algumas informações (as mesmas utilizadas como critério no formulário de cadastro) e que abre um relatório (B), idêntico ao (A), onde me dá a opção de imprimir a quantidade de cópia que desejar.

Como eu disse anteriormente, possuo dois formulários distintos e dois relatórios idênticos. O que está pegando, é a estrutura da consulta.

Obrigado