MaximoAccess

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

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 : 36
    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 : 650
    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
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    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!!! Marcar o tópico como resolvido!!!
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    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!!! Marcar o tópico como resolvido!!!

      Data/hora atual: Ter 26 Set 2017, 06:42