MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Relatorio Dinamico

    avatar
    adriano944
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    Relatorio Dinamico Empty Relatorio Dinamico

    Mensagem  adriano944 em 18/3/2010, 12:15

    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
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    Relatorio Dinamico Empty Re: Relatorio Dinamico

    Mensagem  criquio em 18/3/2010, 12:22

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    adriano944
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    Relatorio Dinamico Empty Re: Relatorio Dinamico

    Mensagem  adriano944 em 18/3/2010, 12:25

    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
    avatar
    Roberto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/03/2010

    Relatorio Dinamico Empty Re: Relatorio Dinamico

    Mensagem  Roberto em 18/3/2010, 13:46

    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.
    allysson1511
    allysson1511
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 27/04/2018

    Relatorio Dinamico Empty Re: Relatorio Dinamico

    Mensagem  allysson1511 em 17/12/2019, 12:28

    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?
    avatar
    Roberto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/03/2010

    Relatorio Dinamico Empty Confira as Referências do módulo vba

    Mensagem  Roberto em 17/12/2019, 14:57

    Verifique em Ferramentas - Referências conforme a imagem em anexo.
    Anexos
    Relatorio Dinamico Attachmentrefe.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 13 vez(es)
    allysson1511
    allysson1511
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 27/04/2018

    Relatorio Dinamico Empty Re: Relatorio Dinamico Empty Confira as Referências do módulo vba

    Mensagem  allysson1511 em 17/12/2019, 18:51

    Opa deu certo aqui, obrigado.

    Tenha uma boa tarde.

      Data/hora atual: 29/11/2020, 19:14