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


2 participantes

    Sobreposição de linhas em Relatório

    avatar
    germanowenzel
    Novato
    Novato


    Respeito às regras : 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 10/7/2019, 00: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 3 vez(es)


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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 10/7/2019, 16: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: 25/2/2024, 09:30