[Resolvido]Função Dlookup

Bom dia.

No uso da função Lookup como é que eu consigo ir buscar o critério a uma querie que está associada ao relatório?
O meu objectivo é obter um campo do id obtido pelo querie, tentei fazer da seguinte forma, mas não consegue ir buscar a variavel.

tabela30=Report_Relatorio_Unico.id_T30
Text13.Value=DLookup("[area]", "T_30_R_Unico", "[area] = '" & tabela30 & "'")
O erro é o seguinte:

Microsoft Access can't find the field id_T30 referred to in your expression.

Ola bom dia !

Onde irá ficar esse Text13.Value ?

O relatório estará aberto, na altura de buscar a variável ?


'se o ID for numerico
Dim x As Integer
x = Reports![SeuRelatório]![SeuCampoID]
Me.SuaCaixaTexto.Value = DLookup("[SeuCampoQueDesejaVisualizar]", "[SuaConsulta]", "[SeuCampoID] = " & x)



'se o ID for texto
Dim x As String
x = Reports![SeuRelatório]![SeuCampoID]
Me.SuaCaixaTexto.Value = DLookup("[SeuCampoQueDesejaVisualizar]", "[SuaConsulta]", "[SeuCampoID] = '" & x & "'")

O valor estará numa querie que é executada ao abrir o report. O textbox pertence ao report e devia ser carregado na abertura do mesmo. O report ainda não está aberto quando a variavel é carregada!

Essa querie alimenta o relatório ?

Se alimenta o relatório, esse campo já existe no próprio relatório.

Para que servirá então o que está tentando fazer ?

Faça o teste no evento VBA ao carregar do seu Relatório, mas ainda não entendi o que pretende;

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
'se o ID for numerico
Dim x As Integer
x = Nz(Reports![SeuRelatório]![SeuCampoID], 0)
Me.SuaCaixaTexto.Value = DLookup("[SeuCampoQueDesejaVisualizar]", "[SuaConsulta]", "[SeuCampoID] = " & x)
End Sub

O meu objectivo era alimentar a textbox com esse valor da querie, só que eu na querie só consigo ir buscar os id e o que pretendo é a designação desses id. Se na querie eu adicionar as tabelas com essas designações a querie deixa de funcionar. Por isso pensei em fazer atravês da função da DLookp.
Se existir outra maneira por favor indique-me.
Obrigada.

Pode sempre anexar aqui parte do seu banco, para lhe ajudar mais concretamente.

Se preferir anexar tem de ser zipado, em .zip

Caso contrario, continuo sem entender.

Vou tentar explicar melhor uma vez que não posso anexar o banco pois tem dados confidenciais.
Eu criei uma querie com várias tabelas tendo na tabela curso os id de varias tabelas:
Tabela curso com id das tabelas T_30,T_31,T_32,T_33 etc. Eu pretendo obter não o ID mas a descrição existente na T_30, T_31, T_32 etc. Se eu acrescentar essas tabelas á querie a mesma deixa de funcionar. O que eu quero é uma forma de atraves dos id obtidos na query eu ir buscar a sua descrição na respectiva tabela.
Espero que me tenha conseguido explicar, pois como é um trabalho de estágio não posso divulgar a base de dados.
Obrigada por me tentar ajudar.

Ok;

Então essa query vai ter varios ID`s, certo ?

Sim vai ter vários ID, mas o que tenho de apresentar no relatório é a descricao desses ID.

Só uma ultima questão, para chegar-mos à solução.

Todos os ID`s da query aparecem no relatório ?

Sim todos.

Optimo;


Teste assim;


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim x As Integer

'1º - Ao formatar do seu relatório, colocamos na variável o ID do campoID
x = Nz(Me.SeuCampoID.Value, 0) 'função Nz se existir Nulos

'2º - Enviamos para a sua caixa de texto, a descrição da tabela T_30 correspondente ao ID na variavel x
'se o ID for numerico
Me.SuaCaixaTexto.Value = Nz(DLookup("[CampoDescrição]", "[T_30]", "[CampoID] = " & x), 0)

End Sub

Nota:
Altere para os nomes corretos dos campos, tabela e etc.

