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

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

    avatar
    FabianaOli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabianaOli 25/2/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
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Clebergyn 28/2/2015, 02:07

    da para postar o seu banco zipado ou parte dele
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cleverson_manaus 5/3/2015, 18:26

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


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cleverson_manaus 5/3/2015, 18:28

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


    .................................................................................
    afro

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:40