[Resolvido]Relatorio com Rodapé contendo endereço de uma tabela que nao é vinculada as tabelas do relatório

Amigos..
Tenho um relatorio proveniente de uma consulta...

A consulta é baseada e 2 tabelas vinculadas....

Tenho uma terceira tabela que é os dados da Unidade.... (1 registro apenas)

Preciso que esses registros sejam mostrados em todos os relatorios..

tentei colocar a tblUnidade na consulta...

Mas deu dados externos ambiguos...
Não posso vincular esta tabela às outras da consulta...

Tem como no campo no relatorio colocar uma instruçao que puxe os valores dessa tabela, sem precisar colocá-la na consulta?

Se puderem ajudar fico grato..

Tente o mesmo passo do Dao.Database e Dao.Recordset que você usa para consultar dados em um formulário. No seu campo do relatório ficaria algo assim:

Me.NomeDoCampo = rs("CampoDaTabela")

não dá pra usar um Dlookup ai nao?
Pensei em algo assim:

Private Sub Report_Load()
Dim Unidade
Administração _
& "WHERE IDAdm='1';"
Me.TxtUnidade = Unidade
End Sub

Me ajuda a corrigir Amigo Criquio..
'O Valor da IDAdm pode ser fixo = 1 , pois so tenho 1 registro nesta tabela

Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rs1 As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
strSQLAdm = "SELECT * FROM Administação WHERE IDAdm = " & 1 & ";"
Set rs = db.OpenRecordset(strSQLAdm)
Me.TxtUnidade = rs![Diretor]
rs.Close
Set rs = Nothing
Set rs1 = Nothing
Set db = Nothing

Resolvi Assim Amigão:


Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rs1 As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
strSQLAdm = "SELECT * FROM Administração "
Set rs = db.OpenRecordset(strSQLAdm)

rs.MoveFirst
If rs.EOF = True Then
MsgBox "Você esta no último registro!"
rs.MovePrevious
Exit Sub

End If
Me.TxtUnidade = rs![Diretor]
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

Grato pela Ideia...
Esse Rs.. é realmente fantástico

Valeu. Bom que deu certo.

Estou gostando de trabalhar com sql's e recordset...
Não tem comparação em como fica mais profissional

Saudações

Criquio.. aproveitando o embalo..

Esta solucao ai acima é fixa no report... Rodape e cabeçalho...
Agora para substituir a consulta do relatorio.. e popular os campos do mesmo.. esse aqui funciona..


strSQLDetentos = "SELECT ID, Nome&Space(1)&Sobrenome FROM Detentos IN '" & StrPath & "'" _
& "WHERE UnidadeRequisitante='Mineiros' and (RegimeAtual='Fechado' OR RegimeAtual='Albergue')" _


So uma pergunta... como colocar o critério ai para abri com o controle ativo no Form (ID)

Grato

Poderia postar o código completo por gentileza?

Bom dia Criquio! Na realidade amigão nao consegui popular o relatório.. este é o código que uso para popular um form....

A diferença é que o do relatório as tabelas são diferentes:
Tabela pai: Detentos (Chave Primária = ID)
Tabela filho Fotos_Detentos (Chave Primária = ID Foto)
Campos relacionados (ID na Tabela Detentos - Campo Detento na Tabela Fotos_Detentos)

