[Resolvido]DPesquisa em sub Formulario.

Luís Augusto 3/6/2012, 16:12

Luís Augusto: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 129
Registrado : 28/10/2011

Mensagem nº1

DPesquisa em sub Formulario.

Mensagem Luís Augusto 3/6/2012, 16:12

Bom dia pessoal.
Poderiam me ajudar com uma dúvida com DPesquisa?
Em um subform, estou usando na fonte de controle de um determinado campo a seguinte pesquisa:

=DPesquisa("Descricao";"2tblTerminais";"PnOrig='" & [Formulários]![SubfmrTermAssoc]![txtPnOrig] & "'")

Isso funciona quando abro o subform sozinho porém, quando o mesmo está anexado ao formulário principal, o retorno da pesquisa é um erro #Nome?. Saberiam como resolver isso sem usar o VBA?
Digo sem usar o VBA, porque estava usando anteriormente no evento ao carregar do subform vários Dlookup's e estava funcionando.

Subform aberto manualmente:
[img] [Resolvido]DPesquisa em sub Formulario. Subform

[Resolvido]DPesquisa em sub Formulario. Subform

[/img]

Subform anexado ao formulário principal:
[img] [Resolvido]DPesquisa em sub Formulario. Descrioerro

[/img]

Desde já agradeço.
Luís Augusto.

Convidad 3/6/2012, 16:29

Convidad

Convidad: Convidado

Mensagem nº2

Re: [Resolvido]DPesquisa em sub Formulario.

Mensagem Convidad 3/6/2012, 16:29

É a referência ao formulário que está causando o erro.
Quando usa o form principal, a referência deve mudar para:
Formulários!FormPrincipal!SubfmrTermAssoc!txtPnOrig

Poderia criar uma cópia do subform para usar acoplado ao principal, ou usar um critério para definir a referência:

If CurrentProject.AllForms("FormPrincipal").IsLoaded Then
Me.NomeCampo = DLookup("Descricao", "2tblTerminais", "PnOrig='" & [Forms]![FormPrincipal]![SubfmrTermAssoc]![txtPnOrig] & "'")
Else
Me.NomeCampo = DLookup("Descricao", "2tblTerminais", "PnOrig='" & [Forms]![SubfmrTermAssoc]![txtPnOrig] & "'")
End If

Luís Augusto 3/6/2012, 16:45

Luís Augusto

Luís Augusto: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 129
Registrado : 28/10/2011

Mensagem nº3

Re: [Resolvido]DPesquisa em sub Formulario.

Mensagem Luís Augusto 3/6/2012, 16:45

Muito obrigado Norberto, foi mesmo uma grande falta de atenção!
Estava cego ao erro. Embarassed

Esta parte está resolvida porém, agora você aguçou minha curiosidade.
Me desculpe a falta de conhecimento, ainda estou aprendendo.
Em que situações devemos criar uma cópia do subform e que vantagens podemos obter dessa prática?
Obrigado por compartilhar.
Tópico resolvido!

Convidad 3/6/2012, 17:02

Convidad

Convidad: Convidado

Mensagem nº4

Re: [Resolvido]DPesquisa em sub Formulario.

Mensagem Convidad 3/6/2012, 17:02

Justamente em um caso como este.

Se usa um form individualmente e também como subform (acoplado em outro form), e tem um campo cuja FonteDoControle faz referência a um objeto, esta referência vai mudar conforme o caso.

Então pode usar dois forms: um individual e outro como acoplado.
E em cada um define a referência conforme for o caso.

Eu não criaria um segundo form. Prefiro a opção que sugeri. Só que neste caso a referência deve ser no vba, e não diretamente na FonteDoControle, que não suportaria ambas.