MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

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

    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1394
    Registrado : 07/12/2011

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

    Mensagem  tauron 3/6/2022, 13:41

    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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

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

    Mensagem  crysostomo 3/6/2022, 22:51

    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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1394
    Registrado : 07/12/2011

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

    Mensagem  tauron 20/6/2022, 19:02

    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.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves 21/6/2022, 18:00

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1394
    Registrado : 07/12/2011

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

    Mensagem  tauron 22/6/2022, 12:30

    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.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

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

    Mensagem  crysostomo 23/6/2022, 23:28

    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] & "*"


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1394
    Registrado : 07/12/2011

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

    Mensagem  tauron 24/6/2022, 12:56

    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.
    Anexos
    [Resolvido]Abrir um relatório de duas formas diferentes AttachmentConsulta2.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (51 Kb) Baixado 13 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

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

    Mensagem  crysostomo 25/6/2022, 00:18

    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.
    [Resolvido]Abrir um relatório de duas formas diferentes Sem_t145

    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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1394
    Registrado : 07/12/2011

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

    Mensagem  tauron 27/6/2022, 14:25

    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.
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1394
    Registrado : 07/12/2011

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

    Mensagem  tauron 28/2/2023, 21:39

    Obrigado

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 08:24