MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Relatório com dados subform

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 162
    Registrado : 02/09/2016

    [Resolvido]Relatório com dados subform Empty [Resolvido]Relatório com dados subform

    Mensagem  ictsp em 17/2/2020, 18:26

    Boa tarde!

    Prezados colegas, tenho um subform que filtro conforme as datas por período, conforme imagem abaixo.
    Gostaria de gerar um relatório com os dados dessa filtragem.
    Tentei baixar o exemplo disponibilizado pelo amigo "vieirasoft" (http://dl.dropbox.com/u/8157744/Stella.rar) mas está indisponível.
    Alguém poderia me dar alguma idéia de como fazer isso?
    Desde já, agradeço a ajuda dos colegas.
    [Resolvido]Relatório com dados subform Duvida12
    bondan
    bondan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 30/12/2019

    [Resolvido]Relatório com dados subform Empty Re: [Resolvido]Relatório com dados subform

    Mensagem  bondan em 17/2/2020, 20:53

    Oi.

    Normalmente faço um SQL na fonte de registro do relatório com critério para filtrar o registro, mas dever testar em seu projeto.
    Deixei em anexo um relatório que uso para imprimir o cabeçalho do principal com os registros do sub.
    Espero que te de luz.

    Abraço.

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 162
    Registrado : 02/09/2016

    [Resolvido]Relatório com dados subform Empty Re: [Resolvido]Relatório com dados subform

    Mensagem  ictsp em 18/2/2020, 00:57

    Boa noite bondan!

    Seu relatório não está anexado. Caso tenha disponibilidade, por favor, envia de novo.
    Obrigado!
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 162
    Registrado : 02/09/2016

    [Resolvido]Relatório com dados subform Empty Re: [Resolvido]Relatório com dados subform

    Mensagem  ictsp em 18/2/2020, 18:02

    Boa tarde!

    encontrei este código do amigo Avelino Sampaio que faz exatamente o que eu preciso.
    Porém, meu primeiro filtro é um código numérico "ID". Não estou conseguindo fazer a escrita correta do código na segunda linha. Alguém sabe como fazer?
    Obrigado!!
    Código:
    filtro = ""
    If Not IsNull(strpesquisa) Then filtro = filtro & "Participante LIKE '*" & strpesquisa & "*'" 
    If Not IsNull(Me.cboEP) Then filtro = filtro & " AND EsposaPastor LIKE '*" & Me.cboEP & "*'"
    If Not IsNull(Me.cboSexo) Then filtro = filtro & " AND Sexo LIKE '*" & Me.cboSexo & "*'"
    If Not IsNull(Me.cboEstado) Then filtro = filtro & " AND Estado LIKE '*" & Me.cboEstado & "*'"
    If Not IsNull(Me.cboCidade) Then filtro = filtro & " AND Cidade LIKE '*" & Me.cboCidade & "*'"
    If Not IsNull(Me.txtCPF) Then filtro = filtro & " AND CPF LIKE '*" & Me.txtCPF & "*'"
    If InStr(filtro, "AND") = 2 Then filtro = Mid(filtro, 6)

    docmd.OpenReport "NomeRelatório",acViewPreview ,,filtro
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Relatório com dados subform Empty Re: [Resolvido]Relatório com dados subform

    Mensagem  DamascenoJr. em 18/2/2020, 20:29

    Código:
    filtro = ""
    If Not IsNull(strpesquisa) Then filtro = filtro & " AND Participante = " & strpesquisa 
    If Not IsNull(Me.cboEP) Then filtro = filtro & " AND EsposaPastor LIKE '*" & Me.cboEP & "*'"
    If Not IsNull(Me.cboSexo) Then filtro = filtro & " AND Sexo LIKE '*" & Me.cboSexo & "*'"
    If Not IsNull(Me.cboEstado) Then filtro = filtro & " AND Estado LIKE '*" & Me.cboEstado & "*'"
    If Not IsNull(Me.cboCidade) Then filtro = filtro & " AND Cidade LIKE '*" & Me.cboCidade & "*'"
    If Not IsNull(Me.txtCPF) Then filtro = filtro & " AND CPF LIKE '*" & Me.txtCPF & "*'"
    If filtro <> "" Then filtro = Mid(filtro, 6)

    docmd.OpenReport "NomeRelatório",acViewPreview ,,filtro


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 162
    Registrado : 02/09/2016

    [Resolvido]Relatório com dados subform Empty Re: [Resolvido]Relatório com dados subform

    Mensagem  ictsp em 19/2/2020, 12:10

    Bom dia!

    DamascenoJr, muito obrigado por sua ajuda.

    Seu auxílio atendeu perfeitamente às minhas necessidades.

    Muito obrigado mesmo!! cheers
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Relatório com dados subform Empty Re: [Resolvido]Relatório com dados subform

    Mensagem  DamascenoJr. em 19/2/2020, 19:28

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 9/8/2020, 11:54