Uma pergunta:
que variavel é k eu tenho de passar Me.SeuCampoID.Value?
x = Nz(Me.SeuCampoID.Value, 0) 'função Nz se existir Nulos

Tentei fazer assim e continua a dar o mesmo erro!
Private Sub Report_Load()
Dim x As Integer

x = Nz(Report_Relatorio_Unico.id_T30, 0) 'função Nz se existir Nulos

'2º - Enviamos para a sua caixa de texto, a descrição da tabela T_30 correspondente ao ID na variavel x
'se o ID for numerico
Me.Text13.Value = Nz(DLookup("[area]", "[T_30_R_Unico]", "[id_T30] = " & x), 0)

End Sub

Note que no DLookup, você terá de informar o ID no where, ou seja, "[id_T30] = " & x, logo terá de passar para a variavel o ID

x = Nz(id_T30, 0) 'função Nz se existir Nulos

Ou

x = Nz(Me.id_T30.Value, 0) 'função Nz se existir Nulos

Me.Text13.Value = Nz(DLookup("[area]", "[T_30_R_Unico]", "[id_T30] = " & x), 0)

Ja testei das duas maneiras que me indicou e continua a dar o erro 2465 Microsoft Access can't find the field id_T30 referred in your expression.
Não sei mais como fazer!

Você tem de ver nas propriedades do campo ID no relatorio, qual o nome correto, se é id_T30 ou orever.

Me.id_T30.Value será o Campo ID no relatorio, veja o nome correto nas propriedades.

E veja na tabela T_30_R_Unico se é mesmo esse o nome tambem, id_T30

Me.id_T30.value onde o id_T30 é uma campo obtido atraves da querie. Verifiquei na tabela e o campo também esta correcto.
Uma questão: eu tenho de atribuir a varievel na propriedade data da textBox?

Veja um exemplo que montei, para lhe mostrar o caminho das pedras;

O relatorio é alimentado pela query, o DLookup vai buscar a descrição à tabela.

Obrigada pela paciencia que está a ter comigo, mas tenho muito pouco experiencia em access!

Vou testar

Por isso mesmo eu simplifiquei ainda mais.

Sem pressas, chegará lá...

Finalmente consegui colocar a funcionar, mas continuo com um pequeno problema!
O codigo é o seguinte:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.Text13.Value = Nz(DLookup("[area]", "T_30_R_Unico", "[id_T30] =" & Me.id_T30), 0)
Me.Text25.Value = Nz(DLookup("[Nivel]", "T_36_R_Unico", "[id_T36] =" & Me.id_T36), 0)
End Sub

Da o seguinte erro na primeira linha da função:

error 3075 Sintaxe error (missing operator) in query expression '[id_T30]'='.

Ja experimentei com plicas e mesmo assim não funciona. O mais estranho que na segunda linha já dá sem problemas!
Obrigada pelo exemplo.

Não vejo algum erro por aí, mas pode testar assim;

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.Text13.Value = Nz(DLookup("[area]", "T_30_R_Unico", "[id_T30] =" & Me.[id_T30].Value), 0)
Me.Text25.Value = Nz(DLookup("[Nivel]", "T_36_R_Unico", "[id_T36] =" & Me.[id_T36].Value), 0)
End Sub

Vamos aperfeiçoar a coisa;

Veja com atenção a query, que tem um relacionamento de um para muitos;

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next

    If IsNull(Me.id_T30.Value) Or Me.id_T30 = "" Then
    Me.txtDescrição30.Value = ""
    Else
    Me.txtDescrição30.Value = Nz(DLookup("[T_Descrição]", "T_30_R_Unico", "[id_T30] = " & Me.[id_T30].Value), "")
    End If

    If IsNull(Me.id_T36.Value) Or Me.id_T36 = "" Then
    Me.txtDescrição36.Value = ""
    Else
    Me.txtDescrição36.Value = Nz(DLookup("[T_Descrição]", "T_36_R_Unico", "[id_T36] = " & Me.[id_T36].Value), "")
    End If
End Sub

Finalmente funciona tudo na perfeição sem erros! Muito obrigada pela ajuda e rapidez a responder.
O forum está de parabéns pela qualidade com que tira as duvidas!
Mais uma vez obrigada.

Obrigado pelo retorno, se precisar de novo dê um grito.

Bons Estudos