If IsNull(Me.IDVisitante) Or Me.IDVisitante = "" Then
MsgBox "Você não digitou um número para ser pesquisado.", vbOKOnly + vbCritical, "Atenção"
Me.IDVisitante = Null
Exit Sub
ElseIf Not IsNumeric(Me.IDVisitante) Then
MsgBox "O texto inserido foi """ & Me.IDVisitante & """. Isso não é um código válido.", vbOKOnly + vbCritical, "Atenção"
Me.IDVisitante = Null
Exit Sub
End If
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rs1 As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha"

strSQLVisitantes = "SELECT * FROM Visitantes LEFT JOIN Detentos ON Visitantes.Detento=Detentos.ID WHERE IDVisitante = " & Me!IDVisitante & ";" 'Aqui tem que mudar para as tabelas descritas acima

Set rs = db.OpenRecordset(strSQLVisitantes)

Me.txtVisitante = rs![Visitante]
Me.txtEndereco = rs!Visitantes.Endereço
Me.txtBairro = rs![Bairro]
Me.txtEstado = rs![Visitante].[Estado]
Me.txtCidade = rs![Cidade]
Me.txtDocumentos = rs![Documentos]
Me.TxtTelResidencial = rs![Telefone Residencial]
Me.txtDetento = rs![Nome] & Space(1) & rs![Sobrenome]
Me.txtAla = rs![Nível]
Me.txtCela = rs![Cela]
Me.txtAnot = rs![Anotações]
Me.txtRelacao = rs![Relação de Tutor]
Me.txtSelecao = rs![BloquearVisitante]
Me.CaminhoFotoRosto = rs![CaminhoFoto]
Me.CaminhoDigital = rs![CaminhoDigital]
PreencheFoto

rs.Close
Set rs = Nothing
Set rs1 = Nothing
Set db = Nothing
TrataErro:
If err.Number = 2113 Then
MsgBox "O código """ & Me.IDVisitante & """ não existe na base de dados", vbOKOnly + vbCritical, "Atenção"
Me.IDVisitante = Null

e.. onde aplico para abri o form filtrado pela ID do Detento..

Podendo ajudar fico grato...

Tente colocar no evento "Ao carregar" do relatório, colocando a ID do form na instrução:

...
strSQLVisitantes = "SELECT * FROM Visitantes LEFT JOIN Detentos ON Visitantes.Detento=Detentos.ID WHERE IDVisitante = " & Forms!NomeDoFormulário!IDVisitante & ";"

Amigão.. Apenas me ajude a modificar as tabelas.. esse código ai é para Visitante.. outro caso..
Coloquei apenas para exemplificar

As tabelas desse relatorio São:

A diferença é que o do relatório as tabelas são diferentes:
Tabela pai: Detentos (Chave Primária = ID)
Tabela filho Fotos_Detentos (Chave Primária = ID Foto)
Campos relacionados (ID na Tabela Detentos - Campo Detento na Tabela Fotos_Detentos)

Amigo Criquio.. Consegui popular o Relatório.... Apenas um Detalhe..

Eu havia, no inicio deste tópico falado que tenho campos fixos.. com o os dados da unidade.. e tinha ontem conseguido resolver..
Mas acontece que agora ao popular o relatório, nao consigo mais popular estes campos fixos...

o Código:


Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rsAdm As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")

strSQLDetentos = "SELECT * FROM Detentos LEFT JOIN Fotos_Detentos ON Fotos_Detentos.IDFoto=Detentos.ID WHERE ID = " & Forms!frmDetentoConsulta!ID & ";"
Set rs = db.OpenRecordset(strSQLDetentos)


strSQLAdm = "SELECT * FROM Administração " 'Campos Fixos
Set rsAdm = db.OpenRecordset(strSQLAdm) 'Campos Fixos

Me.txtDetento = rs![Nome]


rsAdm.MoveFirst
Me.txtRegional = rs![Regional]
Me.txtEndereco = rs![Endereco Unidade]
Me.TxtUnidade = rs![Nome da Unidade]
Me.txtTel = rs![Telefone1]
Me.txtTel1 = rs![Telefone2]
Me.txtFax = rs![Fax]
Me.txtEmail = rs![EMail]



rs.Close
Set rs = Nothing
Set db = Nothing

Crquio.. Ignore os códigos acima.. aqui vai o definitivo so nao consegui preencher os campos fixos...que foi a origem desgte tópico

Private Sub Report_Load()
On Error Resume Next
Parametros_de_Inicializacao "SysPen.par"
DoCmd.Maximize
'DoCmd.ShowToolbar "Ribbon", acToolbarYes
'Call EscondeBotoes(False)
'*******************************************************************************
'Popula Campos no Relatório
'*******************************************************************************

Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rsAdm As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")

strSQLDetentos = "SELECT * FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.ID=Fotos_Detentos.Detento WHERE ID = " & Forms!frmDetentoConsulta!ID & ";"

Set rs = db.OpenRecordset(strSQLDetentos)
strSQLAdm = "SELECT * FROM Administração " 'Este não está funcionando
Set rsAdm = db.OpenRecordset(strSQLAdm) 'Este não está funcionando


Me.txtID = rs![ID]
Me.txtDetento = rs![Nome] & Space(1) & rs![Sobrenome]
Me.txtAlcunha = rs![Alcunha]
Me.txtDataNascimento = rs![Data de Nascimento]
Me.txtNacionalidade = rs![Nacionalidade]
Me.txtNaturalidade = rs![Naturalidade]
Me.txtTelefone = rs![Telefone Residencial]
Me.txtEstadoCivil = rs![Estado Civil]
Me.txtFilhos = rs![Filhos]
Me.txtDocumentos = rs![RG/CPF]
Me.txtPai = rs![Nome do Pai]
Me.txtFalecido = rs![Se falecido]
Me.txtMae = rs![Nome da Mãe]
Me.txtFalecida = rs![Se Falecida]
Me.txtEndereco = rs![Endereço]
Me.txtCidade = rs![Cidade]
Me.txtEstado = rs![Estado]
Me.txtTrabalho = rs![Trabalho- anterior a Prisão]
Me.txtProfissao = rs![Profissão]
Me.txtInstrucao = rs![Grau de Instrução]
Me.txtConjuge = rs![Conjuge]
Me.txtEtnia = rs![Etnia]
Me.txtTipoFisico = rs![Tipo Físico]
Me.txtPeso = rs![Peso Informado]
Me.txtCabelos = rs![Cabelos]
Me.txtOlhos = rs![Olhos]
Me.txtEstatura = rs![Estatura]
Me.txtSinal = rs![Sinais Particulares]
Me.txtProcessoNumero = rs![Processo Número]
Me.txtReicidente = rs![Reicidente]
Me.txtOrigem = rs![Origem]
Me.txtDataPrisao = rs![Data da Prisão]
Me.txtDataSaida = rs![Data da Saída]
Me.txtRegime = rs![Regime]
Me.txtInfracao = rs![Infração]
Me.txtSituacao = rs![Situação Penal]
Me.txtPena = rs![Pena Ano] & Space(1) & "e" & Space(1) & rs![Pena Mês]
Me.txtCondicional = rs![Condicional]
Me.txtComarca = rs![Juizado]
Me.txtVara = rs![Vara]
Me.txtPromotoria = rs![Promotoria]
Me.txtOutrasComarcas = rs![Processos em outras Comarcas]
Me.txtSituacaoPenal = rs![Situação Penal]
Me.txtAssistenteJu = rs![Assitente Jurídico]
Me.txtObservacoes = rs![Observações]
'Tabela Foto_Detentos
Me.CaminhoFotoRosto = rs![CaminhoFotoRosto]
Me.IDFoto = rs![IDFoto]


'***********************************************************
Esses não estão funcionando
************************************************************
rsAdm.MoveFirst
Me.txtRegional = rsAdm![Regional]
'Me.txtEndereco = rs![Endereco Unidade]
'Me.TxtUnidade = rs![Nome da Unidade]
'Me.txtTel = rs![Telefone1]
'Me.txtTel1 = rs![Telefone2]
'Me.txtFax = rs![Fax]
'Me.txtEmail = rs![EMail]



rs.Close
Set rs = Nothing
Set db = Nothing

Tente usar mais de um RecordSet:

strSql1 = "SELECT FROM...
strSql2 = "SELECT FROM...

Aí você usa um para cada tabela ou para cada seção do relatório.

Amigão.. retirei o:

rsAdm.MoveFirst


E funcionou Perfeitamente..

Grato pela paciência e ajuda...