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


4 participantes

    Relatorio Dinamico

    avatar
    adriano944
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Relatorio Dinamico Empty Relatorio Dinamico

    Mensagem  adriano944 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 : Respeito às Regras 100%

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

    Relatorio Dinamico Empty Re: Relatorio Dinamico

    Mensagem  criquio 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 : Respeito às Regras 100%

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

    Relatorio Dinamico Empty Re: Relatorio Dinamico

    Mensagem  adriano944 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 : Respeito às Regras 100%

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

    Relatorio Dinamico Empty Re: Relatorio Dinamico

    Mensagem  Roberto 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 : Respeito às Regras 100%

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

    Relatorio Dinamico Empty Re: Relatorio Dinamico

    Mensagem  allysson1511 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 : 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 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 24 vez(es)
    allysson1511
    allysson1511
    Novato
    Novato


    Respeito às regras : 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 17/12/2019, 18:51

    Opa deu certo aqui, obrigado.

    Tenha uma boa tarde.

    Conteúdo patrocinado


    Relatorio Dinamico Empty Re: Relatorio Dinamico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:22