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

2 participantes

    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada

    avatar
    JuliaS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 29/04/2022

    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada Empty [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada

    Mensagem  JuliaS 21/9/2022, 19:44

    Oi, tenho uma consulta de referência cruzada, nas linhas retornam siglas, colunas são mês/ano (máximo 12) e valores é a soma da quantidade produzida. Obs.: uso alias (Linha, Data e Quantidade, respectivamente).

    https://i.servimg.com/u/f81/20/45/24/49/consul12.jpg

    Criei relatório com 13 labels (lbl0, lbl1, lbl2, ..., lbl12) e respectivas caixas de textos (txt0, txt1, txt2, ..., txt12).

    https://i.servimg.com/u/f81/20/45/24/49/relatz12.jpg

    Consigo definir o Caption, mas não mostra os resultados. Parece algum problema ao definir Control Source. Alguém sabe me dizer?

    https://i.servimg.com/u/f81/20/45/24/49/inspez10.jpg

    Código:
    Private Sub Report_Load()

        'Parâmetro
        Dim meses As Integer
        meses = 6
        
        'Declaração variáveis
        Dim dbs As DAO.Database
        Dim qdf As DAO.QueryDef
        Dim rst As DAO.Recordset
        Dim colunas As Integer
        Dim I As Integer
            
        Set dbs = CurrentDb
        
        'Produção mensal por linha dos últimos N meses
        Set qdf = dbs.QueryDefs("slcProducaoPorLinhaMensal")
        qdf.Parameters("meses").Value = meses
        Set rst = qdf.OpenRecordset(dbOpenDynaset)
        
        With rst
            For I = 0 To .Fields.Count - 1
                Me("txt" & I).ControlSource = .Fields(I).Name
                Me("txt" & I).Visible = True
                Me("lbl" & I).Caption = .Fields(I).Name
                Me("lbl" & I).Visible = True
            Next I
        End With
        
        rst.Close
        Set rst = Nothing
        
        qdf.Close
        Set qdf = Nothing
        
        Set dbs = Nothing
            
    End Sub
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2766
    Registrado : 13/12/2016

    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada Empty Re: [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada

    Mensagem  Alexandre Fim 21/9/2022, 20:28

    Olá Júlia,

    Somente com imagens fica mais dificil de ajudar.
    Por gentileza, envie uma cópia do bd, somente objetos (tabelas/consultas/relatorios e etc.) envolvidos na questão, para análise e solução.

    Grato.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    JuliaS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 29/04/2022

    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada Empty Re: [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada

    Mensagem  JuliaS 21/9/2022, 21:59

    Segue anexo. Desde já agradeço!
    Anexos
    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada AttachmentAqui.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (241 Kb) Baixado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2766
    Registrado : 13/12/2016

    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada Empty Re: [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada

    Mensagem  Alexandre Fim 22/9/2022, 00:46

    Julia, boa noite

    Aproveitei os dados da consulta referencia cruzada para gravar os valores em uma tabela, e também gerar o relatório através dela.

    Ficou assim:
    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada Prod_m10

    Ao clicar no botão "Visualizar", o sistema abre o relatorio:
    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada Prod_m11


    Segue versão do sistema com os devidos ajustes.

    Espero ter ajudado.

    Att,

    Alexandre Fim
    Anexos
    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada AttachmentAqui_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (258 Kb) Baixado 3 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    JuliaS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 29/04/2022

    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada Empty Re: [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada

    Mensagem  JuliaS 7/10/2022, 14:00

    Agradeço o retorno. Da forma sugerida os dados ficam foram de ordem, se colocar 12 meses, por exemplo, apresentaria primeiro janeiro à março de 2021, depois abril a dezembro de 2022, todos estão sendo colocados no ano corrente também, 2022.

    Consegui fazer os campos reconhecerem o Control Source definindo no relatório.
    Me.RecordSource = "slcProducaoPorLinhaMensal"

    Só tive que remover o filtro dinâmico dos meses, deixar fixo 6 meses, por exemplo, pois ficava pedindo na tela para o usuário.

    Código:
    Private Sub Report_Load()
        
        'Declaração variáveis
        Dim dbs As DAO.Database
        Dim qdf As DAO.QueryDef
        Dim rst As DAO.Recordset
        Dim rstReport As DAO.Recordset
        Dim colunas As Integer
        Dim I As Integer
            
        Set dbs = CurrentDb
            
        'Produção mensal por linha dos últimos 6 meses
        Set qdf = dbs.QueryDefs("slcProducaoPorLinhaMensal")
        Set rst = qdf.OpenRecordset(dbOpenDynaset)
        
        With rst
            For I = 0 To .Fields.Count - 1
                Me("txt" & I).ControlSource = .Fields(I).Name
                Me("txt" & I).Visible = True
                Me("lbl" & I).Caption = .Fields(I).Name
                Me("lbl" & I).Visible = True
            Next I
        End With
        
        Me.RecordSource = "slcProducaoPorLinhaMensal"
        
        rst.Close
        Set rst = Nothing
        
        qdf.Close
        Set qdf = Nothing
        
        Set dbs = Nothing
            
    End Sub
    Anexos
    [Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada AttachmentAquiv2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (317 Kb) Baixado 4 vez(es)

      Data/hora atual: 1/2/2023, 05:08