[Resolvido]Erro ao montar relatório baseado em consulta de referência cruzada

Olá amigos

Estou com um problema que não faço ideia de onde localizar o erro.
Ao solicitar a impressão de um relatório via formulário, aparece um erro alegando o uso de " (aspas").
Vejam no arquivo anexo.

O erro aparece no formulário inicial.

Bom dia João, amigo fiz a solicitação de impressão de relatório dos dois bd's e não ocorreram erro nenhum aqui.

Bom dia!

Como dizem aqui na minha terra: "É pra cai a roda mesmo!!"

Dá uma olhada na imagem do arquivo anexo.

Tentei compactar e reparar, reconstruí as consultas e o formulário e nada.

De qualquer forma, grato pelo retorno.

Feliz ano novo!!

Olá amigos!

Refiz todo o processo, reconstruindo o formulário e o erro continua.

Deem uma olhada e veja o que pode ser.

João,

O problema não está no código vba e nem no formulário e sim no relatório, os campos não são reconhecidos.


Abraços,

O seu relatório tem campos que em sua consulta não existe.

Por exemplo
Caixa texto de nome 03/12 tem como fonte de controle um campo de nome 03/12... So que este não existe na consulta.

Cumprimentos.

Entendi, mas não sei como resolver!

Como faço para montar o relatório considerando sua base de dados em uma consulta de referência cruzada e, que nesse caso, não há um número definido de campos data, ou seja, este número de campos depende da quantidade de avaliações que forem feitas em determinado período.

??????

Existe um número máximo de campos para a consulta de referencia cruzada?

Envie um modelo com a consulta de referencia cruzada e um modelo que como deseja que fique o relatório para que possamos ver isto pra ti.

Cumprimentos.

Grato amigo

Nos arquivos anexos tem o documento.
O relatório é o relNotaMuralAlojamento (na dúvida é o que usa fontes grandes que é para divulgação) e a consulta é a única de referência cruzada. Deve ser a qryNotasMuralAlojamento

Não te mando novamente porque estou em viagem e o note que estou usando não é o meu e não tem o Access.

Aguardo o Modelo.

Cumprimentos

Grato pelo retorno

segue o link
O relatório é relNotasMuralAlojamento

Felicidades

Boa tarde João... Você disse que não há um numero exato de avaliações e que este número pode variar por período..
Pergunto: Há um número máximo.. digamos que não ultrapasse X avaliações?

De uma breve descrição de como seria a lógica disso.

Cumprimentos.

Obrigado pelo retorno

Posso fixar em até 6 avaliações, no máximo.

Felicidades

Compreendi.. Agora se possível me de uma breve descrição do que pretende citando os objetos envolvidos..

Algo assim:  Abro o Form X, clico no botão y.. abre o relatório n... que precisa exibir os dados da colnsulta C de tal e tal forma...


Cumprimentos.

Olá Harysohn

Seguem melhores explicações. Estava com pressa qdo encaminhei a última resposta.

ao abrir o formulário Impressão das notas para alojamento, preenche os campos data inicial e data final e clica no botão gerar relatório aciona a consulta qryNotasMuralAlojamento que por sua vez abre o relatório relNotasuralAlojamento.

qryNotasMuralAlojamento   -   referência cruzada
A consulta acima é baseada na consulta qryNotaMuralAloj e esta consulta vem das seguinte tabelas:

tblAvaliador
tblNota
tblInspetor
tblAlojamento

Felicidades

Olá Harysohn

Tem alguma novidade?

Boas Amigo.. O Tópico havia me sumido à lista...

Resolveste?

Cumprimentos.

Olá, sem problemas

Ainda não resolvi o problema.
Não sei como fixar o número de avaliações para compor o relatório.

Vou fixar o número máximo de avaliações em 6.

Até mais.

Olá pessoal, alguém tem alguma ideia?

Fala Piloto

Alguma novidade         

Vamos lá amigão.. Reaviva-me a memória..

Vamos resolver isto.

Cumprimentos.

Manda o anexo novamente citando detalhes..
Vamos resolver este..

Cumprimentos.

Fala meu amigo

Grato pelo retorno
As avaliações poderão ser de uma a seis notas para cada alojamento.
Qdo um alojamento for avaliado, todos serão, portanto não ficarão alojamentos sem notas.

Veja o anexo novamente

Notas

Olá amigos!

Alguma novidade? Tenho pesquisado mas não consegui resolver o problema.
Se alguém tiver uma ideia, me dá um help

Abraços

Vamos la joão Ricardo, perdoe-me pela demora estive em viagem.

Refresque-me a memória..

Cumprimentos.

Olá Piloto, grato pelo retorno!

Por aqui a correria também está grande.

Segue em anexo a situação proposta.


Clique aqui Notas Alojamento

Ok... me de um exemplo de data inicial e final para que eu possa testar aqui.. e cite o resultado que espera.

Aguardo, cumprimentos.

Ok! Segue!   

