[Resolvido]ActiveControl (foco)

Prezados,

Tenho um Formulário (frm_Cod) que tem um Subformulário (frmSub_Cod) com 2 campos : [código] e [inscrição] . Coloquei no rodapé dese subformulário um campo desvinculado que chamei de 'Info' onde através da função ' Lookup ' busco as informações sobre o código e inscrição. Como estou com um campo único para exibir as informações de um campo ou de outro , pensei em usar ActiveControl onde quando o foco estiver no campo [código] o campo  [Info] exibiria as informações complementares de "código" se o foco estiver no campo [inscrição] o campo  [Info] exibiria as informações complementares de "inscrição".  Tentei mas uma mensagem de erro diz que  ActiveControl  tem de estar na janela ativa. Se alguém puder ajudar.... obrigado

'***********Evento 'no atual' do subformulário*******************************

Dim ctlCurrentControl As control
Dim strControlName As String

Set ctlCurrentControl = Me.ActiveControl
strControlName = ctlCurrentControl.Name

if ctlCurrentControl.Name= "código" then
Me.Info = DLookup("[CodDescr]", "tb_Cod_dm", "[Codd1]=Forms![frm_Cod]![frmSub_Cod].Forms![código] ")

Elseif ctlCurrentControl.Name= "inscrição" then
Me.Info = DLookup("[InscDescr]", "tb_Insc", "[InscNum]=Forms![frm_Cod]![frmSub_Cod].Forms![inscrição] ")

End if
'***************************************************************************************

Marcelo

Se ainda não resolveu experimente:

Function Verificar()
if Me.ActiveControl.Name = "código" then
       Me.Info = DLookup("[CodDescr]", "tb_Cod_dm", "[Codd1]= " & Me![frmSub_Cod].Forms![código])
Elseif Me.ActiveControl.Name= "inscrição" then
       Me.Info = DLookup("[InscDescr]", "tb_Insc", "[InscNum]=Forms![frm_Cod]![frmSub_Cod].Forms![inscrição] ")
Endif
End function

Dentro da folha de propriedades, na propriedade ao ENTRAR de cada caixa de texto (código e inscrição), digite:

=Verificar()


[ ]'s

Noob

Prezado,

Obrigado pela solução funcionou perfeitamente.

Que ótimo!

Valeu o retorno

Boa sorte!