Relatorio Dinamico

Pessoal
Bom Dia

Estou com uma duvida que é a seguinte..

gostaria de saber se é possivel criar um relatorio dinamico...
exemplo.

Tenho uma tabela com uns 80 checkbox´s

e eu gostaria de colocar no relatorio somente os checkbox´s que nao estiverem marcados.

Nao faço a minima ideia de como fazer isso..

se alguem puder me ajudar!

Obrigado

Amigão, faça uma consulta baseada na tabela que tem esses campos e coloque como critério os campos desmarcados e depois faça o relatório com base nessa consulta. Deve resolver.

eu ja faço isso..

o problema eh colocar no relatorio de forma automatica somente os campos que estao vazios..
pois hoje estao desmarcados, porem amanha podem estar marcados..

preciso saber como ordenar verticalmente cerca de 5 a 10 itens e dps colocar em uma coloca ao lado o restante...


exemplo

xxxxx xxxxx
xxxxx xxxxx
xxxxx xxxxx
xxxxx xxxxx
xxxxx xxxxx

Adriano,

Dá para criar um Relatório Dinâmico sem problemas. O incoveniente é o trabalho que você vai ter para dimensionar e posicionar todos os campos via código. Veja um exemplo:

Copie e cole em um Módulo, modifique o Nome da Tabela "Tabela1" de acordo com a sua e execute:

Public Sub CriarReport()
Dim Rst As New ADODB.Recordset
Set Conn = CurrentProject.Connection
Dim rpt As Report

Dim intDataY As Integer
Dim intDataX As Integer
Dim intLarg As Integer
Dim intAlt As Integer

On Error GoTo Err_Handler
DoCmd.DeleteObject acReport, "Relatório1"

ResumeCreate:

Set rpt = CreateReport
With rpt
.RecordSource = "Tabela1"
End With

intDataY = 275 'Margem Superior
intDataX = 50 'Margem Esquerda
intLarg = 1000 'Largura do Controle
intAlt = 250 'Altura do Controle

Rst.Open "Select * From Tabela1", Conn
colunas = Rst.Fields.Count - 1
For i = 1 To colunas
If Rst.Fields(i).Value = False Then
Set ctlLabel = CreateReportControl(rpt.Name, acLabel, acPageHeader, "", Rst.Fields(i).Name, intDataX, intDataY, intLarg, intAlt)
Set ctlText = CreateReportControl(rpt.Name, acCheckBox, , "", Rst.Fields(i).Name, intDataX, 0, intLarg, intAlt)
intDataX = intDataX + intLarg
End If
Next
Rst.Close

DoCmd.Save acReport, "Relatório1"
DoCmd.Close acReport, "Relatório1"
DoCmd.OpenReport "Relatório1", acViewPreview

Exit Sub

Err_Handler:
If Err.Number = 7874 Then
GoTo ResumeCreate
Else
MsgBox Err.Description, vbCritical
Err.Clear
End If

End Sub



Abraço.

Bom dia, Fui utilizar esse código informado acima e está dando um erro.

Erro de Compilação
O tipo definido pelo usuário não foi definido.

E aponta direto para essa linha -> Dim Rst As New ADODB.Recordset

Creio que esse erro ocorra pois devo informar alguma referência.

Poderia me ajudar?

Verifique em Ferramentas - Referências conforme a imagem em anexo.

Opa deu certo aqui, obrigado.

Tenha uma boa tarde.