Data inicial: 03/12/13 ou 03/12/2013
Data final: 19/12/13 ou 19/12/2013

O resultado final é idêntico ao da tabela apresentada no documento do arquivo anexo (.docx)

Amigos

Novidades!!

Boas João.. tenho falhado contigo.. mas o tempo tem estado curto..
Vou tentar resolver isto pra ti ainda hoje.

Cumprimentos.

Ok.. então os campos da consulta não serão sempre a mesma quantidade dependendo das datas digitadas...
é isso?

Isso mesmo!

Boas João.. será um bom desafio este.. Pensei que seria mais fácil..

O que eu havia pensado?

Carregar a consulta de referencia cruzada em um recordset, contar quantos campos tem..
e ao abrir o formulário carregar o controlSource dos objetos com os respectivos campos da consulta... algo assim:

Dim StrSQL As String
Dim Rs As DAO.Recordset

StrSQL = "PARAMETERS Me.DataIni DateTime, Me.dataFin DateTime;" _
       & " TRANSFORM Avg(qryNotaMuralAloj.Média) AS MédiaDeMédia SELECT qryNotaMuralAloj.Alojamento, Avg(qryNotaMuralAloj.Média) AS ValorMedio" _
       & " FROM qryNotaMuralAloj WHERE (((qryNotaMuralAloj.dataAvaliação) Between Me.DataIni" _
       & " And Me.dataFin))GROUP BY qryNotaMuralAloj.Alojamento, qryNotaMuralAloj.dataAvaliação" _
       & " PIVOT Format$([dataAvaliação],'dd/mm',0,0);"
 
Set Rs = CurrentDb.OpenRecordset(StrSQL)
CampCount = Rs.Fields.Count

    If CampCount = 3 Then
        Me.lbData1.Caption = Rs(2).Name
        Me.txtData1.ControlSource = "= " & Rs(2).Name & ""
    ElseIf CampCount = 4 Then
        Me.lbData1.Caption = Rs(2).Name
        Me.txtData1.ControlSource = "= " & Rs(2).Name & ""
        Me.lbData2.Caption = Rs(3).Name
        Me.txtData1.ControlSource = "= " & Rs(3).Name & ""
    ElseIf CampCount = 5 Then
        Me.lbData1.Caption = Rs(2).Name
        Me.txtData1.ControlSource = "= " & Rs(2).Name & ""
        Me.lbData2.Caption = Rs(3).Name
        Me.txtData2.ControlSource = "= " & Rs(3).Name & ""
        Me.lbData3.Caption = Rs(4).Name
        Me.txtData3.ControlSource = "= " & Rs(4).Name & ""
    End If

Porém a sql gera erro de parâmetros insuficientes (2)

Postei uma dúvida no fórum sobre isto..
A alternativa que temos é seguir a risca este excelente artigo da microsoft que é justamente sobre isto:

http://smallbusiness.support.microsoft.com/pt-br/kb/328320

Tentarei fazer o que o link acima ensina.. porém não o posso agora.. Vou a um aniversário do meu sobrinho

Boa Noite!

Piloto, muito obrigado pelo retorno!!

Veja o arquivo anexo. Foi dele que eu fiz as adaptações para este que está dando erro!

Tentei converter noutro formato que não fosse 2010/2013, mas não aceita. Há uma mensagem de aviso informando que se for convertido, o novo formato não suporta algumas funcionalidades.

Download

Eu entendo muito pouco de VBA, ainda não vou muito além das funções básicas, portanto se com esse arquivo o problema seria resolvido bem mais rápido, peço-lhe desculpas por não ter enviado antes.

A propósito, felicidades para seu sobrinho!


Editei esta mensagem para inserir o link de onde consegui o arquivo base "por enquanto base do problema" Foi JPaulo quem publicou.

http://maximoaccess.forumeiros.com/t215-relatorio-referencia-cruzada

Justamente, o exemplo postado pelo JP é o sugerido pelo exemplo da microsoft..

Verei sobre a adaptação para o teu BD.

Cumprimentos.

Está ai amigão, adaptado do exemplo do JP...
Só um porém, tive que utilizar o frmTeste...
Não sei o porque ao utilizar o frmImpressaoNotaMuralAloj, ele não reconhece os parâmetros DataInicial e DataFinal.
Tentei descobri o porque dá o erro: Item não encontrado nesta coleção, porém não o consegui.
Pedirei ao Mestre JP que visite este tópico e consiga nos ajudar.. porque eu fiquei intrigado com isto.
Na consulta coloquei os paramentos Nome do Formulário e caixa texto corretos, porém ao abrir o relatório, no evento ao abrir gera o erro citado.

Creio que deste exemplo abaixo já dá pra você continuar.


https://dl.dropboxusercontent.com/u/26441349/Jo%C3%A3oRicardo_Notas.rar


Cumprimentos.

Irei ver o teu exemplo Mestre Avelino.. No entanto se pudesse ver para nós o porque não consegui quando utilizei outro formulário com nomes de caixas texto diferentes do exemplo do JP...

