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

    [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 : 1897
    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 : 1897
    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: 31/5/2020, 00:45