MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Relatório a partir de filtro de formulário e subformulário

    Compartilhe

    FabianaOli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 33
    Registrado : 09/09/2013

    Relatório a partir de filtro de formulário e subformulário

    Mensagem  FabianaOli em Qua 25 Fev 2015, 03:22

    Por gentileza, gostaria de auxílio para fazer um relatório que produza os dados filtrados a partir de um Formulário. Montei um formulário para que o usuário possa selecionar, mediante um Quadro, um determinado campo e o subformulário apresenta o resultado desta consulta. Porém, gostaria de saber como fazer o código para emitir um Relatório que apresente os mesmos dados do subformulário. Obrigada.

    Código do SubFormulário:


    Option Compare Database
    Option Explicit
    Private Sub cmdImprimir_Click()
    On Error Resume Next
     Dim strDocName As String
     Dim strFilter As String
     strDocName = "RelatorioconsLocOficio"
     strFilter = "CodigoOficio=forms!FormconsLocOficio!CodigoOficio" 'filtro aplicado no relatorio
     

     DoCmd.SetWarnings False
     DoCmd.OpenReport strDocName, acViewPreview, , strFilter
     DoCmd.SetWarnings True
    End Sub

    Private Sub Quadro6_AfterUpdate()
       txtDiversos.SetFocus
    End Sub
    Private Sub txtDiversos_Change()
       Dim filtro As String
       
      Select Case Quadro6
       
       Case 1
           txtDiversos.SetFocus
           If Len(Me!txtDiversos.Text & "") = 0 Then
           'Se não há nada digitado, remove o filtro
               Me!FormconsLocOficio.Form.Filter = ""
               Me!FormconsLocOficio.Form.FilterOn = False
           Exit Sub
           
           End If
           
           filtro = "[CodigoOficio] like '*" & Me!txtDiversos.Text & "*'"
           Me!FormconsLocOficio.Form.Filter = filtro
           Me!FormconsLocOficio.Form.FilterOn = True
       
       Case 2
           txtDiversos.SetFocus
           If Len(Me!txtDiversos.Text & "") = 0 Then
           'Se não há nada digitado, remove o filtro
               Me!FormconsLocOficio.Form.Filter = ""
               Me!FormconsLocOficio.Form.FilterOn = False
           Exit Sub
           
           End If
           
           filtro = "[Abrev] like '*" & Me!txtDiversos.Text & "*'"
           Me!FormconsLocOficio.Form.Filter = filtro
           Me!FormconsLocOficio.Form.FilterOn = True

    End Select
    End sub

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: Relatório a partir de filtro de formulário e subformulário

    Mensagem  clebergyn em Sab 28 Fev 2015, 02:07

    da para postar o seu banco zipado ou parte dele

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 23/09/2011

    Re: Relatório a partir de filtro de formulário e subformulário

    Mensagem  cleverson_manaus em Qui 05 Mar 2015, 18:26

    Brother pessoalmente prefiro montar meus relatórios em cima de consultas onde posso incluir critérios e assim filtrar


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Tópico resolvido!!!!

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    Registrado : 23/09/2011

    Re: Relatório a partir de filtro de formulário e subformulário

    Mensagem  cleverson_manaus em Qui 05 Mar 2015, 18:28

    Tô fora assim que chegar em casa te passo um exemplo


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Tópico resolvido!!!!

      Data/hora atual: Sab 10 Dez 2016, 12:37