Usando Access

Criando linhas em um relatório, de forma dinâmica

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

No exemplo deste meu artigo, ofereci uma solução para criar um relatório pautado.  No projeto, o número de linhas a serem exibidas, depende do número de registros apresentados, podendo chegar  até 23 linhas.  Por exemplo: ao selecionar 5 registros, obtenho apenas 18 linhas exibidas no relatório (23-5=18). Observe na imagem abaixo: 

A técnica empregada neste projeto foi a de criar 23 linhas sobrepostas, posicionadas no rodapé do relatório.  Veja:

O código utilizado no relatório tem a função de reposicionar as linhas, em alturas eqüidistantes(regulares), criando assim, o relatório pautado.

Private Sub RodapéDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
Dim j As Byte, K As Single
K = 0.6 * 567
If rs > 24 Then Exit Sub

'-------------------------------------------

'reposicionando as linhas

'-------------------------------------------
For j = 1 To (24 - rs)
    Me.Controls("Linha" & (j + 1)).Top = K + (K * j)
Next
'---------------------------------------------------------------------------
'rs é zerado para não acumular valor, para o caso de uma nova solicitação 

'de impressão
'---------------------------------------------------------------------------
rs = 0
End Sub

Nota:  As propriedades pode ampliar e pode reduzir da seção rodapé do relatório foram configuradas para SIM.

O uso do comando LINE

Em substituição as linhas sobrepostas, podemos utilizar o comando LINE.  Com este comando somos capazes de criar retângulos e linhas nas dimensões e posições desejadas.   Aqui é possível conferir no meu artigo, a explicação em detalhes sobre o comando LINE. 

Observe abaixo, o código modificado, introduzindo o comando LINE.

Private Sub RodapéDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
Dim j As Byte, K As Single, q As Byte
K = 0.6 * 567
If rs > 24 Then Exit Sub

'-----------------------------------------------------------------------------------------

'Definindo a altura do controle linha

'Necessário para expandir a área do rodapé, a fim de comportar as linhas criadas pelo LINE

'-----------------------------------------------------------------------------------------
Me.Linha.Height = K * (24 - rs)

'----------------------------------------

'Criando as linhas com o controle LINE

'----------------------------------------
For j = 1 To (24 - rs)
    Me.Line (0, K * (1 + j))-(567 * 15, K * (1 + j) + 10), vbBlack, BF
Next
rs = 0
End Sub

Observe a seguir que tive que usar o artifício de inserir um controle Linha, no sentido vertical, com o objetivo de ampliar dinamicamente a área do rodapé,  pois o comando LINE não afeta esta ampliação.

No exemplo oferecido, a propriedade visible do controle linha está configurada para false.

Download

Baixe aqui o exemplo para você estudar na prática.

Artigo relacionado

E aqui um exemplo prático, do uso do LINE para criação de código de barras para boletos bancários.

Desafio 

criar uma grade conforme imagem abaixo,  utilizando apenas o comando LINE:

Bom estudo!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Integrando o Access com Servidor MySQL - Introdução

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Como carregar o seu menu sem que ele vá para lista de suplementos

Vídeo - Criando Ribbons parte 1  - Conhecendo a estrutura Xml

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |