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

    Sobreposição de linhas em Relatório

    avatar
    germanowenzel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/05/2015

    Sobreposição de linhas em Relatório Empty Sobreposição de linhas em Relatório

    Mensagem  germanowenzel em 10/7/2019, 01:03

    Boa noite pessoal!
    Eu estou construindo um relatório com base em uma consulta de referência cruzada.

    A captura das informações está funcionando corretamente e a consulta traz 4 linhas com dados conforme filtro.
    Na montagem do relatório somente aparece uma linha com o último registro da consulta, as demais não.
    Debugando o processo, observo que o código passa por todos os registros, mas somente o último que fica registrado no relatório.
    O código que estou utilizando está abaixo:

    Código:
    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)

       
      Dim intX As Integer
      Linhas = DCount("CODIGO", "CListaChamadaCruzada")

      If Not rstReport.EOF Then

         For I = 1 To Linhas
         'saber se é linha par ou impar
         ÉPar = (I Mod 2 = 0)
         
         If Me.FormatCount = 1 Then
            For intX = 1 To intColumnCount
               
               Me("Col" + Format(intX)) = xtabCnulls(rstReport(intX - 1))
               If intX = 2 Then
                  'Rotina para abreviar nomes intermediários
                   Call abreviaNome(Col2)
                   Me("Col" + Format(intX)) = ABREVIARNOMES

               End If
               Me("Col" + Format(intX)).Visible = True
               'linha zebrada se par ou impar
               If ÉPar = False Then Me("Col" + Format(intX)).BackColor = 15263976
               If ÉPar = True Then Me("Col" + Format(intX)).BackColor = 16777215
            Next intX

            'Oculta caixas de texto não utilizadas na seção Detalhe
           
            For intX = intColumnCount + 2 To conTotalColumns
               Me("Col" + Format(intX)).Visible = False
            Next intX
            ' próximo registro
            rstReport.MoveNext
           
         End If
       Next I

      End If
    End Sub

    Private Function xtabCnulls(varX As Variant)
       
    'Testa valores nulos
    If IsNull(varX) Then
       'If varX is null, set varX to 0.
       xtabCnulls = ""
    Else
       'Otherwise, return varX.
       xtabCnulls = varX
    End If

    End Function
    Anexos
    Sobreposição de linhas em Relatório AttachmentCONTROLE_IPM.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (493 Kb) Baixado 1 vez(es)


    Última edição por germanowenzel em 11/7/2019, 11:24, editado 2 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6649
    Registrado : 15/03/2013

    Sobreposição de linhas em Relatório Empty Re: Sobreposição de linhas em Relatório

    Mensagem  ahteixeira em 10/7/2019, 17:53

    Olá germano wenzel,

    Seja Bem-Vindo ao fórum.
    Talvez seja melhor partilhar base de dados com relatório da questão e objetos dependentes com dados de amostragem para se testar, se tiver dúvida veja:
    https://www.maximoaccess.com/t28813-como-adicionar-arquivo-ficheiro-a-mensagem-no-forum

    Assim fica mais fácil para qualquer membro poder ajudar.

    Abraço

      Data/hora atual: 27/5/2020, 04:53