[Resolvido]Consulta Não mostra dados

Desenvolvi um BD em access 2007, inseri alguns dados para teste. Um tempo depois fiz algumas modificações na estrutura das tabelas, agora as consultas não mostram os dados quando executadas, o que devo fazer?

Olá, seja bem vindo ao fórum!

Provavelmente tenha que alterar a consulta tambem para ajustá-la aos nomes nomes ou campos da tabela. Ou excluí-la e cria-la de novo.

O problema é que todas as consultas do Banco de dados também pararam de funcionar.

Uma vez, modifiquei um módulo para evitar a pirataria, ele pegava dados do hd para prevenir a cópia não autorizada. Apenas comentei o código para rodar em rede e aconteceu a mesma coisa.

Na tabela que eu fiz a alteração, não há consultas. Foram afetadas as consultas de outras tabelas, todas elas pararam de funcionar. Quem poder ajudar, desde já agradeço.

Talvez esta consulta possua dados de mais de uma tabela.... Abra a consulta em modo design, e verifique quais campos estao Com a seguinte exressão
Expr1:
Expr2:
etc.

Isto significa que não fora encontrado o campo na tabela ou o mesmo fora renomeado.. basta alterar para o novo nome do campo.


Cumprimentos.

Verifiquei todas as consultas em modo design e aparentemente estão corretas, lembrando que não foram excluídos campos das tabelas e sim modificado o tipo do mesmo de "texto" para "numero", então todas as consultas pararam de funcionar, mesmo das tabelas que não foram modificadas, lembrando ainda que as consultas abrem sem mensagem de erro, mas não mostram dados. Ajuda por favor!

Bem... queremos ajudá-lo sim... Mas sem o módelo do Bd fica difícil saber.... Envie-nos o bd para que possamos ver.

Cumprimentos.

Está aê o bd para análise.

Quais consultas não está funcionando... Cite os nomes.


Cumprimentos.

todas as consultas ficaram com problema, falo as consultas, pois os relatórios são baseados nelas

Novamente Fábio...

Quais consultas não está funcionando... Cite os nomes.


Assim será melhor para instruir a ajuda.

Aguardo.

Piloto, continuo afirmando que nenhumas das consultas estão funcionando, todas estão com problemas, executam, não mostram erros, mas também não mostram os dados dos resultados.

Atenciosamente.

Amigão... e novamente...
Me fale o nome de uma apenas, poder?

Cumprimentos.

Vou te falar o que está ocorrendo em uma consulta... creio que nas demais o problema seja o mesmo.

A Consulta_Contratos_Vencidos

você adicionou uma tabela: Prefeitura... Esta não está relacionada com as outras... portanto interfere na exibição da consulta.
Exclua esta tabela e rode a consulta novamente e observa...

Ou você relaciona a tabela... ou se estes dados você pretende imprimir em todos os relatórios... Podes utilizar O Dlookup ou Um recordset para preencher campos não acoplados no relatório...


Penso eu que a finalidade é de se vender o sistema a uma prefeitura e ela cadastrar os dados para serem impressos no relatório... Se for isso.. esta maneira não é a correta...


Cumprimentos.

Muito embora, este bd é apenas um, tenho alguns já rodando desta forma e até o momento não apresentaram problemas, mas pretendo fazer esta correção. Como faria com o Dlookup ou recordset para corrigir os campos não acoplados?????, há algum tutorial disponível????

Transforme as caixas texto em Rótulos. nomeie-as como lb, lb1 e lb2 respectivamente cuidando para ao transformar em rótulos de um toque na barra de espaços... pois caso contrário a mesma sobe... ou digite algo dentro dela..

E no evento ao abrir do relatório;

Private Sub Report_Open(Cancel As Integer)
Dim seq As String, K
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
On Error GoTo TrataErro
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
seq = "[UnidadeGestora] &  '|' & [Endereço] & '|' & [Bairro] & '|' & [Cidade] & '|' & [CNPJ] & '|' & [Telefone]&'|' & [email]& '|' & [website] & '|' & [CEP]"
seq = DLookup(seq, "Prefeitura")
K = Split(seq, "|")
 
 Me.lb.Caption = K(0)
 Me.lb1.Caption = K(2) & " - " & K(8) & " - " & K(4)
 Me.lb2.Caption = K(6) & " - " & K(7) & " - " & K(5)

Exit Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
   DoCmd.Hourglass False
   DoCmd.Echo True
Exit Sub
TrataErro:
   Select Case Err.Number
 Case 94
       Me.lb.Caption = "Não Cadastrado"
       Me.lb1.Caption = "Não Cadastrado"
       Me.lb2.Caption = "Não Cadastrado"
 Case Else
   DoCmd.Hourglass False
   DoCmd.Echo True
  'Chama a função global de tratamento de erros
         MsgBox "Erro Gerado na função: Report_Open" _
               & vbNewLine & "Erro Número: " & Err.Number _
               & vbNewLine & "linha: " & Erl _
               & vbNewLine & "Descrição: " & Err.Description _
               & vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, Err.Number & ", linha:" & Erl
 End Select
End Sub

Cumprimentos.

Perfeito!!! tudo funcionando direitinho, Piloto, meu muito obrigado. Gostaria de saber como posso contribuir com o fórum para que a ideia possa continuar.

http://maximoaccess.forumeiros.com/t12038-contribuir-com-o-forum

Podes também ajudar aos que sabem menos...
 
Só faltou clicar no Joinha da mensagem que o auxiliou e no botão de resolvido.


Cumprimentos.

Esqueceste do Tópico Amigão.. Nem ao menos clicou no Resolvido.

Desta vez eu colocarei...