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:
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
CONTROLE_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, 11:24, editado 2 vez(es)