Confesso que tentei mas não o consegui!

Abraços.

Ei-lo com o nome de formulário e caixas texto iguais ao teu..

Não me pergunte o porque.. más com o teu formulário não dá certo de jeito nenhum.
Renomeei o frmTeste para frmImpressaoNotaMuralAloj
e as caixas texto para DataInicial e DataFinal  e deu certo
Ainda há que se fazer adaptações no que será exibido nais caixas texto que fazem o papel de rótulo.. Head de 1 a 6, porém creio que a parte mais difícil esta pronta.


https://dl.dropboxusercontent.com/u/26441349/Jo%C3%A3oRicardo_Notas_1.rar

Desculpe a demora.
Cumprimentos.

Muito obrigado meu amigo!

Agradeço também a todos os outros que colaboraram para resolver o problema.

Estou tentando acertar um detalhe que me apareceu.
Ao tentar carregar o relatório, dá erro na linha de comando abaixo. Diz que o Access não pode localizar o campo Head7.

Código:

 Me("Head" + Format(intColumnCount + 1)) = "Totals"

Vi que se definirmos 6 colunas, será adicionada mais uma para os TOTAIS e então sai do laço For. É isso mesmo? Por que então dá erro?

Se usar pontos de interrupção ele vai de 1 a 6, conforme definido, mas dá erro em 7.

Eu atribui 4 notas e dá o mesmo erro.

Como diz um aluno meu: "Incuquei"

Simples.. porque tal não existe..

Este exemplo vai adicionando nomes aos objetos e carregando-os de acordo com loop's baseado na quantidade de colunas da consulta..
Como havia dito serão necessárias adaptações nos restantes dos códigos pois apenas trabalhei no evento ao Abrir..

Poste o exemplo atual e veremos isto.

Cumprimentos.

Grande Piloto!

Vou tentar fazer porque agora passou de necessidade para uma questão de honra! Mas não dispenso a ajuda de forma alguma, pois ainda tenho muita dificuldade com o VBA.
Amanhã posto o progresso ou não deste problema.

Que ótimo, sábia decisão, assim o vosso aprendizado aumentará cada vez mais, mesmo que não obtenha sucesso aqui ou ali..
Foi assim e é que penso.. e sigo sempre aprendendo.

Boa noite.

Piloto, consegui na força bruta!!

Ainda não entendi muito bem o que foi feito, mas deu certo copiando os códigos do exemplo que lhe enviei por último - modelo da Microsoft.
Eu eliminei os códigos referentes à seção rodapé do relatório que não é necessário e criei o número de campos igual ao número de notas a serem atribuídas, mais um para a coluna ValorMedio. Também encontrei eliminei no VBA os códigos para a coluna totais.

Não consegui de forma alguma mudar o nome do campo ValorMedio para Média. Ajustei nas consultas, tentei colocar na propriedade Legenda do campo na consulta, mas não deu certo. Sei que este campo é o Head2, mas não consegui mudar. Por favor, veja se vc consegue e me diga onde foi alterado porque eu realmente não descobri.

Muito obrigado mais uma vez pelo esforço dispensado, motivação e aprendizado proposto. Valeu mesmo!!

Segue abaixo para download

Notas

       

A propósito, os Smileys são escolhas da minha filhinha.

Agradeça a ela pelos Smiles...Me extraiu um sorriso... Obrigado.

Bem.. O que aparece na caixa texto? e o que deveria aparecer?

Cumprimentos.

Fala Piloto.

No relatório, a última coluna é a média de todas as outras. Nessa coluna o cabeçalho aparece escrito ValorMedio e deveria aparecer Média.
Não consegui alterar.

   

Manda o baita ai..

Cumprimentos.

Está no anexo

Muito obrigado


Download

Abra o relatório em modo Design
Clique em Cabeçalho da Pagina, vá nos eventos Ao formatar e substitua o código pelo abaixo:

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    
   Dim intX As Integer
    
   ' Put column headings into text boxes in page header.
   For intX = 1 To intColumnCount
      '---------------------------------
      'Aplica o nome nos devidos rótulos
      '---------------------------------
      Me("Head" + Format(intX)) = rstReport(intX - 1).Name
      '----------------------------------------------------------------
      'Se o rótulo tiver o texto "ValorMédio" modifica o texto para "Média"
      '----------------------------------------------------------------
      If Me("Head" + Format(intX)) = "ValorMedio" Then
            Me("Head" + Format(intX)) = "Média"
      End If
   Next intX

   '  Make next available text box Totals heading.
   'Me("Head" + Format(intColumnCount + 1)) = "Tot"   ANULEI AQUI
   '---------------------------------------
   ' Esconde as caixas texto não utilizadas
   '---------------------------------------
   For intX = (intColumnCount + 2) To conTotalColumns
        Me("Head" + Format(intX)).visible = False
   Next intX
    
End Sub

Cumprimentos.

PERFECTO!!!!!!!

Muito bom

Muito obrigado mais uma vez